(Visual FoxPro) PDF File Encoding to Base64

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loPdfData
LOCAL lnSuccess
LOCAL lcB64
LOCAL loPdfData2

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loPdfData = CreateObject('Chilkat.BinData')

lnSuccess = loPdfData.LoadFile("qa_data/helloWorld.pdf")
IF (lnSuccess <> 1) THEN
    ? "failed to load PDF file."
    RELEASE loPdfData
    CANCEL
ENDIF

* 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".
lcB64 = loPdfData.GetEncoded("base64")
? lcB64

* Decode from base64 PDF.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loPdfData2 = CreateObject('Chilkat.BinData')
loPdfData2.AppendEncoded(lcB64,"base64")
lnSuccess = loPdfData2.WriteFile("qa_output/helloWorld2.pdf")
IF (lnSuccess <> 1) THEN
    ? "failed to write PDF file."
    RELEASE loPdfData
    RELEASE loPdfData2
    CANCEL
ENDIF

RELEASE loPdfData
RELEASE loPdfData2