Create .bz2 (BZip2) Compressed File

Compress a file to create a .bz2 compressed file.

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

LOCAL loBz2
LOCAL lnSuccess

loBz2 = CreateObject('Chilkat.Bz2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loBz2.UnlockComponent("Anything for 30-day trial.")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loBz2.LastErrorText)
    QUIT
ENDIF

*  Any type of file may be compressed.
*  The .bz2 file format is not an archive.  Only a single
*  file may be compressed.  It is for this reason that you'll
*  often see TAR files compressed with BZip2 (i.e. a file
*  ending in .tar.bz2.

*  This example will compress an XML file.
*  The 1st arg is the file to compress, the 2nd arg is
*  the output (.bz2) filename.
lnSuccess = loBz2.CompressFile("hamlet.xml","hamlet.xml.bz2")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loBz2.LastErrorText)
    QUIT
ENDIF

*  There is no limitation on the size of files that may be compressed.
=MESSAGEBOX("Success!")