Visual FoxPro

PDF File Encoding to Base64

See more Base64 Examples

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

LOCAL lnSuccess
LOCAL loPdfData
LOCAL lcB64
LOCAL loPdfData2

lnSuccess = 0

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.
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