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 .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim docRoot As New Chilkat.Xml()

Dim success As Boolean

docRoot.Tag = "myDoc"

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

Dim pdfNode As Chilkat.Xml

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

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

    Exit Sub
End If

MsgBox(pdfNode.LastErrorText)

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

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

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

    Exit Sub
End If



MsgBox("Success!")