TIdTCPConnection

type TIdTCPConnection = class(TIdComponent)

protected

  FGreeting: TIdReply;

  FIntercept: TIdConnectionIntercept;

  FIOHandler: TIdIOHandler;

  FLastCmdResult: TIdReply;

  FManagedIOHandler: Boolean;

  FOnDisconnected: TNotifyEvent;

  FSocket: TIdIOHandlerSocket;

  FReplyClass: TIdReplyClass;

  procedure CheckConnected;

  procedure DoOnDisconnected; virtual;

  procedure InitComponent; override;

  function GetIntercept; virtual;

  function GetReplyClass; virtual;

  procedure Notification(); override;

  procedure SetIntercept(); virtual;

  procedure SetIOHandler(); virtual;

  procedure SetGreeting();

  procedure WorkBeginEvent();

  procedure WorkEndEvent();

  procedure WorkEvent();

  procedure PrepareCmd(); virtual;

public

  procedure CreateIOHandler();

  procedure CheckForGracefulDisconnect(); virtual;

  function CheckResponse();

  function Connected; virtual;

  destructor Destroy; override;

  procedure Disconnect();

  procedure DisconnectNotifyPeer; virtual;

  procedure GetInternalResponse(); virtual;

  function GetResponse();

  property Greeting: TIdReply; [rw]

  procedure RaiseExceptionForLastCmdResult();

  function SendCmd();

  procedure WriteHeader();

  procedure WriteRFCStrings();

  property LastCmdResult: TIdReply; [r]

  property ManagedIOHandler: Boolean; [rw]

  property Socket: TIdIOHandlerSocket; [r]

published

  property Intercept: TIdConnectionIntercept; [rw]

  property IOHandler: TIdIOHandler; [rw]

  property OnDisconnected: TNotifyEvent; [rw]

  property OnWork: TWorkEvent;

  property OnWorkBegin: TWorkBeginEvent;

  property OnWorkEnd: TWorkEndEvent;

end;

TIdTCPConnection

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject