(Lianja) Gzip Compress In Memory and Base64 Encode

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loGzip = createobject("CkGzip")

// This example will load a file into the fileData object.
// Your application might load fileData from other sources..
loFileData = createobject("CkBinData")
llSuccess = loFileData.LoadFile("qa_data/xml/hamlet.xml")
if (llSuccess <> .T.) then
    ? "Failed to load file."
    release loGzip
    release loFileData
    return
endif

// In-place compress the contents of fileData
llSuccess = loGzip.CompressBd(loFileData)
if (llSuccess <> .T.) then
    ? loGzip.LastErrorText
    release loGzip
    release loFileData
    return
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