TSMTPClient

From Ultibo.org
Jump to: navigation, search

Return to Unit SMTP


Description


To be documented

Class definitions



TSMTPClient = class(TWinsock2TCPClient)

public
constructor Create;  
destructor Destroy; override;  
private
FOnRequest:TSMTPClientNotifyEvent;  
FOnReply:TSMTPClientNotifyEvent;  
 
FOnRequestStart:TNotifyEvent;  
FOnRequestEnd:TNotifyEvent;  
 
FAuthenticated:Boolean;  
FBuffer:TSMTPBuffer; Buffer for received data
protected
function GetReply(var AReply:String):Boolean;  
function SendRequest(const ARequest:String):Boolean;  
public
property OnRequest:TSMTPClientNotifyEvent read FOnRequest write FOnRequest;  
property OnReply:TSMTPClientNotifyEvent read FOnReply write FOnReply;  
 
property OnRequestStart:TNotifyEvent read FOnRequestStart write FOnRequestStart;  
property OnRequestEnd:TNotifyEvent read FOnRequestEnd write FOnRequestEnd;  
 
property Authenticated:Boolean read FAuthenticated;  
property Buffer:TSMTPBuffer read FBuffer;  
 
function DoConn(const AHost,APort:String; var AReply:String):Boolean;  
function DoHelo(const AHost:String; var AReply:String):Boolean;  
function DoEhlo(const AHost:String; var AReply:String):Boolean;  
function DoAuth(const AProtocol,AUsername,APassword:String; var AReply:String):Boolean;  
function DoMail(const ASender:String; var AReply:String):Boolean;  
function DoRcpt(const AReceiver:String; var AReply:String):Boolean;  
function DoVrfy(const AAddress:String; var AReply:String):Boolean;  
function DoBeginData(var AReply:String):Boolean;  
function DoSendData(const AData:String):Boolean;  
function DoEndData(var AReply:String):Boolean;  
function DoQuit(var AReply:String):Boolean;  
function DoRset(var AReply:String):Boolean;  
function DoTime(var AReply:String):Boolean;  
function DoNoop(var AReply:String):Boolean;  


Function declarations



constructor TSMTPClient.Create;
Description: To be documented
Note None documented


destructor TSMTPClient.Destroy;
Description: To be documented
Note None documented


function TSMTPClient.GetReply(var AReply:String):Boolean;
Description: To be documented
Note None documented


function TSMTPClient.SendRequest(const ARequest:String):Boolean;
Description: To be documented
Note None documented


function TSMTPClient.DoConn(const AHost,APort:String; var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 220 for success and other for failure


function TSMTPClient.DoHelo(const AHost:String; var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 250 for success and other for failure


function TSMTPClient.DoEhlo(const AHost:String; var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 250 for success and other for failure


function TSMTPClient.DoAuth(const AProtocol,AUsername,APassword:String; var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 235 for success and other for failure (334 for challenge during handshake)


function TSMTPClient.DoMail(const ASender:String; var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 250 for success and other for failure


function TSMTPClient.DoRcpt(const AReceiver:String; var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 250 for success and other for failure


function TSMTPClient.DoVrfy(const AAddress:String; var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 250 for success and other for failure


function TSMTPClient.DoBeginData(var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 354 for success and other for failure


function TSMTPClient.DoSendData(const AData:String):Boolean;
Description: To be documented
Note SMTP server will not return anything while until data end


function TSMTPClient.DoEndData(var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 250 for success and other for failure


function TSMTPClient.DoQuit(var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 221 for success and other for failure


function TSMTPClient.DoRset(var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 250 for success and other for failure


function TSMTPClient.DoTime(var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 250 for success and other for failure


function TSMTPClient.DoNoop(var AReply:String):Boolean;
Description: To be documented
Note SMTP server will normally return 250 for success and other for failure


Return to Unit Reference