(PowerBuilder) Decompress Bytes

Demonstrates how to decompress binary data.

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

integer li_rc
oleobject loo_Fac
oleobject loo_Compress
integer li_Success

// 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
// Use "Chilkat_9_5_0.FileAccess" for versions of Chilkat < 10.0.0
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
// Use "Chilkat_9_5_0.Compression" for versions of Chilkat < 10.0.0
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