(Tcl) Add Binary Data to a ZIP Using AddBd

See more Zip Examples

This example demonstrates how to use the AddBd method to add binary data from a BinData object as a file entry within a ZIP archive.

The data is created entirely in memory, added to the ZIP as data/binary.dat, and then written to disk.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

# Create a new ZIP archive.
set zip [new_CkZip]

set success [CkZip_NewZip $zip "inMemoryData.zip"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

# Create a BinData object containing binary content.
set bd [new_CkBinData]

# Append some bytes as hexadecimal.
# The decoded bytes will become the contents of the ZIP entry.
set success [CkBinData_AppendEncoded $bd "000102030405060708090A0B0C0D0E0F" "hex"]
if {$success == 0} then {
    puts [CkBinData_lastErrorText $bd]
    delete_CkZip $zip
    delete_CkBinData $bd
    exit
}

# Add the BinData contents as a file entry within the ZIP.
# The file will be stored as "data/binary.dat" inside the ZIP archive.
set success [CkZip_AddBd $zip "data/binary.dat" $bd]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    delete_CkBinData $bd
    exit
}

# Write the ZIP archive to disk and close it.
set success [CkZip_WriteZipAndClose $zip]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    delete_CkBinData $bd
    exit
}

puts "ZIP archive created successfully."

delete_CkZip $zip
delete_CkBinData $bd