Sub Process_Globals
Dim ImageUrl As String
ImageUrl = "http://www.b4x.com/android/images/logo2.png"
Dim Job2Links As List
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
HttpUtils.CallbackActivity = "Main"
HttpUtils.CallbackJobDoneSub = "JobDone"
HttpUtils.CallbackUrlDoneSub = "UrlDone"
Job2Links.Initialize
Job2Links.AddAll(Array As String( _
"http://www.google.com", "http://www.yahoo.com", _
"http://www.bing.com", "http://www.cnn.com", _
"http://www.twitter.com", "http://www.facebook.com"))
HttpUtils.Download("Job1", ImageUrl)
End Sub
Sub Activity_Resume
'Check whether a job has finished while the activity was paused.
If HttpUtils.Complete = True Then JobDone(HttpUtils.Job)
End Sub
Sub UrlDone(Url As String)
Log(Url & " done")
End Sub
Sub JobDone (Job As String)
Select Job
Case "Job1"
If HttpUtils.IsSuccess(ImageUrl) Then
Dim b As Bitmap
b = HttpUtils.GetBitmap(ImageUrl)
Activity.SetBackgroundImage(b)
End If
'Start the second job
HttpUtils.DownloadList("Job2", Job2Links)
Case "Job2"
For i = 0 To HttpUtils.Tasks.Size - 1
link = HttpUtils.Tasks.Get(i)
Log(link & ": success=" & HttpUtils.IsSuccess(link))
Next
If HttpUtils.IsSuccess("http://www.google.com") Then
Log(HttpUtils.GetString("http://www.google.com"))
End If
End Select
HttpUtils.Complete = False 'Turn off the complete flag so we won't handle it again if the activity is resumed.
End Sub
