(Tcl) Decompress Gzip Data In-Place Using BinData

See more Gzip Examples

This example demonstrates how to use the UncompressBd method to decompress Gzip data stored in a BinData object.

The compressed .gz file is first loaded into memory. The UncompressBd method then decompresses the data in-place, meaning the original compressed bytes in the BinData object are replaced with the uncompressed data.

After decompression, the example writes the resulting data to a file. This approach is useful when working entirely in memory before saving or further processing the uncompressed data.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

# This example demonstrates how to decompress Gzip data stored in a BinData object.
# The decompression is done in-place, replacing the compressed data with the original data.

set gzip [new_CkGzip]

set bd [new_CkBinData]

# Load a .gz file into BinData:
set success [CkBinData_LoadFile $bd "example.txt.gz"]
if {$success == 0} then {
    puts [CkBinData_lastErrorText $bd]
    delete_CkGzip $gzip
    delete_CkBinData $bd
    exit
}

puts "Compressed size (bytes): [CkBinData_get_NumBytes $bd]"

# Uncompress the data in-place:
set success [CkGzip_UncompressBd $gzip $bd]
if {$success == 0} then {
    puts [CkGzip_lastErrorText $gzip]
    delete_CkGzip $gzip
    delete_CkBinData $bd
    exit
}

puts "Decompressed size (bytes): [CkBinData_get_NumBytes $bd]"

# Save the uncompressed data to a file:
set success [CkBinData_WriteFile $bd "example.txt"]
if {$success == 0} then {
    puts [CkBinData_lastErrorText $bd]
    delete_CkGzip $gzip
    delete_CkBinData $bd
    exit
}

puts "File successfully uncompressed to example.txt"

delete_CkGzip $gzip
delete_CkBinData $bd