B4J Question How to stop(delete) BackgroundWorker

[jinyistudio]

Hi

With server, I can Add somme BackgroundWorker. How could i stop(or delete) BackgroundWorker ?

 

[MichalK73]

Add in Main

Dim StopTimer as Boolean

In module BackgroundWorker

'Class: SomeTask
Sub Class_Globals
   Private timer1 As Timer  
End Sub

Public Sub Initialize
   timer1.Initialize("timer1", 10 * DateTime.TicksPerMinute)
   timer1.Enabled = True
   StartMessageLoop '<- don't forget!
End Sub

Sub Timer1_Tick
   'do the work required
If Main.StopTimer then
    timer1.Enabled = False
Else
    timer1.Enabled = True
EndIf
' Code for timer1
End Sub

 

[Erel]

Michal code is good. If you want to completely end the worker thread then you need to add StopMessageLoop.

 

[jinyistudio]

Hi,Erel

your mean is

Sub Timer1_Tick
   'do the work required
If Main.StopTimer then
    timer1.Enabled = False
    StopMessageLoop             <<------  add here 
Else
    timer1.Enabled = True
EndIf
' Code for timer1
End Sub

 

[Erel]

Yes.