Delphi ActiveX

UU Encoding and Decoding

See more Encryption Examples

Demonstrates how to UU encode and decode. Delphi ActiveX

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
crypt: TChilkatCrypt2;
s1: WideString;
s2: WideString;
s3: WideString;
crypt2: TChilkatCrypt2;

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

crypt := TChilkatCrypt2.Create(Self);

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;