(Tcl) Create a Zip Entirely in Memory

Demonstrates how to create a .zip from in-memory byte data and strings, and to write the .zip to an in-memory image.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

#  This example requires the Chilkat API to have been previously unlocked.
#  See Global Unlock Sample for sample code.

set crypt [new_CkCrypt2]

set zip [new_CkZip]

set success [CkZip_NewZip $zip "test.zip"]
if {[expr $success != 1]} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkCrypt2 $crypt
    delete_CkZip $zip
    exit
}

#  Add the bytes 0x00 0x01 0x02 0x03 ... 0x0F as a file in the .zip
set binFileData [new_CkByteData]

set success [CkCrypt2_Decode $crypt "000102030405060708090A0B0C0D0E0F" "hex" $binFileData]
# entry is a CkZipEntry
set entry [CkZip_AppendData $zip "binaryData.dat" $binFileData]
delete_CkZipEntry $entry

#  Add the string "Hello World!" to the .zip
set entry [CkZip_AppendString2 $zip "helloWorld.txt" "Hello World!" "utf-8"]
delete_CkZipEntry $entry

set zipFileInMemory [new_CkByteData]

set success [CkZip_WriteToMemory $zip $zipFileInMemory]

#  We could save these files to a file, and it is a valid .zip
set fac [new_CkFileAccess]

set success [CkFileAccess_WriteEntireFile $fac "test.zip" $zipFileInMemory]
if {[expr $success != 1]} then {
    puts [CkFileAccess_lastErrorText $fac]
    delete_CkCrypt2 $crypt
    delete_CkZip $zip
    delete_CkByteData $binFileData
    delete_CkByteData $zipFileInMemory
    delete_CkFileAccess $fac
    exit
}

puts "Zip Created!"

delete_CkCrypt2 $crypt
delete_CkZip $zip
delete_CkByteData $binFileData
delete_CkByteData $zipFileInMemory
delete_CkFileAccess $fac