Sub JobDone(Job As HttpJob)
If Job.Success Then
Dim res As String
res = Job.GetString
MsgboxAsync(res,"php to Tex in b4a ")
Else
ToastMessageShow(" No internet connection ",True)
End If
ProgressDialogHide
End Sub
Sub Button1_Click
ProgressDialogShow2("Loading",False)
Dim PhpText As HttpJob
PhpText.Initialize("PhpText", Me)
PhpText.download2("http://192.168.1.5/t/1.php", _
Array As String ("Value", ""))
PhpText.GetRequest.Timeout=15000
End Sub