Android Question problem with Base64ImageToString2

Masoud44 said:

Base64EncodeDecodeImage.Base64ImageToString2

Click to expand...

Masoud44 said:

Hi everyone
I have a problem when use this code

B4X:

    'Convert without Dir / File as request #8
    Dim bitmap1 As B4XBitmap = ImageView1.Bitmap
    Dim base As String = Base64EncodeDecodeImage.Base64ImageToString2(bitmap1)
    ImageView2.Bitmap = Base64EncodeDecodeImage.Base64StringToImage(base)

Why the color of the image changes to black and white ?

Click to expand...

DonManfred said:

what does this method do?

Click to expand...

Erel said:

You can use these two methods:

B4X:

Private Sub BitmapToString(bmp As B4XBitmap) As String
    Dim out As OutputStream
    out.InitializeToBytesArray(1000)
    bmp.WriteToStream(out, 100, "PNG")
    out.Close
    Dim su As StringUtils
    Return su.EncodeBase64(out.ToBytesArray)
End Sub

Private Sub StringToBitmap(s As String) As B4XBitmap
    Dim in As InputStream
    Dim su As StringUtils
    Dim b() As Byte = su.DecodeBase64(s)
    in.InitializeFromBytesArray(b, 0, b.Length)
    #if B4J
    Dim img As Image
    #else
    Dim img As Bitmap
    #end if
    img.Initialize2(in)
    Return img
End Sub

1. Depends on StringUtils
2. It is cross platform

Click to expand...