(Visual FoxPro) Decompress Gzip Data In-Place Using BinData

See more Gzip Examples

This example demonstrates how to use the UncompressBd method to decompress Gzip data stored in a BinData object.

The compressed .gz file is first loaded into memory. The UncompressBd method then decompresses the data in-place, meaning the original compressed bytes in the BinData object are replaced with the uncompressed data.

After decompression, the example writes the resulting data to a file. This approach is useful when working entirely in memory before saving or further processing the uncompressed data.

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

LOCAL lnSuccess
LOCAL loGzip
LOCAL loBd

lnSuccess = 0

* This example demonstrates how to decompress Gzip data stored in a BinData object.
* The decompression is done in-place, replacing the compressed data with the original data.

loGzip = CreateObject('Chilkat.Gzip')
loBd = CreateObject('Chilkat.BinData')

* Load a .gz file into BinData:
lnSuccess = loBd.LoadFile("example.txt.gz")
IF (lnSuccess = 0) THEN
    ? loBd.LastErrorText
    RELEASE loGzip
    RELEASE loBd
    CANCEL
ENDIF

? "Compressed size (bytes): " + STR(loBd.NumBytes)

* Uncompress the data in-place:
lnSuccess = loGzip.UncompressBd(loBd)
IF (lnSuccess = 0) THEN
    ? loGzip.LastErrorText
    RELEASE loGzip
    RELEASE loBd
    CANCEL
ENDIF

? "Decompressed size (bytes): " + STR(loBd.NumBytes)

* Save the uncompressed data to a file:
lnSuccess = loBd.WriteFile("example.txt")
IF (lnSuccess = 0) THEN
    ? loBd.LastErrorText
    RELEASE loGzip
    RELEASE loBd
    CANCEL
ENDIF

? "File successfully uncompressed to example.txt"

RELEASE loGzip
RELEASE loBd