Android Question Wait For not waiting for job to finish

[Juzer Hussain]

Hi,

I am using below code by Erel to calculate size of remote file and then downloading it thru FTP.(Because FTP doesnt provide Total File Size in Total Parameter)

Sub PF_FileSize(sFileName As String) 
   
    Dim j As HttpJob
    Dim sPath As String
    Dim result As String=""
   
    sPath="http://xyz.in/App/Profile/" & sFileName
    If FileMap.IsInitialized=False Then
        FileMap.Initialize        
    End If
   
    j.Initialize("", Me)
    j.Head(sPath)
    Wait For (j) complete (j As HttpJob)
    If j.Success Then
        Dim length As List = j.Response.GetHeaders.GetDefault("content-length", Null)
        If length.IsInitialized  Then
            result=length.Get(0)
            FileMap.put(sFileName: Result)
        End If
    End If
End Sub

but the execution doesn't wait for job to finish it continues to next line which starts FTP download.

Can anyone pls give a clue what is missing here.

Thanks
Juzer

 

[DonManfred]

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

 

[Juzer Hussain]

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

Thank You DonManfred for prompt reply.
I will try this way by calling the whole function with Wait For.
Juzer