(Visual FoxPro) 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

LOCAL lnSuccess
LOCAL loZip
LOCAL loBd

lnSuccess = 0

* Create a new ZIP archive.
loZip = CreateObject('Chilkat.Zip')

lnSuccess = loZip.NewZip("inMemoryData.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Create a BinData object containing binary content.
loBd = CreateObject('Chilkat.BinData')

* Append some bytes as hexadecimal.
* The decoded bytes will become the contents of the ZIP entry.
lnSuccess = loBd.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
IF (lnSuccess = 0) THEN
    ? loBd.LastErrorText
    RELEASE loZip
    RELEASE loBd
    CANCEL
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.
lnSuccess = loZip.AddBd("data/binary.dat",loBd)
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    RELEASE loBd
    CANCEL
ENDIF

* Write the ZIP archive to disk and close it.
lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    RELEASE loBd
    CANCEL
ENDIF

? "ZIP archive created successfully."

RELEASE loZip
RELEASE loBd