(Visual FoxPro) Insert PDF as Base64 into XML, then Extract back to PDF File

Demonstrates how to insert any file into XML using base64 encoding, and then extract back to the original file. This example embeds a PDF in the XML, but the type of file does not matter. It can be any type of file.

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

LOCAL loBd
LOCAL lnSuccess
LOCAL loXml
LOCAL loBd2

* Load our PDF file.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.LoadFile("qa_data/helloWorld.pdf")
IF (lnSuccess <> 1) THEN
    ? "Failed to load PDF file."
    RELEASE loBd
    CANCEL
ENDIF

* Load the following XML:
* 
* <?xml version="1.0" encoding="utf-8" ?>
* <something>
*     <xyz>
*         <abc123>A base64 encoded PDF file will be inserted under this node.</abc123>
*     </xyz>
* </something>

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
lnSuccess = loXml.LoadXmlFile("qa_data/xml/xmlToContainPdf.xml")
IF (lnSuccess <> 1) THEN
    ? "Failed to load XML file."
    RELEASE loBd
    RELEASE loXml
    CANCEL
ENDIF

* Insert the PDF into the XML.
loXml.NewChild2("xyz|pdfData",loBd.GetEncoded("base64"))

* Show the new XML:
? loXml.GetXml()

* The XML now looks like this:
* <?xml version="1.0" encoding="utf-8" ?>
* <something>
*     <xyz>
*         <abc123>A base64 encoded PDF file will be inserted under this node.</abc123>
*         <pdfData>JVBERi0xL ... UlRU9GCg==</pdfData>
*     </xyz>
* </something>

* To extract the PDF data out and restore the PDF file:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd2 = CreateObject('Chilkat.BinData')
lnSuccess = loBd2.AppendEncoded(loXml.GetChildContent("xyz|pdfData"),"base64")
lnSuccess = loBd2.WriteFile("qa_output/helloWorld.pdf")

? "Success."

RELEASE loBd
RELEASE loXml
RELEASE loBd2