Load file into XML as Base64 Encoded Content

Loads any type file into an XML document. The file content is encoded as base64.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set docRoot = Server.CreateObject("Chilkat_9_5_0.Xml")

docRoot.Tag = "myDoc"

'  To zip compress the content, set this flag to 1
zipContent = 0
'  To 128-bit AES encrypt the content, set this flag to 1
encryptContent = 0
encryptPassword = ""

' pdfNode is a Chilkat_9_5_0.Xml
Set pdfNode = docRoot.NewChild("pdf","")

'  Embed a PDF into XML
success = pdfNode.SetBinaryContentFromFile("sample.pdf",zipContent,encryptContent,encryptPassword)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(pdfNode.LastErrorText) & "</pre>"

End If

Response.Write "<pre>" & Server.HTMLEncode(pdfNode.LastErrorText) & "</pre>"

'  Display the entire XML document:
Response.Write "<pre>" & Server.HTMLEncode( docRoot.GetXml()) & "</pre>"

'  Get the Base64-encoded content and display it:
Response.Write "<pre>" & Server.HTMLEncode( pdfNode.Content) & "</pre>"

'  Extract the binary content from XML:
unzipContent = 0
decryptContent = 0
decryptPassword = ""
success = pdfNode.SaveBinaryContent("out.pdf",unzipContent,decryptContent,decryptPassword)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(pdfNode.LastErrorText) & "</pre>"

End If

Response.Write "<pre>" & Server.HTMLEncode("Success!") & "</pre>"
%>
</body>
</html>