.bz2 Compress Memory to File
Compress in-memory data to a .bz2 file.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set bz2 = Server.CreateObject("Chilkat_9_5_0.Bz2")
' Any string unlocks the component for the 1st 30-days.
success = bz2.UnlockComponent("Anything for 30-day trial.")
If (success <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode(bz2.LastErrorText) & "</pre>"
End If
set fac = Server.CreateObject("Chilkat_9_5_0.FileAccess")
dataToCompress = fac.ReadEntireFile(Server.MapPath("hamlet.xml"))
success = bz2.CompressMemToFile(dataToCompress,"hamlet.xml.bz2")
If (success <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode(bz2.LastErrorText) & "</pre>"
End If
Response.Write "<pre>" & Server.HTMLEncode("Success!") & "</pre>"
%>
</body>
</html>
|
