If Job.JobName = "DownloadImage" Then
Dim m As Map = Job.Tag
Dim OutStream As OutputStream
Log("DownloadReady: "&Job.Tag)
OutStream = File.OpenOutput(File.DirRootExternal, m.Get("filename"), False)
File.Copy2(Job.GetInputStream,OutStream) ' save the file
OutStream.Close
Log(m.Get("filename")&" is written to "&File.DirRootExternal)
f Job.IsSuccess("http://www.google.com/sample.zip")
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success = False Then
Log(Job.ErrorMessage)
else If Job.Success Then
end if
Job.Release
end sub
If Job.JobName = "getimagesizes" Then
End If
' and so on....