Comment stopper un thread ?

Version imprimable

Bonjour

J'ai hérité d'un code VB que je dois modifier. Le code crée et démarre un Thread (sur un serveur dans ce cas) dans une boucle infinie, mais il n'y a pas de procédure d'arrêt du thread dans le module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Imports System.Threading
 
Module Module1
    Sub Main()
        Dim fnLib As New functionLibrary
        fnLib.WriteLog("OnStart : Begin")
        ' === 
        ' === Ensure our registry has been set up
        ' === 
        Dim dbConnString As String = fnLib.getConfigValue("dbConnectionString")
        If Len(Trim(dbConnString)) < 1 Then
            fnLib.WriteLog("smWEBservice is incorrectly configured.  No database connection string specified in the cfg file.")
        Else
            Dim fred As Threading.Thread
            Dim smMain As New smWEBservice_main
            fred = New Thread(AddressOf smMain.beginProtectedLoop)
            fred.IsBackground = True
            fnLib.WriteLog("OnStart : Starting main thread")
            fred.Start()
            fnLib.WriteLog("OnStart : Complete")
        End If
        ' === 
        ' === Loop forever (all processing is in the fred thread)
        ' === 
        While True
            System.Threading.Thread.Sleep(10000)
        End While
    End Sub
End Module

Comment puis-je "tuer" le Thread ?

Merci

Lena

31/05/2010, 15h29
steelidol
Salut,

Je ne sais pas dans quel condition tu veux stopper ton thread (timeout, ou sur action). Sur action tu peux faire quelque chose du genre
Code:

1 2 3 If monthread.IsAlive Then monthread.Abort() End If
Sinon si tu veux quelque chose qui ressemble plus à un timeout regarde la propriété JOIN du thread. Cela te permet de définir un temps d'attende. Par exemple:
Code:

1 2 3 4 5 6 IF monthread.join(500) then 'Executé dans les temps demandé Else 'Temps dépassé on arrête tout End
31/05/2010, 16h12
lenab

Merci steelidol.

Je vais essayer la solution Action. J'espère arriver à déloger ce thread !

Lena