Var.Filepath = xui.DefaultFolder
'********************************************************************************************************************
' Speichern
'********************************************************************************************************************
Public Sub Speichern
Dim Out As OutputStream
Out = File.OpenOutput(Var.Filepath, Var.ProjektName & ".png", False)
Var.ProjektPic.WriteToStream(Out, 100, "PNG") [I][SIZE=3] [I]' var.projektPic = B4XBitmap[/I][/SIZE][/I]
Out.Close
End Sub
[CODE=b4x]
Dim avc As ActivityViewController
If File.Exists(Var.Filepath, Var.ProjektName & ".png") Then
[COLOR=rgb(235, 107, 86)] avc.Initialize("avc", Array(LoadBitmap(Var.Filepath,Var.ProjektName & ".png")))[/COLOR]
avc.Show(B4XPages.GetNativeParent(Me), Root) 'Second parameter is relevant for iPad only. The arrow will point to the view.
Wait For avc_Complete (Success As Boolean, ActivityType As String)
Log($"Success: ${Success}, ActivityType: ${ActivityType}"$)
End If