Sub Process_Globals
Dim libHttpJob As HttpJob
End Sub
Sub Activity_Create(FirstTime As Boolean)
libHttpJob.Initialize("Download", Me)
libHttpJob.Download("https://xxxxxxxxxxxxxxxxxxxx")
End Sub
Sub JobDone (Job As HttpJob)
Dim libHttpJob As HttpJob
If Job.Success = True Then
Select Case Job.JobName
Case "Download"
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "1624.mp4", False)
File.Copy2(Job.GetInputStream, out)
out.Close
End Select
Else
Log("Error: " & Job.ErrorMessage)
End If
Job.Release
End Sub