B4X

Gzip Compress In Memory and Base64 Encode

See more Gzip Examples

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

Dim success As Boolean = False

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

Dim gzip As ChilkatGzip
gzip.Initialize("gzip")

'  This example will load a file into the fileData object.
'  Your application might load fileData from other sources..
Dim fileData As ChilkatBinData
fileData.Initialize
success = fileData.LoadFile("qa_data/xml/hamlet.xml")
If success <> True Then
    Log("Failed to load file.")
    Return
End If


'  In-place compress the contents of fileData
success = gzip.CompressBd(fileData)
If success <> True Then
    Log(gzip.LastErrorText)
    Return
End If


'  Get the base64 encoded compressed data (in a single line).
Dim strBase64 As String = fileData.GetEncoded("base64")
Log(strBase64)
Log("--------")

'  To get the base64 in multiple lines, as it might appear in MIME,
'  use "base64-mime".
Dim strBase64MultiLine As String = fileData.GetEncoded("base64-mime")
Log(strBase64MultiLine)