Sub DownloadAndView(cMimeType As String, cFileUrl As String, cFileName As String)
Dim Intent1 As Intent
Dim HTTPTask As HttpJob
HTTPTask.Initialize("HTTPTask", Me)
HTTPTask.Download(cFileUrl)
wait for (HTTPTask) JobDone(HTTPTask As HttpJob)
If HTTPTask.Success Then
Try
Dim out As OutputStream = File.OpenOutput(Starter.shared, cFileName, False)
File.Copy2(HTTPTask.GetInputStream, out)
out.Close '<------ very important
Intent1.Initialize(Intent1.ACTION_VIEW, CreateFileProviderUri(Starter.shared,cFileName))
' Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
Intent1.Flags = 1
Intent1.SetType(cMimeType)
StartActivity(Intent1)
Catch
Log(LastException.Message)
End Try
End If
End Sub
Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
Dim Fp As JavaObject
Dim context As JavaObject
context.InitializeContext
Fp.InitializeStatic("android.support.v4.content.FileProvider")
Dim f As JavaObject
f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
Return Fp.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
End Sub