#if not(B4J) OR UI
Public Sub PutBitmap(Key As String, Value As B4XBitmap)
Dim out As OutputStream
out.InitializeToBytesArray(0)
Value.WriteToStream(out, 100, "PNG")
Put(Key, out.ToBytesArray)
out.Close
End Sub
Public Sub GetBitmap(Key As String) As B4XBitmap
Dim b() As Byte = Get(Key)
If b = Null Then Return Null
Dim in As InputStream
in.InitializeFromBytesArray(b, 0, b.Length)
#if B4J
Dim bmp As Image
#else
Dim bmp As Bitmap
#End If
bmp.Initialize2(in)
in.Close
Return bmp
End Sub
#End If