(Visual FoxPro) Gzip Compress In Memory and Base64 Encode

Demonstrates how to Gzip compress in-memory data and then encode the compressed data to base64.

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

LOCAL loGzip
LOCAL loFileData
LOCAL lnSuccess
LOCAL lcStrBase64
LOCAL lcStrBase64MultiLine

* 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.Gzip')
loGzip = CreateObject('Chilkat.Gzip')

* This example will load a file into the fileData object.
* Your application might load fileData from other sources..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loFileData = CreateObject('Chilkat.BinData')
lnSuccess = loFileData.LoadFile("qa_data/xml/hamlet.xml")
IF (lnSuccess <> 1) THEN
    ? "Failed to load file."
    RELEASE loGzip
    RELEASE loFileData
    CANCEL
ENDIF

* In-place compress the contents of fileData
lnSuccess = loGzip.CompressBd(loFileData)
IF (lnSuccess <> 1) THEN
    ? loGzip.LastErrorText
    RELEASE loGzip
    RELEASE loFileData
    CANCEL
ENDIF

* Get the base64 encoded compressed data (in a single line).
lcStrBase64 = loFileData.GetEncoded("base64")
? lcStrBase64
? "--------"

* To get the base64 in multiple lines, as it might appear in MIME,
* use "base64-mime".
lcStrBase64MultiLine = loFileData.GetEncoded("base64-mime")
? lcStrBase64MultiLine

RELEASE loGzip
RELEASE loFileData