(Tcl) Compress and Decompress a String

Demonstrates how to compress and decompress a string.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set sb [new_CkStringBuilder]

for {set i 1} {$i <= 20} {incr i} {
    CkStringBuilder_Append $sb "This is the original uncompressed string.\r\n"
}

set compress [new_CkCompression]

CkCompression_put_Algorithm $compress "deflate"
# Indicate that the utf-8 byte representation of the string should be compressed.
CkCompression_put_Charset $compress "utf-8"

set compressedBytes [new_CkByteData]

set success [CkCompression_CompressString $compress [CkStringBuilder_getAsString $sb] $compressedBytes]

# If the compressed data is desired in string format, then get the base64 representation of the bytes.
CkCompression_put_EncodingMode $compress "base64"
set compressedBase64 [CkCompression_compressStringENC $compress [CkStringBuilder_getAsString $sb]]
puts "Compressed Bytes as Base64: $compressedBase64"

# Now decompress...
set decompressedString [CkCompression_decompressString $compress $compressedBytes]
puts "The original string after decompressing from binary compressed data:"
puts "$decompressedString"

# To decompress from Base64...
CkCompression_put_EncodingMode $compress "base64"
set decompressedString [CkCompression_decompressStringENC $compress $compressedBase64]
puts "The original string after decompressing from Base64:"
puts "$decompressedString"

delete_CkStringBuilder $sb
delete_CkCompression $compress
delete_CkByteData $compressedBytes