TIdIOHandlerSocket

type TIdIOHandlerSocket = class(TIdIOHandler)

protected

  FBinding: TIdSocketHandle;

  FBoundIP: string;

  FBoundPort: TIdPort;

  FBoundPortMax: TIdPort;

  FBoundPortMin: TIdPort;

  FDefaultPort: TIdPort;

  FOnBeforeBind: TNotifyEvent;

  FOnAfterBind: TNotifyEvent;

  FOnSocketAllocated: TNotifyEvent;

  FTransparentProxy: TIdCustomTransparentProxy;

  FImplicitTransparentProxy: Boolean;

  FUseNagle: Boolean;

  FReuseSocket: TIdReuseSocket;

  FIPVersion: TIdIPVersion;

  procedure ConnectClient; virtual;

  procedure DoBeforeBind; virtual;

  procedure DoAfterBind; virtual;

  procedure DoSocketAllocated; virtual;

  procedure InitComponent; override;

  procedure Notification(); override;

  function GetDestination; override;

  procedure SetDestination(); override;

  function GetReuseSocket;

  procedure SetReuseSocket();

  function GetTransparentProxy; virtual;

  procedure SetTransparentProxy(); virtual;

  function GetUseNagle;

  procedure SetUseNagle();

  function SourceIsAvailable; override;

  function CheckForError(); override;

  procedure RaiseError(); override;

public

  procedure AfterAccept; override;

  destructor Destroy; override;

  function BindingAllocated;

  procedure Close; override;

  function Connected; override;

  procedure Open; override;

  function WriteFile(); override;

  property Binding: TIdSocketHandle; [r]

  property BoundPortMax: TIdPort; [rw]

  property BoundPortMin: TIdPort; [rw]

  property OnBeforeBind: TNotifyEvent; [rw]

  property OnAfterBind: TNotifyEvent; [rw]

  property OnSocketAllocated: TNotifyEvent; [rw]

published

  property BoundIP: string; [rw]

  property BoundPort: TIdPort; [rw]

  property DefaultPort: TIdPort; [rw]

  property IPVersion: TIdIPVersion; [rw]

  property ReuseSocket: TIdReuseSocket; [rw]

  property TransparentProxy: TIdCustomTransparentProxy; [rw]

  property UseNagle: Boolean; [rw]

end;

TIdIOHandlerSocket

TIdIOHandler

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject