B4X FEED Wait For (j) JobDone(j As HttpJob) Che palle!!!

[practicalsoft]

Senza alcuna polemica, ma è possibile che non funzioni un modo per inchiodare
l'esecuzione dell'app, fino a quando non mi ritorni il valore della query?
Scusate ma non frustrato dalla stupidità del problema che non riesco a risolvere.


Sub Post(sql As String,id As String) As ResumableSub
Dim text As String = URL&"sql.php"

Log("Query:"&text)

Dim j As HttpJob
j.Initialize("", Me)
j.PostString(text,"q="& sql)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
sqlResult = refresh(id,j.GetString)
End If
Log("SQLResult:"&sqlResult)
j.Release
End Sub

Sub selDevice()
Dim text As String
text = "SELECT * from users where cf = 300;"
Post(text,"uid") <----------------------------------------- Come lo fermo qui, fino a quando non ho il risultato?
uid = populateU(sqlResult)
End Sub

برای دیدن لینک ها باید ثبت نام کنید