Android Question [solved] Wait for throws doesn't wait

[JDS]

I've got a http download which doesn't respect the "wait for". Am I missing something?

in my main I've the following

Log("in MAIN - before callsub")
CallSub(Starter,"GetNewRoute")
Log("in MAIN - after callsub")

In the Starter:

Sub GetNewRoute
    Dim j As HttpJob
    Dim requestSoapXML As String
    Dim sChar As String
   
   
    sChar = "&"
    requestSoapXML = "http://192.168.100.124/status/com.wso/GetRoute13/JSON?iPDA="&"1203"&sChar&"sWachtwoord="&"QWIvL05VUTVHTEorNmIxektaWWNGS"&sChar&"sExtra="&""
    j.Initialize("",Me)
    j.Download(requestSoapXML)
    wait for (j) jobdone(j As HttpJob)
    If j.Success Then
        Log ("succes download")
        j.Release
    Else
        Log ("failed download")
        j.Release
    End If
End Sub

The log is
"
in MAIN - before callsub
in MAIN - after callsub
succes download
"

 

[JDS]

project attached

 

[DonManfred]

https://www.b4x.com/android/forum/threads/b4x-resumable-subs-sleep-wait-for.78601/

Am I missing something?

Which B4A Version are you using?

Resumable subs is a new feature added in B4J v5.50 / B4i v4.00 / B4A v7.00. It dramatically simplifies the handling of asynchronous tasks.

I suggest to update your B4A License and get V9.3
Using an old version (like yours) prevent you from writing apps for Android 8+

 

[JDS]

https://www.b4x.com/android/forum/threads/b4x-resumable-subs-sleep-wait-for.78601/

Which B4A Version are you using?

I'm using v9.00

 

[JDS]

I suggest to update your B4A License and get V9.3
Using an old version (like yours) prevent you from writing apps for Android 8+

I've updated B4A to v9.30. Problem persists in v9.3

 

[DonManfred]

https://www.b4x.com/android/forum/threads/b4x-resumable-subs-that-return-values-resumablesub.82670/

Logger verbunden mit: 988ad036525346515630
--------- beginning of crash
--------- beginning of main
--------- beginning of system
*** Service (starter) Create ***
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
in MAIN - before callsub
*** Service (httputils2service) Create ***
** Service (httputils2service) Start **
succes download
in MAIN - after callsub
** Activity (main) Pause, UserClosed = false **

Sub test
    Log("in MAIN - before callsub")
    
    Wait For(CallSub(Starter,"GetNewRoute")) Complete (Result As String)
    Log("in MAIN - after callsub")
End Sub

Sub GetNewRoute As ResumableSub
    Dim j As HttpJob
    Dim requestSoapXML As String
    Dim sChar As String
    Dim result As String = ""
    
    sChar = "&"
    requestSoapXML = "https://www.duckduckgo.com"
    j.Initialize("",Me)
    j.Download(requestSoapXML)
    wait for (j) jobdone(j As HttpJob)
    If j.Success Then
        result = j.GetString
        Log ("succes download")
        j.Release
    Else
        Log ("failed download")
        j.Release
    End If
    Return result
End Sub

 

[JDS]

Your the man! This works. Thank you.

 

[DonManfred]

This works

make sure to check the tutorial i linked otherwise you´ll get trapped again next time....

PS: You should click on the LIKE button on the helpful post to give back some honor

 

[BillMeyer]

PS: You should click on the LIKE button on the helpful post to give back some honor

I agree. This always motivates the responder to give more advice and solutions next time.

 

[DonManfred]

motivates the responder to give more advice and solutions next time

what else should i have posted? Wasn´t my answer a full answer (and solution) for the problem?

 

[OliverA]

what else should i have posted?

next time

I think @BillMeyer is saying that it would make people (like you) more likely to help the same person (like @JDS) next time an issue comes up when their (your) help on a current issue is appreciated (via like(s)).

 

[DonManfred]

My answer was based on

to give more advice and solutions

i did interpreted it as "I could have posted MORE infos"