(Lianja) Compress and Decompress a String

Demonstrates how to compress and decompress a string.

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.

loSb = createobject("CkStringBuilder")

for i = 1 to 20
    loSb.Append("This is the original uncompressed string." + Chr(13) + Chr(10))
next

loCompress = createobject("CkCompression")
loCompress.Algorithm = "deflate"
// Indicate that the utf-8 byte representation of the string should be compressed.
loCompress.Charset = "utf-8"

loCompressedBytes = loCompress.CompressString(loSb.GetAsString())

// If the compressed data is desired in string format, then get the base64 representation of the bytes.
loCompress.EncodingMode = "base64"
lcCompressedBase64 = loCompress.CompressStringENC(loSb.GetAsString())
? "Compressed Bytes as Base64: " + lcCompressedBase64

// Now decompress...
lcDecompressedString = loCompress.DecompressString(loCompressedBytes)
? "The original string after decompressing from binary compressed data:"
? lcDecompressedString

// To decompress from Base64...
loCompress.EncodingMode = "base64"
lcDecompressedString = loCompress.DecompressStringENC(lcCompressedBase64)
? "The original string after decompressing from Base64:"
? lcDecompressedString


release loSb
release loCompress