(Tcl) Compress Bytes to Base64 (or any other encoding)

Compresses bytes to base64 or any other encoding. Also decompress to return the original.

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.

# First create some binary data to compress.
set binData [new_CkBinData]

for {set i 1} {$i <= 16} {incr i} {
    CkBinData_AppendEncoded $binData "000102030405060708090A0B0C0D0E0F" "hex"
}

set compress [new_CkCompression]

CkCompression_put_Algorithm $compress "deflate"
CkCompression_put_EncodingMode $compress "base64"

set uncompressedBytes [new_CkByteData]

set success [CkBinData_GetBinary $binData $uncompressedBytes]

# Compress and return the compressed bytes in base64 format.
set compressedBase64 [CkCompression_compressBytesENC $compress $uncompressedBytes]
puts "compressed and base64 encoded: $compressedBase64"

# Compress and return in hex format:
CkCompression_put_EncodingMode $compress "hex"
set compressedHex [CkCompression_compressBytesENC $compress $uncompressedBytes]
puts "compressed and hex encoded: $compressedHex"

# Now decompress..
set binData2 [new_CkBinData]

# Decompress the base64..
CkCompression_put_EncodingMode $compress "base64"
set success [CkCompression_DecompressBytesENC $compress $compressedBase64 $uncompressedBytes]
CkBinData_AppendBinary $binData2 $uncompressedBytes
# Show the uncompressed bytes in hex format:
puts [CkBinData_getEncoded $binData2 hex]
puts "--"

# Decompress the hex..
CkCompression_put_EncodingMode $compress "hex"
set success [CkCompression_DecompressBytesENC $compress $compressedHex $uncompressedBytes]
CkBinData_Clear $binData2
CkBinData_AppendBinary $binData2 $uncompressedBytes
# Show the uncompressed bytes in hex format:
puts [CkBinData_getEncoded $binData2 hex]
puts "--"

delete_CkBinData $binData
delete_CkCompression $compress
delete_CkByteData $uncompressedBytes
delete_CkBinData $binData2