(Classic ASP) Compress Text Feed to Binary

This example receives incoming text data in chunks, compresses as a stream, and accumulates the compressed binary data.

Note: This example requires Chilkat v11.0.0 or greater.

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>
<%
success = 0

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

set bdCompressed = Server.CreateObject("Chilkat.BinData")

set compress = Server.CreateObject("Chilkat.Compression")
compress.Algorithm = "deflate"
compress.Charset = "utf-8"

set sbUncompressedChunk = Server.CreateObject("Chilkat.StringBuilder")

compress.FirstChunk = 1
compress.LastChunk = 0

For i = 0 To 24
    If (i = 24) Then
        compress.LastChunk = 1
    End If

    sbUncompressedChunk.Clear 
    success = sbUncompressedChunk.AppendInt(i)
    success = sbUncompressedChunk.Append(": This is a line of data to be compressed..." & vbCrLf)

    success = compress.CompressSb(sbUncompressedChunk,bdCompressed)

    compress.FirstChunk = 0
Next

' Show the compressed data in hex format:
Response.Write "<pre>" & Server.HTMLEncode( "The hex encoded compressed text:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( bdCompressed.GetEncoded("hex")) & "</pre>"

' Now decompress in one call.  It is important to set both FirstChunk and LastChunk = 1
set bdDecompressed = Server.CreateObject("Chilkat.BinData")
compress.FirstChunk = 1
compress.LastChunk = 1
success = compress.DecompressBd2(bdCompressed,bdDecompressed)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( compress.LastErrorText) & "</pre>"
    Response.End
End If

originalText = bdDecompressed.GetString("utf-8")
Response.Write "<pre>" & Server.HTMLEncode( originalText) & "</pre>"

%>
</body>
</html>