(PowerBuilder) Add Binary Data to a ZIP Using AddBd

See more Zip Examples

This example demonstrates how to use the AddBd method to add binary data from a BinData object as a file entry within a ZIP archive.

The data is created entirely in memory, added to the ZIP as data/binary.dat, and then written to disk.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
integer li_Success
oleobject loo_Zip
oleobject loo_Bd

li_Success = 0

// Create a new ZIP archive.
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("inMemoryData.zip")
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

// Create a BinData object containing binary content.
loo_Bd = create oleobject
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")

// Append some bytes as hexadecimal.
// The decoded bytes will become the contents of the ZIP entry.
li_Success = loo_Bd.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
if li_Success = 0 then
    Write-Debug loo_Bd.LastErrorText
    destroy loo_Zip
    destroy loo_Bd
    return
end if

// Add the BinData contents as a file entry within the ZIP.
// The file will be stored as "data/binary.dat" inside the ZIP archive.
li_Success = loo_Zip.AddBd("data/binary.dat",loo_Bd)
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    destroy loo_Bd
    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
    destroy loo_Bd
    return
end if

Write-Debug "ZIP archive created successfully."


destroy loo_Zip
destroy loo_Bd