PowerBuilder

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. PowerBuilder

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

li_Success = 0

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

loo_Gzip = create oleobject
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
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