(PowerBuilder) Ungzip Base64 String

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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Gzip
string ls_GzipBase64
oleobject loo_Bd
integer li_Success
string ls_StrXml

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

loo_Gzip = create oleobject
// Use "Chilkat_9_5_0.Gzip" for versions of Chilkat < 10.0.0
li_rc = loo_Gzip.ConnectToNewObject("Chilkat.Gzip")
if li_rc < 0 then
    destroy loo_Gzip
    MessageBox("Error","Connecting to COM object failed")
    return
end if

ls_GzipBase64 = "H4sIAAAAAAAE ... X6aZjXO3EwAA"

loo_Bd = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_Bd.AppendEncoded(ls_GzipBase64,"base64")

li_Success = loo_Gzip.UncompressBd(loo_Bd)
if li_Success <> 1 then
    Write-Debug loo_Gzip.LastErrorText
    destroy loo_Gzip
    destroy loo_Bd
    return
end if

ls_StrXml = loo_Bd.GetString("utf-8")
Write-Debug "XML:"
Write-Debug ls_StrXml


destroy loo_Gzip
destroy loo_Bd