B4X

PDF File Encoding to Base64

See more Base64 Examples

Demonstrates how to encode a PDF file to base64, and then decode. B4X

Dim success As Boolean = False

Dim pdfData As ChilkatBinData
pdfData.Initialize

success = pdfData.LoadFile("qa_data/helloWorld.pdf")
If success <> True Then
    Log("failed to load PDF file.")
    Return
End If


'  Encode the PDF to base64
'  Note: to produce base64 on multiple lines (as it would appear in the MIME of an email),
'  pass the string "base64_mime" instead of "base64".
Dim b64 As String = pdfData.GetEncoded("base64")
Log(b64)

'  Decode from base64 PDF.
Dim pdfData2 As ChilkatBinData
pdfData2.Initialize
pdfData2.AppendEncoded(b64, "base64")
success = pdfData2.WriteFile("qa_output/helloWorld2.pdf")
If success <> True Then
    Log("failed to write PDF file.")
    Return
End If