(Xojo Plugin) PDF File Encoding to Base64
      
      Demonstrates how to encode a PDF file to base64, and then decode. 
		
 
      Dim pdfData As New Chilkat.BinData
Dim success As Boolean
success = pdfData.LoadFile("qa_data/helloWorld.pdf")
If (success <> True) Then
    System.DebugLog("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
b64 = pdfData.GetEncoded("base64")
System.DebugLog(b64)
// Decode from base64 PDF.
Dim pdfData2 As New Chilkat.BinData
success = pdfData2.AppendEncoded(b64,"base64")
success = pdfData2.WriteFile("qa_output/helloWorld2.pdf")
If (success <> True) Then
    System.DebugLog("failed to write PDF file.")
    Return
End If
     |