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("htmltest",Me)
php.Download("http://www.google.com/")
End Sub
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim res As String
res = Job.GetString
Log("JobName: "&Job.JobName)
If Job.JobName = "htmltest" Then
Log("HTML is: "&res)
Else If Job.JobName = "Init" Then
Log("")
End If
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub