Class TCustomSmtpClient (unit smtpcli) |
Inherits from
TComponent
Base component, implementing the transport, without MIME support
constructor Create(AOwner : TComponent);
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Abort : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Connect : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
destructor Destroy;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Mail : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Quit : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Rset : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ClearErrorMessage;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DataSent(Sender : TObject; Error : WORD);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Display(Msg : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DoUUEncode(var hFile: File; var sLine: string; var More: boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure EndUUEncode(var hFile: File);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetResponse : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure InitUUEncode(var hFile: File; sFile: string);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {$I+} { Activate I/O check (EInOutError exception generated) } {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Notification(AComponent: TComponent; Operation: TOperation);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SendCommand(Cmd : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SendHeaderLine(Line : PChar; Size : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SessionClosed(Sender : TObject; Error : WORD);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetErrorMessage;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetRcptName(newValue : TStrings);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetWait(Value : TWait);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TriggerGetData(LineNum : Integer;
MsgLine : PChar;
MaxLen : Integer;
var More : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TriggerHeaderLine(Line : PChar; Size : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TriggerProcessHeader(HdrLines : TStrings);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function WaitResponse(ValidResponse : integer; CloseOnError : Boolean) : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Wait for a response and check for validity.
function WaitResponse2(ValidResponse1 : Integer;
ValidResponse2 : Integer;
CloseOnError : Boolean) : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Wait for a response and check for validity.
procedure WaitTimeOut(Sender : TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property WSocket : TWSocket
property CharSet : String
property ErrorMessage : String
property FromName : String
property HdrFrom : String
property HdrSubject : String
property HdrTo : String
property Host : String
property LastResponse : String
property Port : String
property RcptName : TStrings
property SignOn : String
property Tag : LongInt
property TimeOut : Integer
property Wait : TWait
event OnDisplay : TSmtpDisplay
event OnGetData : TSmtpGetDataEvent
event OnHeaderLine : TSmtpHeaderLineEvent
event OnProcessHeader : TSmtpProcessHeaderEvent
FCharSet : String;
FDataSentFlag : Boolean;
FErrorMessage : String;
FFromName : String;
FHdrFrom : String;
FHdrSubject : String;
FHdrTo : String;
FHost : String;
FLastResponse : String;
FOnDisplay : TSmtpDisplay;
FOnGetData : TSmtpGetDataEvent;
FOnHeaderLine : TSmtpHeaderLineEvent;
FOnProcessHeader : TSmtpProcessHeaderEvent;
FPort : String;
FRcptName : TStrings;
FSignOn : String;
FState : TSmtpState;
FTag : LongInt;
FTimeout : Integer;
FTimeOutFlag : Boolean;
FWait : TWait;
FWSocket : TWSocket;
constructor Create(AOwner : TComponent);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Abort : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Connect : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
destructor Destroy;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Mail : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Quit : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function Rset : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ClearErrorMessage;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DataSent(Sender : TObject; Error : WORD);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Display(Msg : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DoUUEncode(var hFile: File; var sLine: string; var More: boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure EndUUEncode(var hFile: File);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetResponse : Integer;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure InitUUEncode(var hFile: File; sFile: string);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {$I+} { Activate I/O check (EInOutError exception generated) } {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Notification(AComponent: TComponent; Operation: TOperation);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SendCommand(Cmd : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SendHeaderLine(Line : PChar; Size : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SessionClosed(Sender : TObject; Error : WORD);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetErrorMessage;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetRcptName(newValue : TStrings);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure SetWait(Value : TWait);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TriggerGetData(LineNum : Integer;
MsgLine : PChar;
MaxLen : Integer;
var More : Boolean);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TriggerHeaderLine(Line : PChar; Size : Integer);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure TriggerProcessHeader(HdrLines : TStrings);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function WaitResponse(ValidResponse : integer; CloseOnError : Boolean) : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Wait for a response and check for validity. If response is not valid, } { return TRUE and optionnaly close the socket.
function WaitResponse2(ValidResponse1 : Integer;
ValidResponse2 : Integer;
CloseOnError : Boolean) : Boolean;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Wait for a response and check for validity. If response is not valid, } { return TRUE and optionnaly close the socket.
procedure WaitTimeOut(Sender : TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property WSocket : TWSocket
property CharSet : String
property ErrorMessage : String
property FromName : String
property HdrFrom : String
property HdrSubject : String
property HdrTo : String
property Host : String
property LastResponse : String
property Port : String
property RcptName : TStrings
property SignOn : String
property Tag : LongInt
property TimeOut : Integer
property Wait : TWait
event OnDisplay : TSmtpDisplay
event OnGetData : TSmtpGetDataEvent
event OnHeaderLine : TSmtpHeaderLineEvent
event OnProcessHeader : TSmtpProcessHeaderEvent
FCharSet : String;
FDataSentFlag : Boolean;
FErrorMessage : String;
FFromName : String;
FHdrFrom : String;
FHdrSubject : String;
FHdrTo : String;
FHost : String;
FLastResponse : String;
FOnDisplay : TSmtpDisplay;
FOnGetData : TSmtpGetDataEvent;
FOnHeaderLine : TSmtpHeaderLineEvent;
FOnProcessHeader : TSmtpProcessHeaderEvent;
FPort : String;
FRcptName : TStrings;
FSignOn : String;
FState : TSmtpState;
FTag : LongInt;
FTimeout : Integer;
FTimeOutFlag : Boolean;
FWait : TWait;
FWSocket : TWSocket;