[B4X] Converter Bitmap para Base64 e Base64 para Bitmap

[Lucas Siqueira]

Aqui está uma biblioteca super poderosa Base64EncodeDecodeImage que você pode estar utilizando para a conversão de imagem bitmap para string base64 e vice e versa:

[B4X] Library Base64 encode/decode Image and File library

Updated Library https://www.b4x.com/android/forum/threads/b4x-library-base64-encode-decode-image-and-file-library.115033/page-2#post-998317 From an idea of the Great Peter ( https://www.b4x.com/android/forum/threads/base64-encode-decode-image-library.31031/ ) "...in attached the library for...

www.b4x.com

aqui está um código que você pode fazer as conversões sem utilizar a biblioteca Base64EncodeDecodeImage:

Public 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

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

Public 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

 

[TILogistic]

aqui está outro sem bibliotecas externas, usando apenas código B4X

[B4X] Free version 1.0 code!! - B4XBase64 encode and decode: Made only with B4X code, without external libraries

B4XBase64 encoding and decoding algorithms were developed using B4X code only, without external libraries. Methods: . URL encoding and decoding . Image variable encoding and decoding . Text variable encoding and decoding . Image file encoding and decoding . Text file encoding and decoding ...

www.b4x.com