Android Question Save gallery in android 14+

[Samara]

This code not working in android 14:

Sub Activity_Create(FirstTime As Boolean)
   Dim rp As RuntimePermissions
   rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
   Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
   If Result Then
       File.Copy(File.DirAssets, "prueba.jpg", File.DirRootExternal, "Pictures/prueba.jpg")
       Dim FilePath As String = File.Combine(File.DirRootExternal, "Pictures/prueba.jpg")
       Dim Phone As Phone
       If Phone.SdkVersion <= 18 Then           ' min - 4.3.1
           Dim i As Intent
           i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", "file://" & FilePath)
           Phone.SendBroadcastIntent(i)
       Else
           Dim ctxt As JavaObject
           ctxt.InitializeContext
           Dim MediaScannerConnection As JavaObject
           MediaScannerConnection.InitializeStatic("android.media.MediaScannerConnection")
           Dim interface As Object = MediaScannerConnection.CreateEventFromUI("android.media.MediaScannerConnection.OnScanCompletedListener", "ScanCompleted", _
           Null)
           MediaScannerConnection.RunMethod("scanFile", Array(ctxt, Array As String(FilePath), Array As String("image/jpeg"), interface))
       End If
   End If

End Sub

Sub ScanCompleted_Event (MethodName As String, Args() As Object) As Object
   Log(Args(0))
   Log(Args(1))
   Return Null
End Sub

 

[Erel]

There are too many mistakes here. This code should be deleted.

Add image to Gallery Android 5 - 10+

Depends on: Phone, JavaObject and ContentResolver libraries Sub AddBitmapToGallery (In As InputStream, TargetName As String, MimeType As String) Dim p As Phone Dim ctxt As JavaObject ctxt.InitializeContext If p.SdkVersion >= 29 Then Dim cr As ContentResolver...

www.b4x.com