B4J Question How to set a timeout for a time consuming sub

[xulihang]

I have a sub that normally takes less than 10 seconds but may take more than 5 minutes in some cases. How to set a timeout for such a sub?

 

[xulihang]

Found this thread: https://www.b4x.com/android/forum/threads/need-help-with-waitfor-solved.105512/post-660853

 

[LucaMs]

https://www.b4x.com/android/forum/t...withtimeout-timeouthandler.110703/post-690845

 

[xulihang]

I am using it with the Threading library.

Sub CallingSub
    DoProcessingAsync(boxesList,process)
    wait for Localized(Success As Boolean)
End Sub

Sub DoProcessingAsync(boxesList As List,process As List) As ResumableSub
    Dim b() As Boolean = Array As Boolean(False)
    TimeOutImpl(1000, b)
    th.Start(Me,"DoProcessing",Array As List(boxesList,process))
    wait for th_Ended(endedOK As Boolean, error As String)
    If b(0) = False Then CallSubDelayed2(Me, "Localized", True)
    Log(endedOK)
    Log(error)
    Return endedOK
End Sub

Sub TimeOutImpl(Duration As Int, b() As Boolean)
    Sleep(Duration)
    If b(0) = False Then
        Log("time out")
        CallSubDelayed2(Me, "Localized", False)
    End If
End Sub