diff options
| author | Michele Calgaro <[email protected]> | 2023-04-18 20:47:44 +0900 |
|---|---|---|
| committer | Michele Calgaro <[email protected]> | 2023-04-18 20:47:44 +0900 |
| commit | 425e16ad894fd23d7c5b061acffba6cd04a1b1db (patch) | |
| tree | e1f794e07812bcd59a4b518747bf9dc5c2a5a163 /indenters/example.vb | |
| parent | 11451cea9db07b2a257297de57d76a8dbb7e3a5e (diff) | |
| download | universal-indent-gui-tqt-425e16ad894fd23d7c5b061acffba6cd04a1b1db.tar.gz universal-indent-gui-tqt-425e16ad894fd23d7c5b061acffba6cd04a1b1db.zip | |
Added code to load last open file or an example or an untitled file.
Signed-off-by: Michele Calgaro <[email protected]>
Diffstat (limited to 'indenters/example.vb')
| -rwxr-xr-x | indenters/example.vb | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/indenters/example.vb b/indenters/example.vb deleted file mode 100755 index 94adf39..0000000 --- a/indenters/example.vb +++ /dev/null @@ -1,50 +0,0 @@ -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 |