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.

PowerBuilder

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