Class TSakSMTP (unit SakEmail)

Inherits from

TComponent

=============== SakSMTP ===============

Constructors


constructor Create(AOwner: TComponent);

Public declarations

***************** TSakSMTP *****************



Functions

procedure Connect;


procedure Quit;


function SendMessage( var aMsg: TSakMsg): boolean;


procedure Base64Encode( var AttachedFile: TAttachedFile);

Protected declarations

procedure DoOnAfterSend;


procedure DoOnBeforeSend;


procedure FDoConnect( Sender: TObject; Socket: TCustomWinSocket);

20 = timeout not documented in D3.

procedure FDoDisconnect( Sender: TObject; Socket: TCustomWinSocket);


procedure FDoEncodeEnd;


procedure FDoEncodeProgress( Percent: word);


procedure FDoEncodeStart( FileName: string; Size: longint);


procedure FDoErr( ErrorEvent: TErrorEvent);


procedure FDoError( Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);


procedure FDoSendProgress( Percent: word);


function FGenerateBoundary : string;


function FGetInternetDate( Date: TDateTime):string;

agregamos transparency

function FMakeUniqueID: string;


function FPrepareText( var aMsg: TSakMsg): TStringList;

end of msg

function FReceiveTextFromSocket: string;


procedure FSendTextToSocket( const txt: string);

this is for you, Serge :

Properties

property EncodeProgressStep : word


property Host : string


property IPAddress : string


property LocalizedDates : boolean


property Port : string

Published declarations

property SendProgressStep : word


property Canceled : boolean


property Connected : boolean


property ReplyCode : string


property ReplyString : string


property SMTPError : boolean


Events

event OnAfterSend : TNotifyEvent


event OnBeforeSend : TNotifyEvent


event OnConnect : TNotifyEvent


event OnEncodeEnd : TNotifyEvent


event OnEncodeProgress : TOnCodeProgressEvent


event OnEncodeStart : TOnCodeStartEvent


event OnError : TOnError


event OnQuit : TNotifyEvent


event OnSendProgress : TOnSendProgressEvent


Variables

FCanceled : boolean;


FConnected : boolean;


FEncodeProgress : word;


FEncodeProgressStep : word;


FHost : String;


FIPAddress : string;


FLocalizedDates : boolean;


FOnAfterSend : TNotifyEvent;


FOnBeforeSend : TNotifyEvent;


FOnConnect : TNotifyEvent;


FOnDisconnect : TNotifyEvent;


FOnEncodeEnd : TNotifyEvent;


FOnEncodeProgress : TOnCodeProgressEvent;


FOnEncodeStart : TOnCodeStartEvent;


FOnError : TOnError;


FOnSendProgress : TOnSendProgressEvent;


FPort : string;


FReplyCode : string;


FReplyString : string;


FSendProgress : word;


FSendProgressStep : word;


FSMTPError : boolean;


FSocket : TClientSocket;

Private declarations

FSocketStream : TWinSocketStream;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

***************** TSakSMTP *****************


Functions


procedure Connect;


procedure Quit;


function SendMessage( var aMsg: TSakMsg): boolean;


procedure Base64Encode( var AttachedFile: TAttachedFile);

Protected declarations


procedure DoOnAfterSend;


procedure DoOnBeforeSend;


procedure FDoConnect( Sender: TObject; Socket: TCustomWinSocket);

20 = timeout not documented in D3.00 but NEEDED !


procedure FDoDisconnect( Sender: TObject; Socket: TCustomWinSocket);


procedure FDoEncodeEnd;


procedure FDoEncodeProgress( Percent: word);


procedure FDoEncodeStart( FileName: string; Size: longint);


procedure FDoErr( ErrorEvent: TErrorEvent);


procedure FDoError( Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);


procedure FDoSendProgress( Percent: word);


function FGenerateBoundary : string;


function FGetInternetDate( Date: TDateTime):string;

agregamos transparency


function FMakeUniqueID: string;


function FPrepareText( var aMsg: TSakMsg): TStringList;

end of msg


function FReceiveTextFromSocket: string;


procedure FSendTextToSocket( const txt: string);

this is for you, Serge :


Properties


property EncodeProgressStep : word


property Host : string


property IPAddress : string


property LocalizedDates : boolean


property Port : string

Published declarations


property SendProgressStep : word


property Canceled : boolean


property Connected : boolean


property ReplyCode : string


property ReplyString : string


property SMTPError : boolean


Events


event OnAfterSend : TNotifyEvent


event OnBeforeSend : TNotifyEvent


event OnConnect : TNotifyEvent


event OnEncodeEnd : TNotifyEvent


event OnEncodeProgress : TOnCodeProgressEvent


event OnEncodeStart : TOnCodeStartEvent


event OnError : TOnError


event OnQuit : TNotifyEvent


event OnSendProgress : TOnSendProgressEvent


Variables


FCanceled : boolean;


FConnected : boolean;


FEncodeProgress : word;


FEncodeProgressStep : word;


FHost : String;


FIPAddress : string;


FLocalizedDates : boolean;


FOnAfterSend : TNotifyEvent;


FOnBeforeSend : TNotifyEvent;


FOnConnect : TNotifyEvent;


FOnDisconnect : TNotifyEvent;


FOnEncodeEnd : TNotifyEvent;


FOnEncodeProgress : TOnCodeProgressEvent;


FOnEncodeStart : TOnCodeStartEvent;


FOnError : TOnError;


FOnSendProgress : TOnSendProgressEvent;


FPort : string;


FReplyCode : string;


FReplyString : string;


FSendProgress : word;


FSendProgressStep : word;


FSMTPError : boolean;


FSocket : TClientSocket;

Private declarations


FSocketStream : TWinSocketStream;