Lianja

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.

Lianja

llSuccess = .F.

// Create a new ZIP archive.
loZip = createobject("CkZip")

llSuccess = loZip.NewZip("inMemoryData.zip")
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    return
endif

// Create a BinData object containing binary content.
loBd = createobject("CkBinData")

// Append some bytes as hexadecimal.
// The decoded bytes will become the contents of the ZIP entry.
llSuccess = loBd.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
if (llSuccess = .F.) then
    ? loBd.LastErrorText
    release loZip
    release loBd
    return
endif

// Add the BinData contents as a file entry within the ZIP.
// The file will be stored as "data/binary.dat" inside the ZIP archive.
llSuccess = loZip.AddBd("data/binary.dat",loBd)
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    release loBd
    return
endif

// Write the ZIP archive to disk and close it.
llSuccess = loZip.WriteZipAndClose()
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    release loBd
    return
endif

? "ZIP archive created successfully."


release loZip
release loBd