#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 5
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
' Sample images in File.DirAssets
Private images As List = Array("B4A.png", "B4i.png", "B4J.png", "B4R.png")
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
' Make shure there is a share-folder
Starter.strSharedFolder = Starter.rp.GetSafeDirDefaultExternal("shared")
' Delete old contents of this folder
For Each f2del As String In File.ListFiles( Starter.strSharedFolder)
File.Delete(Starter.strSharedFolder, f2del)
Next
' Copy file to share to the share-folder
For Each image As String In images
File.Copy(File.DirAssets, image, Starter.strSharedFolder, image)
Next
' Share those images
ShareMultipleImages(images, Starter.strSharedFolder)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ShareMultipleImages(lstImageNames As List, strSrcFolder As String)
Dim i As Intent
i.Initialize("android.intent.action.SEND_MULTIPLE", "")
i.SetType("image/jpeg")
Dim Uris As List
Uris.Initialize
For Each image As String In images
Dim u As Uri = CreateFileProviderUri(Starter.strSharedFolder, image)
Uris.Add(u)
Next
Dim jo As JavaObject = i
jo.RunMethod("putParcelableArrayListExtra", Array As Object("android.intent.extra.STREAM", Uris))
i.Flags = 1
StartActivity(i)
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
