(Visual FoxPro) Decompress Large Binary File in Blocks

Decompresses a large binary file in blocks. This example uses BeginDecompressBytes, MoreDecompressBytes, and EndDecompressBytes.

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

LOCAL loFacSrc
LOCAL loFacDest
LOCAL lnSuccess
LOCAL lnBlockSize
LOCAL lnNumBlocks
LOCAL loCompress
LOCAL loDecompressedBytes
LOCAL loCompressedBytes
LOCAL i

* This example requires 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.FileAccess')
loFacSrc = CreateObject('Chilkat.FileAccess')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess')
loFacDest = CreateObject('Chilkat.FileAccess')

* Open a previously compressed file for decompressing.
* See Compress Large File in Blocks

lnSuccess = loFacSrc.OpenForRead("qa_data/bmp/compressedBmp.dat")
IF (lnSuccess <> 1) THEN
    ? loFacSrc.LastErrorText
    RELEASE loFacSrc
    RELEASE loFacDest
    CANCEL
ENDIF

* If we compress in 32K chunks, find out how many blocks there will be.
lnBlockSize = 32768
lnNumBlocks = loFacSrc.GetNumBlocks(lnBlockSize)

* Open an output file for the decompressed data.
lnSuccess = loFacDest.OpenForWrite("qa_output/decompressed.bmp")
IF (lnSuccess <> 1) THEN
    ? loFacDest.LastErrorText
    RELEASE loFacSrc
    RELEASE loFacDest
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Compression')
loCompress = CreateObject('Chilkat.Compression')
loCompress.Algorithm = "deflate"

i = 0
DO WHILE i < lnNumBlocks
    loCompressedBytes = loFacSrc.ReadBlock(i,lnBlockSize)
    IF (i = 0) THEN
        loDecompressedBytes = loCompress.BeginDecompressBytes(loCompressedBytes)
    ELSE
        loDecompressedBytes = loCompress.MoreDecompressBytes(loCompressedBytes)
    ENDIF

    loFacDest.FileWrite(loDecompressedBytes)

    i = i + 1
ENDDO

* At the very end, flush any remaining decompressed bytes, if any.
loDecompressedBytes = loCompress.EndDecompressBytes()
loFacDest.FileWrite(loDecompressedBytes)

loFacSrc.FileClose()
loFacDest.FileClose()

? "Finished decompressing file."

RELEASE loFacSrc
RELEASE loFacDest
RELEASE loCompress