' Test platform for a LibGDX game
' Save uses a standard intent filerequester
' After you saved a file, go to Android fil manager and delete it, and check that no files exist wirth that name.
' Now run this test again, and pick the same name, and save it.
' Now in the Android file app you will see the true filessystem, one file.
' Launch the app and requester a third time and you will see two (or as many times as you do this) files with the same name and different dates.
' How synchronize things so the requester will see what ectually exist?
#Region Init
#Region Project Attributes
#FullScreen: True
#IncludeTitle: False
#ApplicationLabel: Save requester file test
#VersionCode: 1
#VersionName: F
#SupportedOrientations: Portrait
#CanInstallToExternalStorage: False
#End Region
#End Region
Sub Process_Globals
Private ion As Object
End Sub
Sub Globals
Dim jo As JavaObject, rp As RuntimePermissions
Dim sys As Phone, Surface As View, awidth As Int, aheight As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
awidth = Activity.Width : aheight = Activity.Height
' save test
' rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Not needed with intent
Save ' d
End Sub
Sub ion_Event (MethodName As String, Args() As Object)
Log ("ion")
Dim result_ok As Int = 0 ' Default for 'false' or 'failure'
If MethodName = "Result" Then
Dim resultCode As Int = Args(0)
Dim ResultIntent As Intent = Args(1)
If resultCode = result_ok Then
Dim contentUri As String = ResultIntent.GetData
Log("Content URI: " & contentUri)
' Update media store?
Else
Log("Activity result canceled or encountered an error.")
End If
End If
End Sub
Sub StartActivityForResult(iiii As Intent)
Dim jo As JavaObject, cls As String = Me
cls = cls.SubString("class ".Length)
jo.InitializeStatic(cls)
jo = jo.GetField("processBA")
ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null)
jo.RunMethod("startActivityForResult", Array(ion, iiii))
End Sub
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = rp.PERMISSION_WRITE_EXTERNAL_STORAGE Then
If Result = True Then
ShowToastAt(0,0, "Permission granted.")
Else
ShowToastAt(0,0, "Permission denied.")
End If
End If
End Sub
Sub Save
Dim contentUri As String, success As Boolean
Dim in As InputStream = File.OpenInput(File.DirAssets, "avatar.png")
Wait For (SaveAs(in, "image/png", "avatar.png")) Complete (contentUri As String)
If contentUri <> "" Then
success = True
Log("Succes To get URI")
Log(contentUri)
End If
If success Then
ShowToastAt(0,0, "Image saved")
Else
ShowToastAt(0,0, "Image not saved")
End If
sys.HideKeyboard(Activity) ' Root in B4XPages
End Sub
Public Sub SaveAs(Source As InputStream, MimeType As String, Title As String) As ResumableSub
Log("saver")
Dim Intent As Intent
Intent.Initialize("android.intent.action.CREATE_DOCUMENT", "")
Intent.AddCategory("android.intent.category.OPENABLE")
Intent.PutExtra("android.intent.extra.TITLE", Title)
Intent.SetType(MimeType)
StartActivityForResult(Intent)
Wait For ion_Event (MethodName As String, Args() As Object)
If -1 = Args(0) Then ' resultCode = RESULT_OK
Dim result As Intent = Args(1)
Dim jo As JavaObject = result
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim out As OutputStream = ctxt.RunMethodJO("getContentResolver", Null).RunMethod("openOutputStream", Array(jo.RunMethod("getData", Null)))
Try
File.Copy2(Source, out)
out.Close
Source.Close
Dim contentUri As String = result.GetData
Return contentUri
Catch
Log(LastException.Message)
End Try
End If
Return ""
End Sub
' ---------------------------------------------------------------------------------------------
Sub ShowToastAt(x As Int, y As Int, text As String)
Dim duration As Int = 0, ctxt As JavaObject, toastJO As JavaObject
ctxt.InitializeContext
toastJO = toastJO.InitializeStatic("android.widget.Toast").RunMethod("makeText", Array(ctxt, text, duration))
toastJO.RunMethod("setGravity", Array(Bit.Or(Gravity.CENTER, Gravity.CENTER), x, y))
toastJO.RunMethod("show", Null)
End Sub
