PowerBuilder

Append Text Data to an Existing ZIP Entry Using ZipEntry.AppendString

See more Zip Examples

This example demonstrates how to use the ZipEntry.AppendString method to append text data to an existing ZIP entry.

The example opens an existing ZIP archive, locates a text file entry, and appends additional text to the end of the file contents.

An important concept demonstrated by this example is that appending data to a ZIP entry transforms the entry into an in-memory Data Entry (EntryType = 2).

For example:

• If the entry is a mapped entry from an opened ZIP archive (EntryType = 0), the compressed entry is first inflated into memory.
• If the entry is a referenced filesystem file (EntryType = 1), the file contents are first loaded into memory.

The new text is then appended to the uncompressed in-memory data, and the entry becomes a Data Entry.

After the ZIP archive is rewritten, the modified entry again becomes a mapped entry stored within the ZIP archive.

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Zip
oleobject loo_Entry

li_Success = 0

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

// ------------------------------------------------------------
// Open an existing ZIP archive.
li_Success = loo_Zip.OpenZip("c:/temp/notes.zip")
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

// Locate a text file entry within the ZIP archive.
loo_Entry = create oleobject
li_rc = loo_Entry.ConnectToNewObject("Chilkat.ZipEntry")

li_Success = loo_Zip.EntryOf("notes/readme.txt",loo_Entry)

if li_Success <> 0 then

    // --------------------------------------------------------
    // At this point, the entry is a mapped entry because it
    // originates from an opened ZIP archive.
    // 
    //     EntryType = 0
    // 
    Write-Debug "Initial EntryType = " + string(loo_Entry.EntryType)

    // Append additional text to the ZIP entry.
    // 
    // The existing compressed ZIP entry is first inflated
    // into memory. The new text is then appended.
    // 
    // After AppendString is called, the entry becomes
    // an in-memory Data Entry:
    // 
    //     EntryType = 2
    // 
    li_Success = loo_Entry.AppendString("~r~nAdditional notes added later.","utf-8")

    if li_Success = 0 then
        Write-Debug loo_Zip.LastErrorText
        destroy loo_Zip
        destroy loo_Entry
        return
    end if

    Write-Debug "EntryType after AppendString = " + string(loo_Entry.EntryType)

    // --------------------------------------------------------
    // Write the modified ZIP archive to a different file.
    // 
    // Changing zip.FileName causes the ZIP archive to be
    // written to a new output file rather than overwriting
    // the original ZIP archive.
    // 
    loo_Zip.FileName = "qa_output/updatedExample.zip"

    // Rewrite the ZIP archive.
    // 
    // The modified in-memory entry is compressed and written
    // into the new ZIP archive.
    // 
    li_Success = loo_Zip.WriteZip()
    if li_Success = 0 then
        Write-Debug loo_Zip.LastErrorText
        destroy loo_Zip
        destroy loo_Entry
        return
    end if

    // After rewriting the ZIP archive, the entry again becomes
    // a mapped entry:
    // 
    //     EntryType = 0
    // 
    Write-Debug "EntryType after WriteZip = " + string(loo_Entry.EntryType)
end if

loo_Zip.CloseZip()

Write-Debug "ZIP entry updated successfully."


destroy loo_Zip
destroy loo_Entry