(Lianja) Decompress Bytes

Demonstrates how to decompress binary data.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// 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

loFac = createobject("CkFileAccess")

loCompressedBytes = loFac.ReadEntireFile("qa_data/compressed/compressedBmp.dat")
if (loFac.LastMethodSuccess <> .T.) then
    ? loFac.LastErrorText
    release loFac
    return
endif

loCompress = createobject("CkCompression")
loCompress.Algorithm = "deflate"

loDecompressedBytes = loCompress.DecompressBytes(loCompressedBytes)
if (loCompress.LastMethodSuccess <> .T.) then
    ? loCompress.LastErrorText
    release loFac
    release loCompress
    return
endif

llSuccess = loFac.WriteEntireFile("qa_output/decompressed.bmp",loDecompressedBytes)
if (loFac.LastMethodSuccess <> .T.) then
    ? loFac.LastErrorText
    release loFac
    release loCompress
    return
endif



release loFac
release loCompress