B4X

Convert any File to Base64 (and back)

Demonstrates how to get the contents of any file as a base64 string, and then write it back. B4X

Dim success As Boolean = False

Dim bd As ChilkatBinData
bd.Initialize

'  This example will load a PDF and return it as a base64 string.
success = bd.LoadFile("qa_data/pdf/helloWorld.pdf")
If success <> True Then
    Log("Failed to load file.")
    Return
End If


Dim b64Str As String = bd.GetEncoded("base64")
Log(b64Str)

'  Now write the base64 string back to the binary PDF file:
Dim bd2 As ChilkatBinData
bd2.Initialize
success = bd2.AppendEncoded(b64Str, "base64")
success = bd2.WriteFile("qa_output/helloWorld.pdf")