Classic ASP
Transition from BeginCompressStringENC to FirstChunk/LastChunk

Provides instructions for replacing deprecated BeginCompressStringENC method calls with using FirstChunk/LastChunk properties.
Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP
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 sbCompressedBase64 = Server.CreateObject("Chilkat.StringBuilder")

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

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

' ----------------------------------------------------------------------------------
' This is the deprecated way of compressing in chunks using Begin/More/End methods..
' ----------------------------------------------------------------------------------

For i = 0 To 24
    ' Note: It is possible (and normal) for a BeginCompress* or MoreCompress* method to return
    ' an empty string (or 0 bytes).  When this happens, the input data is not lost.  It will be flushed
    ' in a subsequent call.
    sbIndex.Clear 
    success = sbIndex.AppendInt(i)
    If (i = 0) Then
        success = sbCompressedBase64.Append(compress.BeginCompressStringENC(sbIndex.GetAsString()))
    Else
        success = sbCompressedBase64.Append(compress.MoreCompressStringENC(sbIndex.GetAsString()))
    End If

    success = sbCompressedBase64.Append(compress.MoreCompressStringENC(": This is a line of data to be compressed..." & vbCrLf))
Next

' Flush any remaining output.
success = sbCompressedBase64.Append(compress.EndCompressStringENC())

Response.Write "<pre>" & Server.HTMLEncode( "The base64 encoded compressed text:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( sbCompressedBase64.GetAsString()) & "</pre>"

' Decompress in one call:
originalText = compress.DecompressStringENC(sbCompressedBase64.GetAsString())
Response.Write "<pre>" & Server.HTMLEncode( originalText) & "</pre>"

' ----------------------------------------------------------------------------------
' This is new way of compressing in chunks using FirstChunk and LastChunk properties
' ----------------------------------------------------------------------------------

sbCompressedBase64.Clear 

compress.FirstChunk = 1
compress.LastChunk = 0

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

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

Response.Write "<pre>" & Server.HTMLEncode( "The base64 encoded compressed text:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( bdCompressed.GetEncoded("base64")) & "</pre>"

' Decompress in one call:
originalText = compress.DecompressStringENC(bdCompressed.GetEncoded("base64"))
Response.Write "<pre>" & Server.HTMLEncode( originalText) & "</pre>"

%>
</body>
</html>