TLSMTPClient

type TLSMTPClient = class(TLSMTP)

protected

  FStatus: TLSMTPStatusFront;

  FCommandFront: TLSMTPStatusFront;

  FPipeLine: Boolean;

  FOnConnect: TLSocketEvent;

  FOnReceive: TLSocketEvent;

  FOnDisconnect: TLSocketEvent;

  FOnSuccess: TLSMTPClientStatusEvent;

  FOnFailure: TLSMTPClientStatusEvent;

  FOnError: TLSocketErrorEvent;

  FOnSent: TLSocketProgressEvent;

  FSL: TStringList;

  FStatusSet: TLSMTPStatusSet;

  FBuffer: String;

  FDataBuffer: String;

  FCharCount: Integer;

  FStream: TStream;

  procedure OnEr();

  procedure OnRe();

  procedure OnCo();

  procedure OnDs();

  procedure OnCs();

  function CanContinue();

  function CleanInput();

  procedure EvaluateAnswer();

  procedure ExecuteFrontCommand;

  procedure ClearCR_LF;

  procedure SendData();

public

  constructor Create(); override;

  destructor Destroy; override;

  function Connect();

  function Get(); virtual;

  function GetMessage(); virtual;

  procedure SendMail();

  procedure Helo();

  procedure Ehlo();

  procedure Mail();

  procedure Rcpt();

  procedure Data();

  procedure Rset;

  procedure Quit;

  procedure Disconnect; override;

  procedure CallAction; override;

  property PipeLine: Boolean; [rw]

  property StatusSet: TLSMTPStatusSet; [rw]

  property OnConnect: TLSocketEvent; [rw]

  property OnReceive: TLSocketEvent; [rw]

  property OnDisconnect: TLSocketEvent; [rw]

  property OnSuccess: TLSMTPClientStatusEvent; [rw]

  property OnFailure: TLSMTPClientStatusEvent; [rw]

  property OnError: TLSocketErrorEvent; [rw]

  property OnSent: TLSocketProgressEvent; [rw]

end;

TLSMTPClient

TLSMTP

TLComponent

Basic abstraction of network connections.

TComponent

TObject