B4J Question [SOLVED] Waiting for the job to actually finish

[jroriz]

In this cenario, the application finishes before the post is done.
What I want to achieve is that before the application ends, the post on the page is done.

log: 1,2,4,3.

Waiting for debugger to connect...
Program started.
1
2
4
3
mensagem gravada: test message 21:41:02

I want the log to be 1,2,3,4.

Any help?

<?php
//criamos o arquivo
$msg = $_GET['msg'];

$myfile = fopen("log.txt", "a") or die("Unable to open file!");
fwrite($myfile, "\n". $msg);
fclose($myfile);

echo "mensagem gravada: " . $msg
?>

Sub AppStart (Form1 As Form, Args() As String)


Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    MainForm.Show

    Log(1)
    If NotRegistered = True Then
        GravarLog("test message")
    End If
    Log(4)    ' This is happening before 3.'
End Sub

Sub NotRegistered As Boolean
    Return True    ' just for the sake of the example
End Sub

Sub GravarLog(msg As String)
    Dim job1 As HttpJob
    job1.Initialize("Job1", Me)
    
    job1.Download2("https://kxmidia.app/kal/gravarlog.php", _
      Array As String("msg", msg & " " & DateTime.Time(DateTime.Now)))

    Log(2)
    Wait For (job1) Jobdone(Job As HttpJob)
    Log(3)

    If Job.Success = True Then
        Log(Job.GetString)
    Else
        LogError("Error: " & Job.ErrorMessage)
    End If

    Job.Release

    ExitApplication
End Sub

 

[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

 

[jroriz]

[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

I updated the code to see if I can express myself better.