Class TMimeDecodeForm (unit Pop3Mim1) |
Inherits from
TForm
procedure ClearButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DecodeButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1HeaderBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1HeaderEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1HeaderLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartHeaderBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartHeaderEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartHeaderLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartLine(Sender: TObject; Data: PChar;
DataLen: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Display(Msg: String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ClearButton : TButton;
DecodeButton : TButton;
FileEdit : TEdit;
Label1 : TLabel;
Memo1 : TMemo;
MimeDecode1 : TMimeDecode;
Panel1 : TPanel;
SaveToFileCheckBox : TCheckBox;
FDstStream : TStream;
FIniFileName : String;
FInitialized : Boolean;
procedure ClearButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DecodeButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1HeaderBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1HeaderEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1HeaderLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartHeaderBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartHeaderEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartHeaderLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MimeDecode1PartLine(Sender: TObject; Data: PChar;
DataLen: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Display(Msg: String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ClearButton : TButton;
DecodeButton : TButton;
FileEdit : TEdit;
Label1 : TLabel;
Memo1 : TMemo;
MimeDecode1 : TMimeDecode;
Panel1 : TPanel;
SaveToFileCheckBox : TCheckBox;
FDstStream : TStream;
FIniFileName : String;
FInitialized : Boolean;