Step 1: convert the image to base 64 encoding. I did it with B4J:
B4X:
Dim su As StringUtils
Dim b() As Byte = File.ReadBytes("C:\Users\H\Downloads\111789.png", "")
File.WriteString("C:\Users\H\Downloads", "img.txt", su.EncodeBase64(b))
Step 2: decode it:
B4X:
Dim su As StringUtils
Dim b() As Byte = su.DecodeBase64(File.ReadString(File.DirAssets, "img.txt"))
Dim img As Bitmap
Dim in As InputStream
in.InitializeFromBytesArray(b, 0, b.Length)
img.Initialize2(in)
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.