From 425e16ad894fd23d7c5b061acffba6cd04a1b1db Mon Sep 17 00:00:00 2001
From: Michele Calgaro <michele.calgaro@yahoo.it>
Date: Tue, 18 Apr 2023 20:47:44 +0900
Subject: Added code to load last open file or an example or an untitled file.

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
---
 indenters/__TODO/example.vb | 50 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100755 indenters/__TODO/example.vb

(limited to 'indenters/__TODO/example.vb')

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
-- 
cgit v1.2.1