(PowerBuilder) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
integer li_Success
oleobject loo_Zip
oleobject loo_Zip2
oleobject loo_Entry
string ls_B64

li_Success = 0

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

loo_Zip = create oleobject
li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip")
if li_rc < 0 then
    destroy loo_Zip
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Zip.NewZip("c:/temp/sampleText.zip")
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

// Add a small text file from memory.
// The text is stored in the ZIP as "hello.txt".
li_Success = loo_Zip.AddString("hello.txt","Hello from a ZIP entry!","utf-8")
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

// Write the ZIP archive to disk and close it.
li_Success = loo_Zip.WriteZipAndClose()
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

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

loo_Zip2 = create oleobject
li_rc = loo_Zip2.ConnectToNewObject("Chilkat.Zip")

li_Success = loo_Zip2.OpenZip("c:/temp/sampleText.zip")
if li_Success = 0 then
    Write-Debug loo_Zip2.LastErrorText
    destroy loo_Zip
    destroy loo_Zip2
    return
end if

// Get the text file entry.
loo_Entry = create oleobject
li_rc = loo_Entry.ConnectToNewObject("Chilkat.ZipEntry")

li_Success = loo_Zip2.EntryOf("hello.txt",loo_Entry)

if li_Success = 0 then
    Write-Debug "Entry not found."
    destroy loo_Zip
    destroy loo_Zip2
    destroy loo_Entry
    return
end if

// 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!".
ls_B64 = loo_Entry.CopyToBase64()

Write-Debug "Base64 compressed ZIP entry data:"
Write-Debug ls_B64

loo_Zip2.CloseZip()

Write-Debug "Done."


destroy loo_Zip
destroy loo_Zip2
destroy loo_Entry