Class TForm1 (unit Pop3)

Inherits from

TForm

Constructors



Functions

procedure BuildAndSend(Prefix: String; Body: String; Suffix: String; NewState: TState);


procedure CancelButtonClick(Sender: TObject);


procedure CheckMailButtonClick(Sender: TObject);


procedure CloseConnection;

WOULD BLOCK

procedure ExitButtonClick(Sender: TObject);


procedure FormShow(Sender: TObject);


function HostPart(Address: String): String;


procedure Pop3Engine(var Msg: TMessage);


procedure ReceiveMail;


procedure SelectActiveMode(NewCaption: String);


procedure SelectInputMode;

WOULD BLOCK

function SendData(Data: PChar; Length: Integer): Integer;


function TokenReceived(szToken: PChar): Boolean;


function UserPart(Address: String): String;


procedure WinsockError(ErrorCode: Integer);


procedure AsyncEvent(var Msg: TMessage);

WOULD BLOCK

procedure HostInfoReady(var Msg: TMessage);


procedure ServerInfoReady(var Msg: TMessage);


Properties

Events

Variables

Bevel1 : TBevel;


CancelButton : TBitBtn;


CheckMailButton : TBitBtn;


DateLabel : TLabel;


EmailBody : TMemo;


EmailDate : TEdit;


EmailFrom : TEdit;


EmailSubject : TEdit;


EmailTo : TEdit;


ExitButton : TBitBtn;


FromLabel : TLabel;


StatusBar : TLabel;


SubjectLabel : TLabel;


ToLabel : TLabel;



Constructors


Functions


procedure BuildAndSend(Prefix: String; Body: String; Suffix: String; NewState: TState);


procedure CancelButtonClick(Sender: TObject);


procedure CheckMailButtonClick(Sender: TObject);


procedure CloseConnection;

WOULD BLOCK


procedure ExitButtonClick(Sender: TObject);


procedure FormShow(Sender: TObject);


function HostPart(Address: String): String;


procedure Pop3Engine(var Msg: TMessage);


procedure ReceiveMail;


procedure SelectActiveMode(NewCaption: String);


procedure SelectInputMode;

WOULD BLOCK


function SendData(Data: PChar; Length: Integer): Integer;


function TokenReceived(szToken: PChar): Boolean;


function UserPart(Address: String): String;


procedure WinsockError(ErrorCode: Integer);


procedure AsyncEvent(var Msg: TMessage);

WOULD BLOCK


procedure HostInfoReady(var Msg: TMessage);


procedure ServerInfoReady(var Msg: TMessage);


Properties


Events


Variables


Bevel1 : TBevel;


CancelButton : TBitBtn;


CheckMailButton : TBitBtn;


DateLabel : TLabel;


EmailBody : TMemo;


EmailDate : TEdit;


EmailFrom : TEdit;


EmailSubject : TEdit;


EmailTo : TEdit;


ExitButton : TBitBtn;


FromLabel : TLabel;


StatusBar : TLabel;


SubjectLabel : TLabel;


ToLabel : TLabel;