Sub btnDownload_Click
job2.Initialize("job2", Me)
job2.Download("http://125.227.11.94/TMS/Files/APP1.apk")
End Sub
Sub JobDone (job As HttpJob)
Log("JobName = " & job.JobName & ", Success = " & job.Success)
ProgressDialogHide
If job.Success = True Then
Select job.JobName
Case "job2"
Log(Path)
If File.Exists(File.DirRootExternal , "/tmp.apk")=True Then
File.Delete(File.DirRootExternal,"/tmp.apk")
End If
MyStream = File.OpenOutput(File.DirRootExternal, "/tmp.apk", False)
MyStream.InitializeToBytesArray(1)
File.Copy2(job.GetInputStream,MyStream) ' save the file
If File.Exists(File.DirRootExternal , "/tmp.apk")=True Then
Log("True")
End If
Log(File.Size(File.DirRootExternal,"/tmp.apk"))
Dim iIntent As Intent
Dim k As String="file://" & File.DirRootExternal & "/tmp.apk"
Log(k)
iIntent.Initialize(iIntent.ACTION_VIEW,k)
iIntent.SetType("application/vnd.android.package-archive")
StartActivity(iIntent)
End Select
End If
job.Release
End Sub