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 job As HttpJob
job.Tag = "file.txt"
job.Initialize("file1", Me)
job.Download("http://www.mysite.com/file.txt")
Dim job As HttpJob
job.Tag = "file2.txt"
job.Initialize("file2", Me)
job.Download("http://www.mysite.com/file2.txt")
End Sub
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
If Job.JobName = "file1" Then
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal,Job.Tag,False )
File.Copy2(Job.GetInputStream, out)
out.Close
End If
If Job.JobName = "file2" Then
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal,Job.Tag,False )
File.Copy2(Job.GetInputStream, out)
out.Close
End If
Else
Log( Job.ErrorMessage)
End If
Job.Release
End Sub