-




TBUUCode


TUUCode, Triplet2Kwartet Kwartet2Triplet, , Delphi C++Builder.

unit UUCode;

interface

uses

{$IFDEF WIN32}

Windows,

{$ELSE}

WinTypes, WinProcs,

{$ENDIF}

SysUtils, Messages, Classes, Graphics, Controls, Forms;

{$IFNDEF WIN32}

type

ShortString = String;

{$ENDIF}

type

EUUCode = class(Exception);

TAlgorithm = (filecopy, uuencode, uudecode,

xxencode, xxdecode,

Base64encode, Base64decode);

TUnixCRLF = (CRLF, LF);

TProgressEvent = procedure(Percent:Word) of Object;

TBUUCode = class(TComponent)

public

{ Public class declarations (override) }

constructor

Create(AOwner: TComponent); override;

private

{ Private field declarations }

FAbout: ShortString;

FActive: Boolean;

FAlgorithm: TAlgorithm;

FFileMode: Word;

FHeaders: Boolean;

FInputFileName: TFileName;

FOutputFileName: TFileName;

FOnProgress: TProgressEvent;

FUnixCRLF: TUnixCRLF;

{ Dummy method to get read-only About property }

procedure

Dummy(Ignore: ShortString);

protected

{ Protected Activate method }

procedure

Activate(GoActive: Boolean);

public

{ Public UUCode interface declaration }

procedure

UUCode;

published

{ Published design declarations }

property

About: ShortString read FAbout write Dummy;

property

Active: Boolean read FActive write Activate;

property

Algorithm: TAlgorithm read

Falgorithm

write FAlgorithm;

property

FileMode: Word read FFileMode write FFileMode;

property

Headers: Boolean read FHeaders write FHeaders;

property

InputFile: TFileName read

FInputFileName

write FInputFileName;

property

OutputFile: TFileName read

FOutputFileName

write FOutputFileName;

property

UnixCRLF: TUnixCRLF read FUnixCRLF write FUnixCRLF;

published

{ Published Event property }

property

OnProgress: TProgressEvent read

FOnProgress

write FOnProgress;

end {TUUCode};