B4A Library Base64 encode/decode image library

I noticed the other day that there were quite a few questions regarding decoding base64 image stings, so I quickly put together this simple but effective base64 encode/decode images library for others to use.

I will be turning more of my simple but useful routines to libraries, but not too many :)

Instructions:
In Globals add the following line
Dim Base64Con As Base64Image
Dim Base64Con As Base64Convert

To get an encoded base64 data stream, and return it as an bitmap ready to load into an image view for example, use the following line.
Base64Con.DecodeToImage(ImgStr As String) As Bitmap

Or

To get an image file, and encode it into an base64 data stream, ready to save into a database or file for example, use the following line.
Base64Con.EncodeFromImage(FolderPath As String, Filename As String) As String

Quite simple to use really.

Anyway, I hope that it work great for you all, well that's if anybody uses it :)
Just download the library and let me know what you think about it.

UPDATED: 09/04/2018: 1.10
Removed logs

This library is extremely simple to use.

SS_Base64Convert

Author: Peter Simpson
Version: 1.1
  • Base64Convert
    • Functions:
      • DecodeToImage (ImageStr As String) As Bitmap
        Use this call to decode the base64 datastream into an image
      • EncodeFromImage (FolderPath As String, Filename As String) As String
        Use this call to encode the image into a base64 datastream
      • Initialize As String
        Initializes the object. You can add parameters to this method if needed.
      • IsInitialized As Boolean
        Tests whether the object has been initialized.

Cheers :cool:
 

Attachments

  • Screenshot_2013-07-16-12-10-21.jpg
    Screenshot_2013-07-16-12-10-21.jpg
    27.9 KB · Views: 1,925
  • Base64Image.zip
    3 KB · Views: 1,789
Last edited:

Big JR

Member
Licensed User
Longtime User
I noticed the other day that there were quite a few questions regarding decoding base64 image stings, so I quickly put together this simple but effective base64 encode/decode images library for others to use.

I will be turning more of my simple but useful routines to libraries, but not too many :)

Instructions:
DecodeToImage(ImgStr As String) As Bitmap
Get an encoded base64 data stream, and return it as an bitmap ready to load into an image view for example.

And

EncodeFromImage(FolderPath As String, Filename As String) As String
Get an image file, and encode it into an base64 data stream.

Quite simple to use really.

Anyway, I hope that it work great for you all, well that's if anybody uses it :)
Just download the library and let me know what you think about it.

Cheers :cool:

Hi Peter,
This looks like just what I needed but I'm doing something silly. I've added your jar and xml files to the library and checked and loaded the Base64Image library within B4A. I've added the image to assets. Then I've got...

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim EditText1 As EditText
Dim Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
Dim b64Str As String
b64Str = EncodeFromImage(File.DirAssets,"CompleteLandscapes.jpg")
End Sub

... but when I try to compile and run it B4A says "Undeclared variable 'encodefromimage' is used before it was assigned any value."
 

Peter Simpson

Expert
Licensed User
Longtime User
Hi Peter,
This looks like just what I needed but I'm doing something silly. I've added your jar and xml files to the library and checked and loaded the Base64Image library within B4A. I've added the image to assets. Then I've got...

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim EditText1 As EditText
Dim Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
Dim b64Str As String
b64Str = EncodeFromImage(File.DirAssets,"CompleteLandscapes.jpg")
End Sub

... but when I try to compile and run it B4A says "Undeclared variable 'encodefromimage' is used before it was assigned any value."


Hello @Big JR

In Globals add the following line
Dim Base64Con As Base64Image

Then your line should read as follows.
Dim B64Str As String = Base64Con.EncodeFromImage(File.DirAssets, "CompleteLandscapes.jpg")

Enjoy :)
 

Big JR

Member
Licensed User
Longtime User
Hello @Big JR

In Globals add the following line
Dim Base64Con As Base64Image

Then your line should read as follows.
Dim B64Str As String = Base64Con.EncodeFromImage(File.DirAssets, "CompleteLandscapes.jpg")

Enjoy :)

Super. Many thanks. It's working great.
 

Peter Simpson

Expert
Licensed User
Longtime User
Hello @borofan.
I've just tried converting multiple images one after another on the oldest device that I could find, an HTC desire, everything worked perfectly fine for me with no OutOfMemory issues. Let me look at this in more detail and I'll get back to you.

Cheers...
 

Robert Valentino

Well-Known Member
Licensed User
Longtime User
I noticed the other day that there were quite a few questions regarding decoding base64 image stings, so I quickly put together this simple but effective base64 encode/decode images library for others to use.

I will be turning more of my simple but useful routines to libraries, but not too many :)

Instructions:
In Globals add the following line
Dim Base64Con As Base64Image

To get an encoded base64 data stream, and return it as an bitmap ready to load into an image view for example, use the following line.
Base64Con.DecodeToImage(ImgStr As String) As Bitmap

Or

To get an image file, and encode it into an base64 data stream, ready to save into a database or file for example, use the following line.
Base64Con.EncodeFromImage(FolderPath As String, Filename As String) As String

Quite simple to use really.

Anyway, I hope that it work great for you all, well that's if anybody uses it :)
Just download the library and let me know what you think about it.

Cheers :cool:

I tried your library - VERY cool the only thing I would suggest is a routine to return a BitmapDrawable do we could take what you returned right into a statelist setting

Thanks

BobVal
 

Robert Valentino

Well-Known Member
Licensed User
Longtime User
I wrote a TestCode app that will take bitmaps and make into strings and save to a file as a B4A formatted declare string

If run the APP after compiling with a conditional symbol of MakeStrings it will generate the DownArrows.txt file onto your Android which you can then Bluetooth to your PC.

NOTE: This file is now included in the TestCode program so compiling it with a conditional symbol of TestStrings will actually take the text string from the program and use them to make button bitmaps for you to try.

if we ever get something like a #include for B4A we will be able to just include the file into our source with have to copy paste it.

Hope someone fines this useful

NOTE: The DownArrows.txt file does not look to good when opened in IE but when brought into B4A is nicely formatted (done by the routine
B4ACodeFormatter)


BobVal
 

Attachments

  • TestCode.zip
    19.5 KB · Views: 850
  • DownArrows.txt
    18.9 KB · Views: 631

Johnson Samuel

Member
Licensed User
Longtime User
I have encoded the image using the base64image library, and have saved into mysql database. How can I decode the saved image string from the database using php. I could not succeed. Can any one help me in this?
 

Johnson Samuel

Member
Licensed User
Longtime User
Dear Simpson,
Is the encoded format of your library is same that of php encoding? I am trying to point out is that ,is the encoded string is in the format recognised by php decoder.? if the formats are different than it may not be possible to decode.
I have tried enough of php methods but have failed. If you could solve the problem that could be nice. I am using your base64Image library to encode.
 

Kwame Twum

Active Member
Licensed User
Longtime User
Thanks for the Lib @Peter Simpson,
Please, I encoded an image and got the resulting string, however I tried decoding the string and saving back to image and all I got was a piece of the image I saved.
Here's the encoded string:

B4X:
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/2wBDAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/wAARCAD8APwDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDZt7bdGW+VtoQnbvKcyKi7zlREoHRyrdVGGOSeu07TpPMfYFAGxeH242uwLA7fwyxKkZO3k1FY2saxIVYiI7Sdy7t2GbAOVwdrfMD/AAkZzkV22lWjBJZxlAiF1clNuBucsch2O5UDg8ISQW6ZrBJUk5yd22ot7Kzlbb5Xa8lZrVB09Ouvn5/3X5+ff8w/2/PHkzwaD8NbKS3kh0/T4PEWpQecjSPqJmeOFD5jSKBaRLHd20cjFJI5E3RsgdD8L+CWRIy7CZHliSPCSvZoY5JAJYnVU8uWFkfCK5dNuctkFj1n7RHjKHx78afHl/pShrGPWZtMSZJllNxYaajabE6SNHEkSyW1rFJJ8k8bPIWVgSSdzwbcWBsNNcWLzR2qwWs0qNDPdmMyIixvKLclourhfJAwTh+K1aknKz2aVreUrP5qPe+q0buJO6utu/zku/8Ad9NVre56r8PdJghtJrvYYVkykW2YTRMkcswAd1dyFjZWMKBQF82RTlghHuGjaeHKg7SyRqBgMzSEv9xFUAAklWO/AADncGA3ZHhrSLKO0lkitl+yrjZGFVSm5pZHIAUEvwMkDYpPQAGvQLEW8duCiFCGJLY+Yv5soiyRwPl24PXO3BPYjzcqi3pdO1nfd+f92Pntvdj/AK/Lz8l+G9teo0nT1bChPLUFGEiAN5u0P5sYOeUBK7jtDZJXJClj1cFuAXQhXOyPBLNhWWeRnbALqBtRTjarAFgSGO45lmhjCTvv2GJ0XD/dZ5GBZQSdowByMDrySRnSiZJJI1RsGPYUbPJYE5DKM53E8Hvluu4027W83Zffbv8AMTdrebt+Nu/9d7l23hXeWUgLgDoAxPzfLj5s7QvznIOTwABXX6Jld6FmIdMiLzDGucH5sq4bCnBweDwMEh65Jk8kCNSwLEksOTvkcgPux0JBByThSc5y1dJpKTtMGjG0L5TsCCxKh9hB2ZzuYEjJPcEkDNc843m0t52V9dLNavXqorb8He7/AK/rX+u56n4f0+N0FwxBZtvKjLLIAysTgqSdi5Yk7BlPk3Ek+nWlsUh82NS7OgUszKu3ZI+1eZGONpyR13EEkkYrjfDjRFGWNdrDa6kjJAXJmLMWA8uUKAoUgseC2VJr0/T1RraLcF2SCPcXMqhnbcw3xqjFtoORhgRk5J4NXWX7pxvuopO3aXr/AF5jSvfyS+etv+CXNNsokcE8uSApPmbQSSWIZvmOATg4xzjkc13GnQxxxY2qrMwxzwG3MQAwUdgTk8dBgkVn6fbOZEzGu0DzNyhVUhd52FWOeVwCDyVBz0zXSQLxJC4Uq0bGNwuNoXcAwXJPUo4PQOA5I2tXnuNuvf8AC3n/AFp1uXTpufNrblt03vzfd8Pnul3ZrWflyIhZwQzttU53MQ2DnA5UlfmIwBkHJ3EVs27eT5vlrujKsFJDKxfzEQxg7tyLzkNnPTkgYrO0+0UQK0cU7h4wEeZum9pTIyqnOxxGpXZxy5fLdeqtLMSQ47SbARjIwcnBxHISDjIDDHPPOGMm9Km6fNdp3SSsn0cn38/P8Sg5kETloVkXCHzwB8zK7ENtzkEFdykdDtyCRWLc+aWb9y+Ail3OHbJLAjczFjnqA24D5gMHmvQWsGCIgRWTcgcRYClmJKAgkYBXbuyc7iecg1jXGmuzsUDbRln+RCSMsqKgViWwSHLYJ2qc5yKpO0XHu1r6NPv1/wAt9WEqbcIwuvdvrrr8r/8ABPLNQsZ1aSVRuR2ClACHLb4hu25LkAShvlBUBJBnINcXfaeVxJEtxHtKLujdiNoZihboQD/Een3ugya9smtCplEgwerdfmdC4DAEc7lOT8oyCAcgVzF9aK6yo0Y2kAMy4y6kuct3GAOnIALHIIJpyaaTXn/W/wDXmczi4tp9Px1fm+iT+dt0zyWNJVZ0dXyWcDnBI8xnBIJYsST8jdAd2QxBNPZZYVlEihhkEKFOFHzDne6ZwAcgHOc4OGzXa3lhbBuExGEwB82C6SQk528KVG87jztY5OCSeeltAqOVbY3z4YDaCDv2E5HJyOM9wOuaUY817Pa3z/H+tvMkx4y4V5FB8sIFWU/Ksq853bQBkjCnnOFOOS7FbnY9wcSl/KkAVBtYKscksYGNoIJjjbc4DHp82VUGMwOiiJjvEjKAQWWMDe6ZIYfdAR5cj9387scsd1U5JHLIrF8McxrnecFJNpYAH5izfNnkuxJJJJq43sotNba69JN9+0V6Nrf3UqhHndrpeb26+fl+a6NtzpGxkCwn5RGSS0Y3/NOgBZpt7Y2bvmjD7MlkLlhVJYlJZ/lB+VQvViUL7hwAuGYAIcYOCQe5sSum6Yb2DKvzBiBhwsgyCTuByPlA5wSuciqQlIiV1cEr0IJZcQlsZAJOYgMgHpgrgE5PTCkpQbvrdWfS3W+r+X5sJR5ftJ+mv66fj6so6jpOlapbz2uq2kVzC0bRKsqrvO5ZCHC5HEbNwfXcMEBifyy+Mvwx1Lwd4m1O50uzJ0aaYXLR24jyIvlYK2wudrs3KMcbQFxnOf1a3BlaMhRj5Qy5IJYyyFsk858tieuPnGRtIPy98arNVt11CKAXTTr++hkybd4/NmgIdtkiwlAgYZUhCQ2AFY06POpzi5fDa/m1KSurvRfjqtmldTjGytq+WPN83JS+9b/9u9dTxP8AZm+Ig0DxZa+H79YobXxLDHYRqCEEV3FcFtOllJZTG26IWmxQBsuWchhHI1fonf2bRFo0c7QIlaTayhii9WaQffcAKoLbQ2NxBBFfjdql8+meKdG1Swt47G40u8t72Pyw7zSSrcM7LNOZUhlaNG8lNkY+VwOrGv2T8PatH4t8J+HvEUYRTqml213cEE7vNcJ9qjPzMu3zxLlAcZcggkGjERio80NPhT83eWv/AJLfXq3p7zYo6QcZJN3XK+yV7r70rfLZxRxN5ZttcgFCu9U5DiQ5nV3jIBLLKFGCcfN/CBknkpreRZHCRMwGM9MhgzKVI3Lhht+YDcAf4iDivVrq18ppDtwWVt/8RI2yoUJx12lwq8kE49a5O40pJ5GYsF2pGmGJxwoOV4Ix1yB0ffkltxqaFb3JKT1TSTv0vpo36+XvWVlGTZ/X5/5X+a3aZlWFjK4BjRcDgklSy4JDMC4+YFivAUkHHJJOd7Xbyz8LeCvEGv38nkWmj6Pf3N1KyKyoLexlY5VSu5gSAqhVVyyqCMsx0rO3CLBtjyE2lCRwy/NwQFGDlQeT1A

and this is the output after saving...:
8.jpg

Meanwhile, this is the actual image:
my_ch.jpg

What could be the problem?
 
Last edited:

Kwame Twum

Active Member
Licensed User
Longtime User
Thanks Erel, I thought as much..., so that explains it then.

1. When posting a string (using PostString) containing a query with a parameter that long (over 4000 characters), does it get truncated during the process or the entire string is sent?
2. Again, when the JobDone event fires, with the resulting query response after parsing the JSON (supposing I'm retrieving a string with over 4000 characters from a database), does it get truncated as well?
 
Top