TSMTPClient

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