Sub Activity_Create(FirstTime As Boolean)
Dim job1, job2, job3 As HttpJob
job1.Initialize("Job1", Me)
'Send a GET request
job3.Initialize("Job3", Me)
job3.Username = "uxxxxxxx7"
job1.Password = "7xxxxxt"
job3.Download("http://www.mydomain.com/HTTPPictures/1.jpg")
'Send a POST request
job2.Initialize("Job2", Me)
Dim Apath As String = File.DirDefaultExternal
job2.PostFile("http://www.mydomain.com/HTTPPictures/", Apath ,"2.jpg")
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "Job1", "Job2"
'print the result to the logs
Log(Job.GetString)
Case "Job3"
'show the downloaded image
Activity.SetBackgroundImage(Job.GetBitmap)
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
End Sub