Class TPop3Client (unit pop3cli) |
Inherits from
TComponent
constructor Create(AOwner : TComponent);
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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
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
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;
constructor Create(AOwner : TComponent);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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
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
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;