Class TPOP3ExcercizerForm (unit PopTst1) |
Inherits from
TForm
procedure ApopButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ConnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DeleteButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Save data to INI file
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Restore some data from the INI file
procedure GetAllButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure LastButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ListAllButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ListButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NextButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NoopButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PassButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Pop3ClientDisplay(Sender: TObject; Msg: String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when the TPop3Client object wants to display } { some information such as connection progress or errors.
procedure Pop3ClientListBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when TPop3Client is about to receive a } { list line.
procedure Pop3ClientListEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when TPop3Client has received the last list } { line.
procedure Pop3ClientListLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called for each list line received by TPop3Client.
procedure Pop3ClientMessageBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when TPop3Client is about to receive a } { message.
procedure Pop3ClientMessageEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when TPop3Client has detected the end of a } { message, even if there is an error or exception, this event gets called.
procedure Pop3ClientMessageLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called for each message line that TPop3Client is } { receiveing.
procedure Pop3ClientUidlBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Pop3ClientUidlEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Pop3ClientUidlLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ResetButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RetrButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RpopButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure StatButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TopButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure UidlButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure UserButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function DoTheJob(MethodPtr : TPop3Method; MethodName : String) : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { All the TPop3Client method are of the same type.
procedure GetAllMessageLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MessageBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MessageLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ApopButton : TButton;
ConnectButton : TButton;
DeleteButton : TButton;
DisconnectButton : TButton;
DisplayMemo : TMemo;
GetAllButton : TButton;
HostEdit : TEdit;
InfoLabel : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
LastButton : TButton;
ListAllButton : TButton;
ListButton : TButton;
MsgLinesEdit : TEdit;
MsgNumEdit : TEdit;
NextButton : TButton;
NoopButton : TButton;
Panel1 : TPanel;
PassButton : TButton;
PassWordEdit : TEdit;
Pop3Client : TPop3Client;
PortEdit : TEdit;
ResetButton : TButton;
RetrButton : TButton;
RpopButton : TButton;
StatButton : TButton;
TopButton : TButton;
UidlButton : TButton;
UserButton : TButton;
UserNameEdit : TEdit;
Wait1 : TWait;
FFile : TextFile;
FFileName : String;
procedure ApopButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ConnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DeleteButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DisconnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Save data to INI file
procedure FormCreate(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Restore some data from the INI file
procedure GetAllButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure LastButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ListAllButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ListButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NextButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NoopButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PassButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Pop3ClientDisplay(Sender: TObject; Msg: String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when the TPop3Client object wants to display } { some information such as connection progress or errors.
procedure Pop3ClientListBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when TPop3Client is about to receive a } { list line. The MsgNum property gives the message number.
procedure Pop3ClientListEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when TPop3Client has received the last list } { line.
procedure Pop3ClientListLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called for each list line received by TPop3Client.
procedure Pop3ClientMessageBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when TPop3Client is about to receive a } { message. The MsgNum property gives the message number. } { This event handler could be used to open the file used to store the msg. } { The file handle could be stored in the TPop3Client.Tag property to be } { easily retrieved by the OnMessageLine and OnMessageEnd event handlers.
procedure Pop3ClientMessageEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called when TPop3Client has detected the end of a } { message, even if there is an error or exception, this event gets called. } { This event handler could be used to close the file used to store the msg.
procedure Pop3ClientMessageLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called for each message line that TPop3Client is } { receiveing. This could be used to write the message lines to a file.
procedure Pop3ClientUidlBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Pop3ClientUidlEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Pop3ClientUidlLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ResetButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RetrButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure RpopButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure StatButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TopButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure UidlButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure UserButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function DoTheJob(MethodPtr : TPop3Method; MethodName : String) : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { All the TPop3Client method are of the same type. To simplify this demo } { application, DoTheJob transfert the parameters form the various EditBoxes } { to the Pop3Client instance and then call the appropriate method, showing } { the result in the InfoLabel.Caption.
procedure GetAllMessageLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MessageBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure MessageLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ApopButton : TButton;
ConnectButton : TButton;
DeleteButton : TButton;
DisconnectButton : TButton;
DisplayMemo : TMemo;
GetAllButton : TButton;
HostEdit : TEdit;
InfoLabel : TLabel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
LastButton : TButton;
ListAllButton : TButton;
ListButton : TButton;
MsgLinesEdit : TEdit;
MsgNumEdit : TEdit;
NextButton : TButton;
NoopButton : TButton;
Panel1 : TPanel;
PassButton : TButton;
PassWordEdit : TEdit;
Pop3Client : TPop3Client;
PortEdit : TEdit;
ResetButton : TButton;
RetrButton : TButton;
RpopButton : TButton;
StatButton : TButton;
TopButton : TButton;
UidlButton : TButton;
UserButton : TButton;
UserNameEdit : TEdit;
Wait1 : TWait;
FFile : TextFile;
FFileName : String;