(Visual FoxPro) Unzip Binary File to Stream

Demonstrates how to unzip a large binary file to a stream to allow the application to process the uncompressed bytes chunk by chunk.

Note: This example requires Chilkat v9.5.0.67 or greater.

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

LOCAL loZip
LOCAL lnSuccess
LOCAL loEntry
LOCAL loDataStream
LOCAL loUnzipTask
LOCAL loFac
LOCAL loBd

* This requires the Chilkat Zip API to have been previously unlocked.
* See Unlock Chilkat Zip for sample code.

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

* First open a .zip.
lnSuccess = loZip.OpenZip("qa_data/zips/big.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Get the entry to be unzipped to a stream..
loEntry = loZip.GetEntryByIndex(0)
IF (loZip.LastMethodSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

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

loUnzipTask = loEntry.UnzipToStreamAsync(loDataStream)
IF (loEntry.LastMethodSuccess <> 1) THEN
    ? loEntry.LastErrorText
    RELEASE loEntry
    RELEASE loZip
    RELEASE loDataStream
    CANCEL
ENDIF

* Start the background unzip thread.
loUnzipTask.Run()

* We'll read the uncompressed data chunk-by-chunk and write to an output file.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess')
loFac = CreateObject('Chilkat.FileAccess')
lnSuccess = loFac.OpenForWrite("qa_output/out.dat")
IF (lnSuccess <> 1) THEN
    ? loFac.LastErrorText
    RELEASE loEntry
    RELEASE loZip
    RELEASE loDataStream
    RELEASE loFac
    CANCEL
ENDIF

* Read the stream.  (this is reading the unzipped file data)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')
DO WHILE loDataStream.EndOfStream <> 1
    * Get the next chunk of decompressed bytes.
    loDataStream.ReadBd(loBd)
    * Do something with it..
    * In this simple example, we'll just write to the file.
    loFac.FileWriteBd(loBd,0,0)
    * Clear for the next read.
    loBd.Clear()
ENDDO

loFac.FileClose()

RELEASE loEntry
RELEASE loUnzipTask
? "Success."

RELEASE loZip
RELEASE loDataStream
RELEASE loFac
RELEASE loBd