TIdSMTPServerContext

type TIdSMTPServerContext = class(TIdServerContext)

protected

  FSMTPState: TIdSMTPState;

  FFrom: string;

  FRCPTList: TIdEMailAddressList;

  FHELO: Boolean;

  FEHLO: Boolean;

  FHeloString: string;

  FUsername: string;

  FPassword: string;

  FLoggedIn: Boolean;

  FMsgSize: Integer;

  FPipeLining: Boolean;

  FFinalStage: Boolean;

  FBDataStream: TStream;

  FBodyType: TIdSMTPBodyType;

  function GetUsingTLS;

  function GetCanUseExplicitTLS;

  function GetTLSIsRequired;

  procedure SetPipeLining();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CheckPipeLine;

  procedure Reset(); virtual;

  property SMTPState: TIdSMTPState; [rw]

  property From: string; [rw]

  property RCPTList: TIdEMailAddressList; [r]

  property HELO: Boolean; [rw]

  property EHLO: Boolean; [rw]

  property HeloString: string; [rw]

  property Username: string; [rw]

  property Password: string; [rw]

  property LoggedIn: Boolean; [rw]

  property MsgSize: Integer; [rw]

  property FinalStage: Boolean; [rw]

  property UsingTLS: Boolean; [r]

  property CanUseExplicitTLS: Boolean; [r]

  property TLSIsRequired: Boolean; [r]

  property PipeLining: Boolean; [rw]

end;

TIdSMTPServerContext

TIdServerContext

TIdContext

TIdTask

TObject