String Compression

Download Chilkat Crypt ActiveX

Delphi example to compress and decompress a string. This example demonstrates string-to-string compression. It is only worth doing if the input string is long enough and compresses well enough. The output of any compression algorithm is binary. To convert binary data to a printable string, some sort of encoding must be applied -- and this alway expands the size. For example, hex encoding produces a string that is 2 character for each byte (i.e. it doubles the size). Base64 encoding is a better choice because the output is 4 characters for every 3 bytes encoded.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
s: String;
compressed: String;
decompressed: String;

begin

//  The Crypt component has the BZip2 compression
//  and decompression features, combined with encoding/decoding,
//  that is required for string-to-string compression.
crypt := TChilkatCrypt2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := crypt.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Crypt component unlock failed');

  end;

s := 'A friend called me up the other day and talked about investing in a dot-com';
s := s + ' that sells lobsters. Internet lobsters. Where will this end? --Donald Trump';

//  Make this string a bit bigger...
s := s + s;
s := s + s;
s := s + s;

crypt.CryptAlgorithm := 'none';
crypt.EncodingMode := 'base64';

compressed := crypt.CompressStringENC(s);

Memo1.Lines.Add(compressed);

decompressed := crypt.InflateStringENC(compressed);

Memo1.Lines.Add(decompressed);


end;