.bz2 Compress Memory to File

Compress in-memory data to a .bz2 file.

Download Chilkat FileAccess ActiveX (freeware)

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
LOCAL loDataToCompress
LOCAL loFac

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

loFac = CreateObject('Chilkat.FileAccess')
loDataToCompress = loFac.ReadEntireFile("hamlet.xml")

lnSuccess = loBz2.CompressMemToFile(loDataToCompress,"hamlet.xml.bz2")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loBz2.LastErrorText)
    QUIT
ENDIF

=MESSAGEBOX("Success!")