Android Question HttpJob : wait for the end of downloading

voxel · Jul 28, 2020

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.

B4X:

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 · Jul 29, 2020

B4X:

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

LucaMs · Jul 29, 2020

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 · Jul 29, 2020

B4X:

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 · Jul 29, 2020

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

LucaMs · Jul 29, 2020

Erel said:
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 · Jul 29, 2020

LucaMs said:
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:

B4X:

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 · Jul 29, 2020

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 · Jul 30, 2020

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

Android Question HttpJob : wait for the end of downloading

voxel

Active Member

Erel

B4X founder

LucaMs

Expert

LucaMs

Expert

Erel

B4X founder

LucaMs

Expert

LucaMs

Expert

Erel

B4X founder

voxel

Active Member

Similar Threads

Android Question HttpJob : wait for the end of downloading

Active Member

B4X founder

Expert

Expert

B4X founder

Expert

Expert

B4X founder

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency