(Visual FoxPro) Unzip Files to Byte Array

Demonstrates how to unzip each file contained in a .zip to an in-memory byte array.

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

LOCAL loZip
LOCAL lnSuccess
LOCAL lnNumEntries
LOCAL i
LOCAL loEntry
LOCAL loFileData

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
loZip = CreateObject('Chilkat.Zip')

lnSuccess = loZip.OpenZip("qa_data/zips/test.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Iterate of each entry in the zip.
* An entry can be a file or directory entry.  For each file, unzip to a byte array.
lnNumEntries = loZip.NumEntries
? "NumEntries = " + STR(lnNumEntries)
i = 0
DO WHILE i < lnNumEntries
    loEntry = loZip.GetEntryByIndex(i)
    IF (loEntry.IsDirectory = 0) THEN
        loFileData = loEntry.Inflate()
        * Do whatever you wish with the file data...
    ENDIF

    RELEASE loEntry
    i = i + 1
ENDDO

loZip.CloseZip()

? "Finished."

RELEASE loZip