.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)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATFILEACCESSLib_TLB,
    CHILKATBZ2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
bz2: TChilkatBz2;
success: Integer;
dataToCompress: Array of Byte;
fac: TCkFileAccess;

begin
bz2 := TChilkatBz2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := bz2.UnlockComponent('Anything for 30-day trial.');
if (success <> 1) then
  begin
    ShowMessage(bz2.LastErrorText);
    Exit;
  end;

fac := TCkFileAccess.Create(Self);
dataToCompress := fac.ReadEntireFile('hamlet.xml');

success := bz2.CompressMemToFile(dataToCompress,'hamlet.xml.bz2');
if (success <> 1) then
  begin
    ShowMessage(bz2.LastErrorText);
    Exit;
  end;

ShowMessage('Success!');
end;