(Visual FoxPro) Ungzip Base64 String

Suppose you have a gzip in base64 representation that contains a text file, such as XML. This example shows how to decompress and access the string.

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

LOCAL loGzip
LOCAL lcGzipBase64
LOCAL loBd
LOCAL lnSuccess
LOCAL lcStrXml

* 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')

lcGzipBase64 = "H4sIAAAAAAAE ... X6aZjXO3EwAA"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.AppendEncoded(lcGzipBase64,"base64")

lnSuccess = loGzip.UncompressBd(loBd)
IF (lnSuccess <> 1) THEN
    ? loGzip.LastErrorText
    RELEASE loGzip
    RELEASE loBd
    CANCEL
ENDIF

lcStrXml = loBd.GetString("utf-8")
? "XML:"
? lcStrXml

RELEASE loGzip
RELEASE loBd