blob: 94adf39dfa608e9aaa6f4899a2a732acb0407591 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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!"
|
