Visual FoxPro

Unzip a ZIP Entry Directly into a BinData Object Using ZipEntry.UnzipToBd

See more Zip Examples

This example demonstrates how to use the ZipEntry.UnzipToBd method to inflate a ZIP entry directly into a BinData object.

The entry contents are uncompressed entirely in memory without creating a file on disk.

This is useful when:

• Processing ZIP entry data entirely in memory
• Avoiding temporary filesystem files
• Working with binary files such as images, PDFs, or certificates
• Passing uncompressed ZIP data directly to other APIs

The example opens a ZIP archive, locates a PDF entry, inflates it into a BinData object, and then writes the uncompressed bytes to a new file.

Suppose the ZIP archive contains:

docs/report.pdf

The entry is uncompressed directly into memory before optionally being saved to:

qa_output/report.pdf

Visual FoxPro

LOCAL lnSuccess
LOCAL loZip
LOCAL loEntry
LOCAL loPdfData

lnSuccess = 0

loZip = CreateObject('Chilkat.Zip')

* Open an existing ZIP archive.
lnSuccess = loZip.OpenZip("qa_data/zips/documents.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Locate the PDF entry within the ZIP archive.
loEntry = CreateObject('Chilkat.ZipEntry')

lnSuccess = loZip.EntryOf("docs/report.pdf",loEntry)
IF (lnSuccess = 0) THEN
    ? "ZIP entry not found."
    loZip.CloseZip()
    RELEASE loZip
    RELEASE loEntry
    CANCEL
ENDIF

* ------------------------------------------------------------
* Inflate the ZIP entry directly into a BinData object.
* 
* The uncompressed bytes are stored entirely in memory.
* 
loPdfData = CreateObject('Chilkat.BinData')

lnSuccess = loEntry.UnzipToBd(loPdfData)
IF (lnSuccess = 0) THEN
    ? loEntry.LastErrorText
    RELEASE loZip
    RELEASE loEntry
    RELEASE loPdfData
    CANCEL
ENDIF

? "Uncompressed size = " + STR(loPdfData.NumBytes)
? ""

* ------------------------------------------------------------
* Optionally save the uncompressed bytes to a file.
* 
lnSuccess = loPdfData.WriteFile("qa_output/report.pdf")
IF (lnSuccess = 0) THEN
    ? loPdfData.LastErrorText
    RELEASE loZip
    RELEASE loEntry
    RELEASE loPdfData
    CANCEL
ENDIF

loZip.CloseZip()

? "PDF extracted successfully."

RELEASE loZip
RELEASE loEntry
RELEASE loPdfData