(Classic ASP) Convert any File to Base64 (and back)
Demonstrates how to get the contents of any file as a base64 string, and then write it back.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd = Server.CreateObject("Chilkat.BinData")
' This example will load a PDF and return it as a base64 string.
success = bd.LoadFile("qa_data/pdf/helloWorld.pdf")
If (success <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( "Failed to load file.") & "</pre>"
Response.End
End If
b64Str = bd.GetEncoded("base64")
Response.Write "<pre>" & Server.HTMLEncode( b64Str) & "</pre>"
' Now write the base64 string back to the binary PDF file:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd2 = Server.CreateObject("Chilkat.BinData")
success = bd2.AppendEncoded(b64Str,"base64")
success = bd2.WriteFile("qa_output/helloWorld.pdf")
%>
</body>
</html>
|
