Dim j As HttpJob
j.Initialize("pdf", Me)
j.Download2(Main.Server & "/mobile/DownLoadFile", Array As String("aidi", "4bd78c75-126b-466b-bb0c-490c31a1d996", "aidiUser", Main.aidiUser))
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim out As OutputStream = File.OpenOutput(File.DirDocuments, "extras.pdf", False)
File.Copy2(j.GetInputStream, out)
out.Close
di.Initialize("di", File.DirDocuments, "extras.pdf")
di.PreviewFile(pg)
'Log("Size: " & File.Size(File.DirDocuments,"extras.pdf"))
Else
Msgbox(j.ErrorMessage, "Error")
End If
j.Release
End If