Android Question How to save an image to Gallery?

DonManfred said:

Try this

B4X:

Dim Out AsOutputStream
Out = File.OpenOutput(File.DirRootExternal, "Test.jpg", False)
bitmap.WriteToStream(Out, 100, "JPEG")
Out.Close

Dim i As Intent
i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
"file://" & File.Combine(File.DirRootExternal, "Test.jpg"))
Dim p As Phone
p.SendBroadcastIntent(i)

Click to expand...