Sub dd_Complete(Job AsHttpJob)Log("Job completed: " & Job.Success)
Dim o AsOutputStream
o = File.OpenOutput(File.dirrootExternal, "Download/Veolo4K.zip", False)
File.Copy2(Job.GetInputStream, o)
o.Close
Arc.aSyncUnZip(File.DirRootExternal, "/Download/Veolo4K.zip" , File.DirRootExternal & "/Android/data/com.semperpax.spm/files/.spmc/", "arc")
Job.ReleaseEnd Sub
Sub btnCancel_Click
CallSubDelayed2(DownloadService, "CancelDownload", link1)End Sub