PPMD Compress File

Demonstrates how to use the PPMD compression algorithm to compress a file. This code is capable of compressing any size file because the file data is compressed from input to output in a streaming mode. The output file does not contain any "PPMD" header -- it is purely PPMD compressed data.

Download Chilkat Compression ActiveX

LOCAL loCompress
LOCAL lnSuccess

loCompress = CreateObject('Chilkat.Compression')

*  Any string argument automatically begins a 30-day trial.

lnSuccess = loCompress.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Compression component unlock failed")
    QUIT
ENDIF

loCompress.Algorithm = "ppmd"

lnSuccess = loCompress.CompressFile("hamlet.xml","hamletPpmd.dat")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loCompress.LastErrorText)
    QUIT
ENDIF

*  Decompress back to the original:
lnSuccess = loCompress.DecompressFile("hamletPpmd.dat","hamletInflated.xml")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loCompress.LastErrorText)
    QUIT
ENDIF

? "Success!"