(Tcl) Gzip Compress In Memory and Base64 Encode

Demonstrates how to Gzip compress in-memory data and then encode the compressed data to base64.

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 gzip [new_CkGzip]

# This example will load a file into the fileData object.
# Your application might load fileData from other sources..
set fileData [new_CkBinData]

set success [CkBinData_LoadFile $fileData "qa_data/xml/hamlet.xml"]
if {$success != 1} then {
    puts "Failed to load file."
    delete_CkGzip $gzip
    delete_CkBinData $fileData
    exit
}

# In-place compress the contents of fileData
set success [CkGzip_CompressBd $gzip $fileData]
if {$success != 1} then {
    puts [CkGzip_lastErrorText $gzip]
    delete_CkGzip $gzip
    delete_CkBinData $fileData
    exit
}

# Get the base64 encoded compressed data (in a single line).
set strBase64 [CkBinData_getEncoded $fileData "base64"]
puts "$strBase64"
puts "--------"

# To get the base64 in multiple lines, as it might appear in MIME,
# use "base64-mime".
set strBase64MultiLine [CkBinData_getEncoded $fileData "base64-mime"]
puts "$strBase64MultiLine"

delete_CkGzip $gzip
delete_CkBinData $fileData