Интернет решения от доктора Боба - [4]

   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};

1.1.6. Свойства

TUUCode компонент имеет восемь опубликованных свойств (мы здесь опустим описание обработчиков событий):

Свойство About содержит информацию о правах и версии.

Свойство Active может использоваться для вызова преобразования UUCode во время разработки (design time), подобно свойству Active у TTables и Tquery компонент.

Свойство Algorithm содержит информацию об алгоритме кодирования для метода UUCode. Реализованы следующие алгоритмы:

· filecopy – простое копирование файла InputFile в файл OutputFile

· uuencode – копирование файла с помощью алгоритма uuencode из файла InputFile и генерация файла OutputFile

· uudecode – копирование файла с помощью алгоритма uudecode из файла InputFile (и генерация файла OutputFile, если не используется Headers)

· xxencode – копирование файла с помощью алгоритма xxencode из файла InputFile и генерация файла OutputFile

· xxdecode – копирование файла с помощью алгоритма xxdecode из файла InputFile (и генерация файла OutputFile, если не используется Headers)

· Base64encode – копирование файла с помощью алгоритма Base64 encode InputFile и генерация файла OutputFile

· Base64decode – копирование файла с помощью алгоритма Base64 decode InputFile (и генерация файла OutputFile, если не используется Headers)

Свойство FileMode содержит шестнадцатеричное значение режима файла (обычно 0644 или 0755). Заметим, что режим задается с помощью десятичных цифр.

Свойство Headers может быть использовано для указания должны или нет использоваться заголовки begin-end в алгоритме кодирования или ожидаются в алгоритме декодирования. Значение по умолчанию True.

Свойство InputFile содержит имя входного файла для кодирования/декодирования.

Свойство OutputFile содержит имя выходного файла, в который будет записан результат кодирования. Заметим, что свойство OutputFile игнорируется при декодировании, если входной файл имеет заголовки, которые определяют имя файла для декодирования.

Свойство UnixCRLF используется для указания разделителей строк специфичных для Unix систем, только Line Feed (перевод строки) или DOS/Windows, где используется пара Carriage Return/Line Feed (возврат каретки/ перевод строки). По умолчанию CRLF, но как минимум вы имеете возможность кодировать и декодировать файлы для Unix систем.

1.1.7. Методы

Компонент TUUCode имеет три метода; один public конструктор, один protected метод и один public метод:

Конструктор Create используется для создания компонента и инициализации свойств ао умолчанию (default) для Active, FileMode, Headers и About.

Метод Activate используется для вызова метода UUCode во время разработки, когда вы изменяете состояние свойства в True. При необходимости вы можете вызвать этот метод напрямую, так как это проще вызова метода UUCode.

Метод UUCode это метод, в котором в действительности производится кодирование/декодирование входного файла (InputFile), базируясь на состоянии других свойств компонента TUUCode.

1.1.8. События

Компонент TUUCode имеет только одно такое свойство:

Событие OnProgress может использоваться как callback функция, позволяющая компоненту TUUCode выдавать текущий процент обработки входного файла. Использовать эту информацию вы можете с компонентами 16-битным TGauge или 32-битным TprogressBar, для примера показывая прогресс выполнения кодирования/декодирования от 0 до 100%.