Load file into XML as Base64 Encoded Content

Loads any type file into an XML document. The file content is encoded as base64.

Download Chilkat XML ActiveX

Dim docRoot As New ChilkatXml

Dim success As Long

docRoot.Tag = "myDoc"

'  To zip compress the content, set this flag to 1
Dim zipContent As Long
zipContent = 0
'  To 128-bit AES encrypt the content, set this flag to 1
Dim encryptContent As Long
encryptContent = 0
Dim encryptPassword As String
encryptPassword = ""

Dim pdfNode As ChilkatXml

Set pdfNode = docRoot.NewChild("pdf","")

'  Embed a PDF into XML
success = pdfNode.SetBinaryContentFromFile("sample.pdf",zipContent,encryptContent,encryptPassword)
If (success <> 1) Then
    MsgBox pdfNode.LastErrorText

    Exit Sub
End If

MsgBox pdfNode.LastErrorText

'  Display the entire XML document:
Text1.Text = Text1.Text & docRoot.GetXml() & vbCrLf

'  Get the Base64-encoded content and display it:
Text1.Text = Text1.Text & pdfNode.Content & vbCrLf

'  Extract the binary content from XML:
Dim unzipContent As Long
unzipContent = 0
Dim decryptContent As Long
decryptContent = 0
Dim decryptPassword As String
decryptPassword = ""
success = pdfNode.SaveBinaryContent("out.pdf",unzipContent,decryptContent,decryptPassword)
If (success <> 1) Then
    MsgBox pdfNode.LastErrorText

    Exit Sub
End If

MsgBox "Success!"