(Delphi ActiveX) Compress Bytes to Base64 (or any other encoding)

Compresses bytes to base64 or any other encoding. Also decompress to return the original.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
binData: TChilkatBinData;
i: Integer;
compress: TChilkatCompression;
uncompressedBytes: Array of Byte;
compressedBase64: WideString;
compressedHex: WideString;
binData2: TChilkatBinData;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// First create some binary data to compress.
binData := TChilkatBinData.Create(Self);

for i := 1 to 16 do
  begin
    binData.AppendEncoded('000102030405060708090A0B0C0D0E0F','hex');
  end;

compress := TChilkatCompression.Create(Self);
compress.Algorithm := 'deflate';
compress.EncodingMode := 'base64';

uncompressedBytes := binData.GetBinary();

// Compress and return the compressed bytes in base64 format.
compressedBase64 := compress.CompressBytesENC(uncompressedBytes);
Memo1.Lines.Add('compressed and base64 encoded: ' + compressedBase64);

// Compress and return in hex format:
compress.EncodingMode := 'hex';
compressedHex := compress.CompressBytesENC(uncompressedBytes);
Memo1.Lines.Add('compressed and hex encoded: ' + compressedHex);

// Now decompress..
binData2 := TChilkatBinData.Create(Self);

// Decompress the base64..
compress.EncodingMode := 'base64';
uncompressedBytes := compress.DecompressBytesENC(compressedBase64);
binData2.AppendBinary(uncompressedBytes);
// Show the uncompressed bytes in hex format:
Memo1.Lines.Add(binData2.GetEncoded('hex'));
Memo1.Lines.Add('--');

// Decompress the hex..
compress.EncodingMode := 'hex';
uncompressedBytes := compress.DecompressBytesENC(compressedHex);
binData2.Clear();
binData2.AppendBinary(uncompressedBytes);
// Show the uncompressed bytes in hex format:
Memo1.Lines.Add(binData2.GetEncoded('hex'));
Memo1.Lines.Add('--');
end;