Class TPop3Client (unit pop3cli)

Inherits from

TComponent

Constructors


constructor Create(AOwner : TComponent);

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


Functions

function Apop : Boolean;

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

function Connect : Boolean;

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

function Dele : Boolean;

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

destructor Destroy;

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

function Last : Boolean;

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

function List : Boolean;

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

function Noop : Boolean;

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

function Pass : Boolean;

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

function Quit : Boolean;

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

function Retr : Boolean;

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

function Rpop : Boolean;

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

function Rset : Boolean;

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

function Stat : Boolean;

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

function Top : Boolean;

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

function Uidl : Boolean;

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

function User : Boolean;

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

procedure ClearErrorMessage;

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

procedure Display(Msg : String);

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

function ExtractNumbers(var N1 : Integer; var N2 : Integer) : Boolean;

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

function ExtractUidl(var N1 : Integer; var N2 : String) : Boolean;

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

function GetMultiLine(aOnBegin : TNotifyEvent; aOnLine : TNotifyEvent; aOnEnd : TNotifyEvent; aProcess : TNotifyEvent) : Boolean;

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

function GetResponse : Boolean;

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

procedure LineTooLong(Sender : TObject);

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

procedure Notification(AComponent: TComponent; Operation: TOperation);

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

function PassRpop(OpCode : String) : Boolean;

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

procedure ProcessList(Sender : TObject);

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

procedure ProcessUidl(Sender : TObject);

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

procedure SendCommand(Cmd : String);

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

procedure SessionClosed(Sender : TObject; Error : WORD);

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

procedure SetErrorMessage;

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

procedure SetWait(Value : TWait);

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

function StartTransaction(OpCode, Params : String) : Boolean;

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

procedure WaitTimeOut(Sender : TObject);

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

Properties

property ErrorMessage : String


property Host : String


property LastResponse : String


property MsgCount : Integer

:Updated by the Stat method with the number of messages in the maildrop

property MsgLines : Integer

:This is the number of lines to display in the TOP command Set to zero if you wants the default value

property MsgNum : Integer

:This is the message number which must be returned by the Retr method.

property MsgSize : Integer

:Updated by the Stat method with the total size in byte for the messages in the maildrop

property MsgUidl : String


property PassWord : String


property Port : String


property ProtocolState : TPop3State


property Tag : LongInt


property TimeOut : Integer


property UserName : String


property Wait : TWait


property WSocket : TWSocket


Events

event OnDisplay : TPop3Display


event OnListBegin : TNotifyEvent


event OnListEnd : TNotifyEvent


event OnListLine : TNotifyEvent


event OnMessageBegin : TNotifyEvent


event OnMessageEnd : TNotifyEvent


event OnMessageLine : TNotifyEvent


event OnUidlBegin : TNotifyEvent


event OnUidlEnd : TNotifyEvent


event OnUidlLine : TNotifyEvent


Variables

FErrorMessage : String;


FHost : String;


FLastResponse : String;


FLineTooLong : Boolean;


FMsgCount : Integer;


FMsgLines : Integer;


FMsgNum : Integer;


FMsgSize : Integer;


FMsgUidl : String;


FOnDisplay : TPop3Display;


FOnListBegin : TNotifyEvent;


FOnListEnd : TNotifyEvent;


FOnListLine : TNotifyEvent;


FOnMessageBegin : TNotifyEvent;


FOnMessageEnd : TNotifyEvent;


FOnMessageLine : TNotifyEvent;


FOnUidlBegin : TNotifyEvent;


FOnUidlEnd : TNotifyEvent;


FOnUidlLine : TNotifyEvent;


FPassWord : String;


FPort : String;


FProtocolState : TPop3State;


FTag : LongInt;


FTimeout : Integer;


FTimeOutFlag : Boolean;


FTimeStamp : String;


FUserName : String;


FWait : TWait;


FWSocket : TWSocket;



Constructors


constructor Create(AOwner : TComponent);

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


Functions


function Apop : Boolean;

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


function Connect : Boolean;

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


function Dele : Boolean;

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


destructor Destroy;

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


function Last : Boolean;

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


function List : Boolean;

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


function Noop : Boolean;

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


function Pass : Boolean;

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


function Quit : Boolean;

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


function Retr : Boolean;

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


function Rpop : Boolean;

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


function Rset : Boolean;

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


function Stat : Boolean;

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


function Top : Boolean;

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


function Uidl : Boolean;

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


function User : Boolean;

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


procedure ClearErrorMessage;

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


procedure Display(Msg : String);

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


function ExtractNumbers(var N1 : Integer; var N2 : Integer) : Boolean;

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


function ExtractUidl(var N1 : Integer; var N2 : String) : Boolean;

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


function GetMultiLine(aOnBegin : TNotifyEvent; aOnLine : TNotifyEvent; aOnEnd : TNotifyEvent; aProcess : TNotifyEvent) : Boolean;

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


function GetResponse : Boolean;

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


procedure LineTooLong(Sender : TObject);

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


procedure Notification(AComponent: TComponent; Operation: TOperation);

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


function PassRpop(OpCode : String) : Boolean;

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


procedure ProcessList(Sender : TObject);

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


procedure ProcessUidl(Sender : TObject);

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


procedure SendCommand(Cmd : String);

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


procedure SessionClosed(Sender : TObject; Error : WORD);

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


procedure SetErrorMessage;

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


procedure SetWait(Value : TWait);

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


function StartTransaction(OpCode, Params : String) : Boolean;

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


procedure WaitTimeOut(Sender : TObject);

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


Properties


property ErrorMessage : String


property Host : String


property LastResponse : String


property MsgCount : Integer

:Updated by the Stat method with the number of messages in the maildrop


property MsgLines : Integer

:This is the number of lines to display in the TOP command Set to zero if you wants the default value


property MsgNum : Integer

:This is the message number which must be returned by the Retr method. It is also updated by the Last method


property MsgSize : Integer

:Updated by the Stat method with the total size in byte for the messages in the maildrop


property MsgUidl : String


property PassWord : String


property Port : String


property ProtocolState : TPop3State


property Tag : LongInt


property TimeOut : Integer


property UserName : String


property Wait : TWait


property WSocket : TWSocket


Events


event OnDisplay : TPop3Display


event OnListBegin : TNotifyEvent


event OnListEnd : TNotifyEvent


event OnListLine : TNotifyEvent


event OnMessageBegin : TNotifyEvent


event OnMessageEnd : TNotifyEvent


event OnMessageLine : TNotifyEvent


event OnUidlBegin : TNotifyEvent


event OnUidlEnd : TNotifyEvent


event OnUidlLine : TNotifyEvent


Variables


FErrorMessage : String;


FHost : String;


FLastResponse : String;


FLineTooLong : Boolean;


FMsgCount : Integer;


FMsgLines : Integer;


FMsgNum : Integer;


FMsgSize : Integer;


FMsgUidl : String;


FOnDisplay : TPop3Display;


FOnListBegin : TNotifyEvent;


FOnListEnd : TNotifyEvent;


FOnListLine : TNotifyEvent;


FOnMessageBegin : TNotifyEvent;


FOnMessageEnd : TNotifyEvent;


FOnMessageLine : TNotifyEvent;


FOnUidlBegin : TNotifyEvent;


FOnUidlEnd : TNotifyEvent;


FOnUidlLine : TNotifyEvent;


FPassWord : String;


FPort : String;


FProtocolState : TPop3State;


FTag : LongInt;


FTimeout : Integer;


FTimeOutFlag : Boolean;


FTimeStamp : String;


FUserName : String;


FWait : TWait;


FWSocket : TWSocket;