Android Question HttpJob : wait for the end of downloading

[voxel]

Hello,

I would like to stay on the "init" screen as long as the download is not complete and then display the "end" screen. With this code, there is no waiting. Thanks for your help.

Activity.LoadLayout("init")
    
Dim job As HttpJob
job.Initialize("j", Me)
    
job.Download("https://test/test.txt")
Wait For (job) JobDone(j As HttpJob)
If j.Success Then
    Activity.LoadLayout("end")
Else
    Activity.LoadLayout("error")
End If
j.Release

 

[Erel]

Wait For (job) JobDone(j As HttpJob)
Log("This line will only be executed after the download completed")

 

[LucaMs]

I think that his code is inside the Activity_Create routine, his Activity_Resume is not empty and this routine is executed before the http job is completed, because of that Wait For there.

 

[LucaMs]

Sub Activity_Create(FirstTime As Boolean)
    Dim Success As Boolean
    
    Dim job As HttpJob
    job.Initialize("j", Me)
    
    job.Download("https://test/test.txt")
    Wait For (job) JobDone(j As HttpJob)
    LogColor("After http job", Colors.Blue)
    Success = j.Success
    j.Release
    
    If Success Then
        Activity.LoadLayout("end")
        ActResumeCode
    Else
        Activity.LoadLayout("error")
    End If
End Sub

Sub Activity_Resume
    LogColor("Activity_Resume", Colors.Blue)
    ' Move all your code from here to ActResumeCode
End Sub
Sub ActResumeCode
    LogColor("ActResumeCode", Colors.Blue)
End Sub

 

[Erel]

Best solution is to switch to B4XPages and forget from all such issues.

 

[LucaMs]

Best solution is to switch to B4XPages and forget from all such issues.

Furthermore, the code I posted is not good, as a subsequent Resume would not execute the ActResumeCode.
A flag would be needed, a global variable.

 

[LucaMs]

Furthermore, the code I posted is not good, as a subsequent Resume would not execute the ActResumeCode.
A flag would be needed, a global variable.

This is better:

Sub Process_Globals
    Private mResumeOnly As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Dim Success As Boolean
   
    Dim job As HttpJob
    job.Initialize("j", Me)
   
    job.Download("https://test/test.txt")
    Wait For (job) JobDone(j As HttpJob)
    LogColor("After http job", Colors.Blue)
    Success = j.Success
    j.Release
   
    If Success Then
        Activity.LoadLayout("end")
        ActResumeCode
    Else
        Activity.LoadLayout("error")
    End If
End Sub

Sub Activity_Resume
    LogColor("Activity_Resume", Colors.Blue)
    ' Move all your code from here to ActResumeCode
    If mResumeOnly Then
        ActResumeCode
    End If
End Sub
Sub ActResumeCode
    mResumeOnly = True
    ' Here your code
   
End Sub

 

[Erel]

The OP haven't provided any information. You are solving something that might be irrelevant.

Even if it is relevant then the correct thing is to switch to B4XPages. Try it and you will see that all these issues become trivial.

 

[voxel]

Thank you very much for your answers, I will try to use these in my code