| Class TSakSMTP (unit SakEmail) |
TComponent
=============== SakSMTP ===============
| Constructors |
constructor Create(AOwner: TComponent);***************** TSakSMTP *****************
| Functions |
procedure Connect;
procedure Quit;
function SendMessage( var aMsg: TSakMsg): boolean;
procedure Base64Encode( var AttachedFile: TAttachedFile);
procedure DoOnAfterSend;
procedure DoOnBeforeSend;
procedure FDoConnect( Sender: TObject; Socket: TCustomWinSocket);
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;
function FMakeUniqueID: string;
function FPrepareText( var aMsg: TSakMsg): TStringList;
function FReceiveTextFromSocket: string;
procedure FSendTextToSocket( const txt: string);| Properties |
property EncodeProgressStep : word
property Host : string
property IPAddress : string
property LocalizedDates : boolean
property Port : string
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;
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 : stringPublished 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;