'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