Lianja

Compress String Feed to Base64

See more Compression Examples

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

llSuccess = .F.

// 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"

loCompress.FirstChunk = .T.
loCompress.LastChunk = .F.

loBdCompressed = createobject("CkBinData")
loSbUncompressedChunk = createobject("CkStringBuilder")

for i = 0 to 24
    if (i = 24) then
        loCompress.LastChunk = .T.
    endif

    loSbUncompressedChunk.Clear()
    loSbUncompressedChunk.AppendInt(i)
    loSbUncompressedChunk.Append(": This is a line of data to be compressed..." + Chr(13) + Chr(10))

    loCompress.CompressSb(loSbUncompressedChunk,loBdCompressed)

    loCompress.FirstChunk = .F.
next

? "The base64 encoded compressed text:"
? loBdCompressed.GetEncoded("base64")

// Decompress in one call:
lcOriginalText = loCompress.DecompressStringENC(loBdCompressed.GetEncoded("base64"))
? lcOriginalText


release loSbCompressedBase64
release loCompress
release loBdCompressed
release loSbUncompressedChunk