Lazarus Pascal

Compress Bytes to Base64 (or any other encoding)

See more Compression Examples

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

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.BinData,
  Chilkat.Compression;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  binData: TBinData;
  i: Integer;
  compress: TCompression;
  uncompressedBytes: TBytes;
  compressedBase64: string;
  compressedHex: string;
  binData2: TBinData;

begin
  success := False;

  //  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 := TBinData.Create;

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

  compress := TCompression.Create;
  compress.Algorithm := 'deflate';
  compress.EncodingMode := 'base64';

  uncompressedBytes := binData.GetBinary();

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

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

  //  Now decompress..
  binData2 := TBinData.Create;

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

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


  binData.Free;
  compress.Free;
  binData2.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.