Visual FoxPro

Ungzip Base64 String

See more Gzip Examples

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loGzip
LOCAL lcGzipBase64
LOCAL loBd
LOCAL lcStrXml

lnSuccess = 0

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

loGzip = CreateObject('Chilkat.Gzip')

lcGzipBase64 = "H4sIAAAAAAAE ... X6aZjXO3EwAA"

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