(Tcl) Compress Bytes

Demonstrates how to compress binary data.

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 fac [new_CkFileAccess]

set fileBytes [new_CkByteData]

set success [CkFileAccess_ReadEntireFile $fac "qa_data/bmp/big.bmp" $fileBytes]
if {[CkFileAccess_get_LastMethodSuccess $fac] != 1} then {
    puts [CkFileAccess_lastErrorText $fac]
    delete_CkFileAccess $fac
    delete_CkByteData $fileBytes
    exit
}

set compress [new_CkCompression]

CkCompression_put_Algorithm $compress "deflate"

set compressedBytes [new_CkByteData]

set success [CkCompression_CompressBytes $compress $fileBytes $compressedBytes]
if {[CkCompression_get_LastMethodSuccess $compress] != 1} then {
    puts [CkCompression_lastErrorText $compress]
    delete_CkFileAccess $fac
    delete_CkByteData $fileBytes
    delete_CkCompression $compress
    delete_CkByteData $compressedBytes
    exit
}

set success [CkFileAccess_WriteEntireFile $fac "qa_output/compressedBmp.dat" $compressedBytes]
if {[CkFileAccess_get_LastMethodSuccess $fac] != 1} then {
    puts [CkFileAccess_lastErrorText $fac]
    delete_CkFileAccess $fac
    delete_CkByteData $fileBytes
    delete_CkCompression $compress
    delete_CkByteData $compressedBytes
    exit
}


delete_CkFileAccess $fac
delete_CkByteData $fileBytes
delete_CkCompression $compress
delete_CkByteData $compressedBytes