(Lianja) Compress String Feed to Base64

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

The purpose is to demonstrate the BeginCompressStringENC, MoreCompressStringENC, and EndCompressStringENC methods.

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loSbCompressedBase64 = createobject("CkStringBuilder")

loCompress = createobject("CkCompression")
loCompress.Algorithm = "deflate"
loCompress.Charset = "utf-8"
loCompress.EncodingMode = "base64"

loSbIndex = createobject("CkStringBuilder")

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.
    loSbIndex.Clear()
    loSbIndex.AppendInt(i)
    if (i = 0) then
        loSbCompressedBase64.Append(loCompress.BeginCompressStringENC(loSbIndex.GetAsString()))
    else
        loSbCompressedBase64.Append(loCompress.MoreCompressStringENC(loSbIndex.GetAsString()))
    endif

    loSbCompressedBase64.Append(loCompress.MoreCompressStringENC(": This is a line of data to be compressed..." + Chr(13) + Chr(10)))
next

// Flush any remaining output.
loSbCompressedBase64.Append(loCompress.EndCompressStringENC())

? "The base64 encoded compressed text:"
? loSbCompressedBase64.GetAsString()

// Now decompress in one call:
lcOriginalText = loCompress.DecompressStringENC(loSbCompressedBase64.GetAsString())
? lcOriginalText


release loSbCompressedBase64
release loCompress
release loSbIndex