TIdCustomTCPServer

type TIdCustomTCPServer = class(TIdComponent)

protected

  FActive: Boolean;

  FScheduler: TIdScheduler;

  FBindings: TIdSocketHandles;

  FContextClass: TIdServerContextClass;

  FImplicitScheduler: Boolean;

  FImplicitIOHandler: Boolean;

  FIntercept: TIdServerIntercept;

  FIOHandler: TIdServerIOHandler;

  FListenerThreads: TIdListenerThreadList;

  FListenQueue: Integer;

  FMaxConnections: Integer;

  FReuseSocket: TIdReuseSocket;

  FTerminateWaitTime: Integer;

  FContexts: TIdContextThreadList;

  FOnContextCreated: TIdServerThreadEvent;

  FOnConnect: TIdServerThreadEvent;

  FOnDisconnect: TIdServerThreadEvent;

  FOnException: TIdServerThreadExceptionEvent;

  FOnExecute: TIdServerThreadEvent;

  FOnListenException: TIdListenExceptionEvent;

  FOnBeforeBind: TIdSocketHandleEvent;

  FOnAfterBind: TNotifyEvent;

  FOnBeforeListenerRun: TIdNotifyThreadEvent;

  FUseNagle: Boolean;

  procedure CheckActive;

  procedure CheckOkToBeActive; virtual;

  procedure ContextCreated(); virtual;

  procedure ContextConnected(); virtual;

  procedure ContextDisconnected(); virtual;

  function CreateConnection; virtual;

  procedure DoBeforeBind(); virtual;

  procedure DoAfterBind; virtual;

  procedure DoBeforeListenerRun(); virtual;

  procedure DoConnect(); virtual;

  procedure DoDisconnect(); virtual;

  procedure DoException(); virtual;

  function DoExecute(); virtual;

  procedure DoListenException(); virtual;

  procedure DoMaxConnectionsExceeded(); virtual;

  procedure DoTerminateContext(); virtual;

  function GetDefaultPort;

  procedure InitComponent; override;

  procedure Loaded; override;

  procedure Notification(); override;

  procedure SendGreeting(); virtual;

  procedure SetActive(); virtual;

  procedure SetBindings(); virtual;

  procedure SetDefaultPort(); virtual;

  procedure SetIntercept(); virtual;

  procedure SetIOHandler(); virtual;

  procedure SetScheduler(); virtual;

  procedure Startup; virtual;

  procedure Shutdown; virtual;

  procedure TerminateAllThreads;

  property OnExecute: TIdServerThreadEvent; [rw]

public

  destructor Destroy; override;

  procedure StartListening;

  procedure StopListening;

  property Contexts: TIdContextThreadList; [r]

  property ContextClass: TIdServerContextClass; [rw]

  property ImplicitIOHandler: Boolean; [r]

  property ImplicitScheduler: Boolean; [r]

published

  property Active: Boolean; [rw]

  property Bindings: TIdSocketHandles; [rw]

  property DefaultPort: TIdPort; [rw]

  property Intercept: TIdServerIntercept; [rw]

  property IOHandler: TIdServerIOHandler; [rw]

  property ListenQueue: Integer; [rw]

  property MaxConnections: Integer; [rw]

  property OnBeforeBind: TIdSocketHandleEvent; [rw]

  property OnAfterBind: TNotifyEvent; [rw]

  property OnBeforeListenerRun: TIdNotifyThreadEvent; [rw]

  property OnContextCreated: TIdServerThreadEvent; [rw]

  property OnConnect: TIdServerThreadEvent; [rw]

  property OnDisconnect: TIdServerThreadEvent; [rw]

  property OnException: TIdServerThreadExceptionEvent; [rw]

  property OnListenException: TIdListenExceptionEvent; [rw]

  property ReuseSocket: TIdReuseSocket; [rw]

  property UseNagle: Boolean; [rw]

  property TerminateWaitTime: Integer; [rw]

  property Scheduler: TIdScheduler; [rw]

end;

TIdCustomTCPServer

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject