Class TPOP3ExcercizerForm (unit PopTst1)

Inherits from

TForm

Constructors



Functions

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

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

Events

Variables

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;



Constructors


Functions


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

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


Events


Variables


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;