Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Dim php As HttpJob
php.Initialize("phptest",Me)
php.Download("http://www.mywebsite.com/stringcode.php")
End Sub
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim res As String
res = Job.GetString
Log("JobName: "&Job.JobName&"/Resp:" & res)
If Job.JobName = "phptest" Then
Log("Response: "&res)
Else If Job.JobName = "Init" Then
Log("")
End If
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub