UU Encoding and Decoding

Demonstrates how to UU encode and decode.

Download Chilkat Crypt ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
s1: String;
s2: String;
s3: String;
crypt2: TChilkatCrypt2;

begin
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.LastErrorText);
    Exit;
  end;

s1 := 'This string is to be UU encoded';

crypt.UuMode := '666';
crypt.UuFilename := 'something.txt';

//  UU encode:
s2 := crypt.EncodeString(s1,'ansi','uu');

//  Note: Call crypt.Encode instead of crypt.EncodeString
//  to UU encode binary bytes (i.e. non-text binary data).

Memo1.Lines.Add(s2);

//  UU decode:
crypt2 := TChilkatCrypt2.Create(Self);
s3 := crypt2.DecodeString(s2,'ansi','uu');

//  Note: Likewise, call crypt.Decode to decode non-text binary data.

Memo1.Lines.Add(s3);

//  Show the file permissions mode and filename found
//  in the UU encoded data:
Memo1.Lines.Add('UuMode = ' + crypt2.UuMode);
Memo1.Lines.Add('UuFilename = ' + crypt2.UuFilename);

end;