Visual Basic 6.0

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 Basic 6.0

Dim success As Long
success = 0

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

Dim gzip As New ChilkatGzip

Dim gzipBase64 As String
gzipBase64 = "H4sIAAAAAAAE ... X6aZjXO3EwAA"

Dim bd As New ChilkatBinData
success = bd.AppendEncoded(gzipBase64,"base64")

success = gzip.UncompressBd(bd)
If (success <> 1) Then
    Debug.Print gzip.LastErrorText
    Exit Sub
End If

Dim strXml As String
strXml = bd.GetString("utf-8")
Debug.Print "XML:"
Debug.Print strXml