PowerBuilder

Decompress Bytes

See more Compression Examples

Demonstrates how to decompress binary data. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Fac
oleobject loo_Compress

li_Success = 0

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

//  See this example to compress bytes: Compress Bytes

loo_Fac = create oleobject
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")
if li_rc < 0 then
    destroy loo_Fac
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_CompressedBytes = loo_Fac.ReadEntireFile("qa_data/compressed/compressedBmp.dat")
if loo_Fac.LastMethodSuccess <> 1 then
    Write-Debug loo_Fac.LastErrorText
    destroy loo_Fac
    return
end if

loo_Compress = create oleobject
li_rc = loo_Compress.ConnectToNewObject("Chilkat.Compression")

loo_Compress.Algorithm = "deflate"

loo_DecompressedBytes = loo_Compress.DecompressBytes(loo_CompressedBytes)
if loo_Compress.LastMethodSuccess <> 1 then
    Write-Debug loo_Compress.LastErrorText
    destroy loo_Fac
    destroy loo_Compress
    return
end if

li_Success = loo_Fac.WriteEntireFile("qa_output/decompressed.bmp",loo_DecompressedBytes)
if loo_Fac.LastMethodSuccess <> 1 then
    Write-Debug loo_Fac.LastErrorText
    destroy loo_Fac
    destroy loo_Compress
    return
end if



destroy loo_Fac
destroy loo_Compress