Visual Basic 6.0

PDF File Encoding to Base64

See more Base64 Examples

Demonstrates how to encode a PDF file to base64, and then decode. Visual Basic 6.0

Dim success As Long
success = 0

Dim pdfData As New ChilkatBinData

success = pdfData.LoadFile("qa_data/helloWorld.pdf")
If (success <> 1) Then
    Debug.Print "failed to load PDF file."
    Exit Sub
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
b64 = pdfData.GetEncoded("base64")
Debug.Print b64

' Decode from base64 PDF.
Dim pdfData2 As New ChilkatBinData
success = pdfData2.AppendEncoded(b64,"base64")
success = pdfData2.WriteFile("qa_output/helloWorld2.pdf")
If (success <> 1) Then
    Debug.Print "failed to write PDF file."
    Exit Sub
End If