Classic ASP

Gzip Compress In Memory and Base64 Encode

Demonstrates how to Gzip compress in-memory data and then encode the compressed data to base64.

Chilkat Classic ASP Downloads

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set gzip = Server.CreateObject("Chilkat.Gzip")

' This example will load a file into the fileData object.
' Your application might load fileData from other sources..
set fileData = Server.CreateObject("Chilkat.BinData")
success = fileData.LoadFile("qa_data/xml/hamlet.xml")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load file.") & "</pre>"
    Response.End
End If

' In-place compress the contents of fileData
success = gzip.CompressBd(fileData)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( gzip.LastErrorText) & "</pre>"
    Response.End
End If

' Get the base64 encoded compressed data (in a single line).
strBase64 = fileData.GetEncoded("base64")
Response.Write "<pre>" & Server.HTMLEncode( strBase64) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "--------") & "</pre>"

' To get the base64 in multiple lines, as it might appear in MIME,
' use "base64-mime".
strBase64MultiLine = fileData.GetEncoded("base64-mime")
Response.Write "<pre>" & Server.HTMLEncode( strBase64MultiLine) & "</pre>"

%>
</body>
</html>