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

Updated Library https://www.b4x.com/android/forum/t...ge-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 decoding base64 image stings, so I quickly put together this simple but effective base64 encode/decode images library for others to use..."

In version 1.13 also added the BaseAnyFileToString + Base64StringToAnyFile method. To convert any file to Base64.

The library is for B4X (Tested with B4J, B4A, B4i)

The Example Code:

B4X: 
'File 653 kb
    File.Copy(File.DirAssets, "653.jpg", File.DirInternal,"653.jpg")
    Sleep(300)

    'Image to Encode64
    Dim base As String = Base64EncodeDecodeImage.Base64ImageToString(File.DirInternal,"653.jpg")

    'Check if Valid Base64
    If Base64EncodeDecodeImage.ValidBase64(base) Then
        ImageView1.Bitmap = Base64EncodeDecodeImage.Base64StringToImage(base)
    End If

    Sleep(2000)

    '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)

    'Any File to Encode64
    Dim pdf_base64 As String = Base64EncodeDecodeImage.Base64AnyFileToString(File.DirApp, "example_5_pages.pdf")
 
    'Check if Valid Base64
    If Base64EncodeDecodeImage.ValidBase64(pdf_base64) Then
       Base64EncodeDecodeImage.Base64StringToAnyFile(pdf_base64, File.DirApp, "convert.pdf")
    End If

Example Code B4A --> https://www.dropbox.com/s/mohtg21cnfvaj1p/CONVERTBMPTOCODE64B4.zip?dl=0
Example Code B4i --> https://www.dropbox.com/s/97x5hcexy9xgkm6/CONVERTBMPTOCODE64.zip?dl=0
Example Code B4J -->https://www.dropbox.com/s/888ic5l1m18f4d1/B4J-CONVERTBMPTOCODE64.zip?dl=0

In attachment library b4xlib
Have a nice day
Marco

18.04.2021
Rel. 1.13 --> Add Base64AnyFileToString
 

Attachments

Last edited:
Click to expand...
Very useful, Marco, thank you.

Since I wanted a second method to "import" a bitmap in your Base64ImageToString, which reads an image file
(I "needed" to pass it a B4XBitmap), I added it but I also took the opportunity to change something.
If you "like" my changes you can add this version to your first post and I will remove this one ;)

Description of changes:
B4X: 
' Base64EcondeDecodeImage - Code module
' Author:    MarcoRome

#Region VERSIONS
' 1.1
'    Added ImageToString method, which is identical to Base64ImageToString,
'        but its name is more "correct". Kept Base64ImageToString for backward compatibility.
'    Added ImageToString2 method, which requires a B4XBitmap parameter.
'    Renamed variable name "convert" to mStringUtils
'        and declared it as Private in Process_Globals.
'    Added B4XBitmapToBytes private method - used by ImageToString2.
'    Added some Regions.
' 1.0
#End Region
 

Attachments

Last edited:
By-Cod3rs said:
I want to convert an unregistered bitmap object or a picture in imageview to base64 format.

Without the picture way.
Click to expand...
Look first post

B4X: 
'Image to Encode64
Dim base As String = Base64EncodeDecodeImage.Base64ImageToString(Directory,File")
 
Dim img As Bitmap=ImageView1.Bitmap

Dim base As String = Base64EncodeDecodeImage.Base64ImageToString(img)
I wanted to explain this.thanks
an image where I don't know the path to the file.
 
By-Cod3rs said:
Dim img As Bitmap=ImageView1.Bitmap

Dim base As String = Base64EncodeDecodeImage.Base64ImageToString(img)
I wanted to explain this.thanks
an image where I don't know the path to the file.
Click to expand...

In attachment Rel 1.10
 
By-Cod3rs said:
Return Type Byte array :(
Can't String Return Type?
thanks.
Click to expand...

As in example 1# Post
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)
 
MarcoRome said:
As in example 1# Post
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)
Click to expand...
I just saw it Thank you. Thank you very much
 
I have a problem. I have a .net web Service that meets this picture.
and it doesn't work compatible with its library.
I want to translate the picture into text on mobile and decode the code on the website. What Do You Recommend?
 
Don Oso said:
Its posible to use this lib. in order to encode in base64 any binary file?

thanks
Click to expand...

No. But you can use this ( not tested ):

B4X: 
Sub Base64AnyFileToString(Dir As String, Filename As String) As String
    Dim convert As StringUtils
    Return convert.EncodeBase64(Bit.InputStreamToBytes(File.OpenInput(Dir, Filename)))
End Sub

Sub Base64StringToAnyFile(s As String, Dir As String , FileName As String)
    Dim su As StringUtils
    Dim bytes() As Byte = su.DecodeBase64(s)
    Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)
    out.WriteBytes(bytes, 0, bytes.Length)
    out.Close
End Sub
 
Erel said:
It is even simpler as you can use File.ReadBytes / WriteBytes
Code: 
Dim su As StringUtils
Dim base64 As String = su.EncodeBase64(File.ReadBytes(...))
Click to expand...

Thanks Erel.
I Solved That Way.
MarcoRome ibrary not supported in .net base64 function.

Code: 
Sub Camera1_PictureTaken (Data() As Byte)
'
    Dim su As StringUtils
    Dim base64 As String = su.EncodeBase64(Data)
    Log(base64) 'limit 4000 char..

End Sub


Thus, the picture was displayed on both .net and web.
Code: 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim Base64Code As String = "......................................"

            Dim imageBytes As Byte() = Convert.FromBase64String(Base64Code)
            Dim ms As New MemoryStream(imageBytes, 0, imageBytes.Length)
            Dim Btmp As New Bitmap(Image.FromStream(ms))
            PictureBox1.Image = (OrientateImage(Btmp))


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


    End Sub

    Public Function OrientateImage(img As Image) As Image
        Const EXIF_ORIENTATION = 274
        Dim orientationTag = img.PropertyItems.FirstOrDefault(Function(x) x.Id = EXIF_ORIENTATION)
        If orientationTag IsNot Nothing Then
            Dim orientation As Short = BitConverter.ToInt16(orientationTag.Value, 0)
            Select Case orientation
                Case 3
                    img.RotateFlip(RotateFlipType.Rotate180FlipNone)
                Case 6
                    img.RotateFlip(RotateFlipType.Rotate90FlipNone)
                Case 8
                    img.RotateFlip(RotateFlipType.Rotate270FlipNone)
                Case Else
            End Select
        End If

        Return img
    End Function
 
Last edited:
By-Cod3rs said:
Thanks Erel.
I Solved That Way.
MarcoRome ibrary not supported in .net base64 function.

Code: 
Sub Camera1_PictureTaken (Data() As Byte)
'
    Dim su As StringUtils
    Dim base64 As String = su.EncodeBase64(Data)
    Log(base64) 'limit 4000 char..

End Sub


Thus, the picture was displayed on both .net and web.
Code: 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim Base64Code As String = "......................................"

            Dim imageBytes As Byte() = Convert.FromBase64String(Base64Code)
            Dim ms As New MemoryStream(imageBytes, 0, imageBytes.Length)
            Dim Btmp As New Bitmap(Image.FromStream(ms))
            PictureBox1.Image = (OrientateImage(Btmp))


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


    End Sub

    Public Function OrientateImage(img As Image) As Image
        Const EXIF_ORIENTATION = 274
        Dim orientationTag = img.PropertyItems.FirstOrDefault(Function(x) x.Id = EXIF_ORIENTATION)
        If orientationTag IsNot Nothing Then
            Dim orientation As Short = BitConverter.ToInt16(orientationTag.Value, 0)
            Select Case orientation
                Case 3
                    img.RotateFlip(RotateFlipType.Rotate180FlipNone)
                Case 6
                    img.RotateFlip(RotateFlipType.Rotate90FlipNone)
                Case 8
                    img.RotateFlip(RotateFlipType.Rotate270FlipNone)
                Case Else
            End Select
        End If

        Return img
    End Function
Click to expand...
Strain, because if you resolved with suggestion by Erel. The library use the same function su.EncodeBase64....
 
The library is in new format b4xlib. So if you open the libraries you can see ( and modified ) code without problem.
 
You must log in or register to reply here.

Similar Threads

Lucas Siqueira
  • Article Article
Android Code Snippet [B4X] Convert Base64 To String, String To Base64 and Validate Is Base64
Replies
0
Views
2K
Lucas Siqueira
Lucas Siqueira
TILogistic
  • Article Article
Share My Creation [B4X] Free version 1.0 code!! - B4XBase64 encode and decode: Made only with B4X code, without external libraries
Replies
1
Views
4K
TILogistic
TILogistic
Erel
  • Article Article
B4J Code Snippet [B4X] Solving encoding issues with html mails sent with SMTP (Net library)
Replies
2
Views
6K
Erel
Erel
MarcoRome
  • Article Article
B4J Library [B4X] Library Base64 encode/decode image library
Replies
1
Views
4K
mcqueccu
mcqueccu
MarcoRome
  • Article Article
B4i Library [B4X] Library Base64 encode/decode image library
Replies
0
Views
3K
MarcoRome
MarcoRome
Back
Top