(Excel) 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.

Download Excel Class Modules Chilkat Excel Class Modules

' Load our PDF file.
Dim bd As Chilkat.BinData
Set bd = Chilkat.NewBinData

success = bd.LoadFile("qa_data/helloWorld.pdf")
If (success <> True) Then
    Debug.Print "Failed to load PDF file."
    Exit Sub
End If

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

Dim xml As Chilkat.Xml
Set xml = Chilkat.NewXml
success = xml.LoadXmlFile("qa_data/xml/xmlToContainPdf.xml")
If (success <> True) Then
    Debug.Print "Failed to load XML file."
    Exit Sub
End If

' Insert the PDF into the XML.
xml.NewChild2 "xyz|pdfData",bd.GetEncoded("base64")

' Show the new XML:
Debug.Print xml.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:
Dim bd2 As Chilkat.BinData
Set bd2 = Chilkat.NewBinData
success = bd2.AppendEncoded(xml.GetChildContent("xyz|pdfData"),"base64")
success = bd2.WriteFile("qa_output/helloWorld.pdf")

Debug.Print "Success."