1 files changed, 50 insertions, 0 deletions
diff --git a/indenters/__TODO/example.vb b/indenters/__TODO/example.vb
new file mode 100755
index 0000000..94adf39
--- /dev/null
+++ b/indenters/__TODO/example.vb
@@ -0,0 +1,50 @@
+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!"
+\ No newline at end of file