Class TSmtpTestForm (unit smtptst1) |
Inherits from
TForm
procedure ClearDisplayButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ConnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MailButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SmtpClientDisplay(Sender: TObject; Msg: String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SmtpClientGetData(Sender: TObject; LineNum: Integer;
MsgLine: PChar; MaxLen: Integer; var More: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SmtpClientHeaderLine(Sender: TObject; Msg: PChar;
Size: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ClearDisplayButton : TButton;
ConnectButton : TButton;
DisconnectButton : TButton;
DisplayMemo : TMemo;
FileAttachMemo : TMemo;
FromEdit : TEdit;
HostEdit : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
MailButton : TButton;
MsgMemo : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
PortEdit : TEdit;
SignOnEdit : TEdit;
SmtpClient : TSmtpClient;
Subject : TLabel;
SubjectEdit : TEdit;
ToEdit : TEdit;
Wait1 : TWait;
procedure ClearDisplayButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ConnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MailButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SmtpClientDisplay(Sender: TObject; Msg: String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SmtpClientGetData(Sender: TObject; LineNum: Integer;
MsgLine: PChar; MaxLen: Integer; var More: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SmtpClientHeaderLine(Sender: TObject; Msg: PChar;
Size: Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ClearDisplayButton : TButton;
ConnectButton : TButton;
DisconnectButton : TButton;
DisplayMemo : TMemo;
FileAttachMemo : TMemo;
FromEdit : TEdit;
HostEdit : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
MailButton : TButton;
MsgMemo : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
PortEdit : TEdit;
SignOnEdit : TEdit;
SmtpClient : TSmtpClient;
Subject : TLabel;
SubjectEdit : TEdit;
ToEdit : TEdit;
Wait1 : TWait;