TLSMTP

type TLSMTP = class(TLComponent)

protected

  FConnection: TLTcp;

  FFeatureList: TStringList;

  function GetTimeout;

  procedure SetTimeout();

  function GetSession;

  procedure SetSession();

  procedure SetCreator(); override;

  function GetConnected;

  function GetSocketClass;

  procedure SetSocketClass();

  function GetEventer;

  procedure SetEventer();

public

  constructor Create(); override;

  destructor Destroy; override;

  function HasFeature();

  property Connected: Boolean; [r]

  property Connection: TLTcp; [r]

  property SocketClass: TLSocketClass; [rw]

  property Eventer: TLEventer; [rw]

  property Timeout: Integer; [rw]

  property Session: TLSession; [rw]

  property FeatureList: TStringList; [r]

end;

TLSMTP

TLComponent

TObject,ILComponent