'Image to bytes
Public Sub ImageToBytes(Image As B4XBitmap) As Byte()
Dim Out As OutputStream
Out.InitializeToBytesArray(0)
Image.WriteToStream(Out, 100, "PNG")
Out.Close
Return Out.ToBytesArray
End Sub
'Bytes to Image
Public Sub BytesToImage(Bytes() As Byte) As B4XBitmap
Dim In As InputStream
In.InitializeFromBytesArray(Bytes, 0, Bytes.Length)
#If B4A or B4i
Dim Bmp as Bitmap : Bmp.Initialize2(In)
#Else
Dim Bmp As Image : Bmp.Initialize2(In)
#End If
Return Bmp
End Sub
'Image to file
Public Sub ImageToFile(Bmp As B4XBitmap, Dir As String, Name As String, Format As String)
Dim Out As OutputStream = File.OpenOutput(Dir, Name & "." & Format, False)
Bmp.WriteToStream(Out, 100, Format)
Out.Close
End Sub