B4J Library ABBackgroundWorkers (extracted from jServer)

This library is just an extraction of the Background Worker functionality in the jServer library. I needed this functionality but did not want to include the whole Jetty part. Could be useful for someone.

Lib source code Github: https://github.com/RealAlwaysbusy/ABBackgroundWorkers

Usage:

Main

Sub Process_Globals
    Dim bgw As ABBackgroundWorkers
   
End Sub

Sub AppStart (Args() As String)
    bgw.Initialize
   
    bgw.AddBackgroundWorker("Worker1")
    bgw.AddBackgroundWorker("Worker2")
   
    bgw.Start
   
    StartMessageLoop
End Sub

Worker1

Sub Class_Globals
    Private Timer As Timer
    Private TimerTickMs As Int = 10000
End Sub

Public Sub Initialize
    Timer.Initialize("Timer", TimerTickMs)
    Timer.Enabled = True
   
    StartMessageLoop '<- don't forget!
End Sub

Sub Timer_Tick
    'do the work required
    Log("Worker 1: every " & TimerTickMs)
End Sub

Worker2

Sub Class_Globals
    Private Timer As Timer
    Private TimerTickMs As Int = 5000
End Sub

Public Sub Initialize
    Timer.Initialize("Timer", TimerTickMs)
    Timer.Enabled = True
   
    StartMessageLoop '<- don't forget!
End Sub

Sub Timer_Tick
    'do the work required
    Log("Worker 2: every " & TimerTickMs)
End Sub

Alwaysbusy

 

[EnriqueGonzalez]

This is awesome thankyou !!
Can it be used with ui?? I guess as long as i don't call properties between each thread it should be fine... right??

 

[tchart]

Amazing, I've been wanting something like this for a while. Thanks for sharing!

 

[alwaysbusy]

Can it be used with ui?

I'm not sure, I have only used it in non-UI apps

 

[Jmu5667]

Thanks for this !!!!!

 

[incendio]

Thanks for this library.

I didn't see stop method. How do I stop background process when all job done?

 

[alwaysbusy]

There is no stop in the original library. You can stop the timer in the worker class if a certain condition is met.

 

[incendio]

There is no stop in the original library. You can stop the timer in the worker class if a certain condition is met.

Thanks for your tip.