(Visual FoxPro) Decompress Large Text File in Blocks

Decompresses a large text file in blocks, and compares the restored (decompressed) file with the original to make sure it's correct.

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

LOCAL loCompress
LOCAL lnSuccess
LOCAL loFac
LOCAL lcOriginalPath
LOCAL loFacSrc
LOCAL loFacDest
LOCAL lnBlockSize
LOCAL lnNumBlocks
LOCAL lcRestoredPath
LOCAL lcDecompressedStr
LOCAL loCompressedBytes
LOCAL i
LOCAL lnBEqualContents

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

* First, let's compress a text file.
* We'll then decompress in blocks, and compare the decompressed with the original file.

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

lnSuccess = loCompress.CompressFile("qa_data/hamlet.xml","qa_data/hamlet_compressed.dat")
IF (lnSuccess <> 1) THEN
    ? loCompress.LastErrorText
    RELEASE loCompress
    CANCEL
ENDIF

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

* Examine the uncompressed and compressed sizes:
lcOriginalPath = "qa_data/hamlet.xml"
* Note: The FileSize method returns a signed 32-bit integer.  If the file is potentially larger than 2GB, call FileSizeStr instead to return
* the size of the file as a string, then convert to an integer value.
? "uncompressed size: " + STR(loFac.FileSize(lcOriginalPath))
? "compressed size: " + STR(loFac.FileSize("qa_data/hamlet_compressed.dat"))

* Decompress in blocks..
* 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')

loFacSrc.OpenForRead("qa_data/hamlet_compressed.dat")

* 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.
lcRestoredPath = "qa_output/hamlet_restored.xml"
lnSuccess = loFacDest.OpenForWrite(lcRestoredPath)
IF (lnSuccess <> 1) THEN
    ? loFacDest.LastErrorText
    RELEASE loCompress
    RELEASE loFac
    RELEASE loFacSrc
    RELEASE loFacDest
    CANCEL
ENDIF

i = 0
DO WHILE i < lnNumBlocks
    loCompressedBytes = loFacSrc.ReadBlock(i,lnBlockSize)
    IF (i = 0) THEN
        lcDecompressedStr = loCompress.BeginDecompressString(loCompressedBytes)
    ELSE
        lcDecompressedStr = loCompress.MoreDecompressString(loCompressedBytes)
    ENDIF

    loFacDest.AppendText(lcDecompressedStr,"utf-8")

    i = i + 1
ENDDO

* At the very end, flush any remaining content, if any.
lcDecompressedStr = loCompress.EndDecompressString()
loFacDest.AppendText(lcDecompressedStr,"utf-8")

loFacSrc.FileClose()
loFacDest.FileClose()

* Examine the size of the restored file.
? "restored size: " + STR(loFac.FileSize(lcRestoredPath))

* Compare the contents of the original with the restored.
lnBEqualContents = loFac.FileContentsEqual(lcRestoredPath,lcOriginalPath)
? "Contents Equal: " + STR(lnBEqualContents)

RELEASE loCompress
RELEASE loFac
RELEASE loFacSrc
RELEASE loFacDest