(Tcl) Get Compressed ZIP Entry Data as Base64 Using ZipEntry.CopyToBase64

See more Zip Examples

This example creates a small ZIP archive containing a text file added from memory, writes the ZIP to disk, re-opens it, and then uses ZipEntry.CopyToBase64 to retrieve the compressed data for the text file as a Base64-encoded string.

The Base64 string returned by CopyToBase64 represents the compressed bytes stored for the entry inside the ZIP archive. It is not the original uncompressed text data.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

# ------------------------------------------------------------
# First create a sample ZIP archive containing a small text file.

set zip [new_CkZip]

set success [CkZip_NewZip $zip "c:/temp/sampleText.zip"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

# Add a small text file from memory.
# The text is stored in the ZIP as "hello.txt".
set success [CkZip_AddString $zip "hello.txt" "Hello from a ZIP entry!" "utf-8"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    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
    exit
}

# ------------------------------------------------------------
# Now open the ZIP archive we just created.

set zip2 [new_CkZip]

set success [CkZip_OpenZip $zip2 "c:/temp/sampleText.zip"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip2]
    delete_CkZip $zip
    delete_CkZip $zip2
    exit
}

# Get the text file entry.
set entry [new_CkZipEntry]

set success [CkZip_EntryOf $zip2 "hello.txt" $entry]

if {$success == 0} then {
    puts "Entry not found."
    delete_CkZip $zip
    delete_CkZip $zip2
    delete_CkZipEntry $entry
    exit
}

# Get the compressed ZIP entry data as Base64.
# 
# This is the compressed data stored inside the ZIP file,
# not the uncompressed text "Hello from a ZIP entry!".
set b64 [CkZipEntry_copyToBase64 $entry]

puts "Base64 compressed ZIP entry data:"
puts "$b64"

CkZip_CloseZip $zip2

puts "Done."

delete_CkZip $zip
delete_CkZip $zip2
delete_CkZipEntry $entry