Sub ViewPDF (FolderName As String, FileName As String)
File.Copy(FolderName, FileName, Starter.shared, FileName)
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, CreateFileProviderUri(Starter.shared, FileName))
Intent1.SetType("application/pdf")
Intent1.Flags = 1
Try
StartActivity(Intent1)
Catch
MsgboxAsync("No App to show PDF's installed...." & CRLF & CRLF & LastException,"Error showing PDF's")
End Try
End Sub
Sub Share_Click
Dim rp As RuntimePermissions
If File.Exists(rp.GetSafeDirDefaultExternal(""), "Kreditverlauf.pdf") = False Then
MsgboxAsync("Bitte erst eine Berechnung durchführen","Berechnung fehlt")
Return
End If
SharePDF(rp.GetSafeDirDefaultExternal(""), "Kreditverlauf.pdf")
End Sub
Sub SharePDF (FolderName As String, FileName As String)
File.Copy(FolderName, FileName, Starter.shared, FileName)
Dim in As Intent
in.Initialize(in.ACTION_SEND, "")
in.SetType("text/plain")
Log(CreateFileProviderUri(Starter.shared & "/", FileName))
in.PutExtra("android.intent.extra.STREAM", CreateFileProviderUri(Starter.shared, FileName))
in.Flags = 1
StartActivity(in)
End Sub
Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
Dim FileProvider As JavaObject
Dim context As JavaObject
context.InitializeContext
FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
Dim f As JavaObject
f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
End Sub