(Visual Basic 6.0) 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

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

Dim gzip As New ChilkatGzip

' This example will load a file into the fileData object.
' Your application might load fileData from other sources..
Dim fileData As New ChilkatBinData
Dim success As Long
success = fileData.LoadFile("qa_data/xml/hamlet.xml")
If (success <> 1) Then
    Debug.Print "Failed to load file."
    Exit Sub
End If

' In-place compress the contents of fileData
success = gzip.CompressBd(fileData)
If (success <> 1) Then
    Debug.Print gzip.LastErrorText
    Exit Sub
End If

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

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