TSocketServer

type TSocketServer = class(TObject)

protected

  FSockType: LongInt;

  FBound: Boolean;

  procedure SocketClosed();

  procedure DoConnectionDropped(); virtual;

  procedure DoDisconnect(); virtual;

  procedure DoConnect(); virtual;

  function DoConnectQuery(); virtual;

  procedure Bind; virtual; abstract;

  function Accept; virtual; abstract;

  function SockToStream(); virtual; abstract;

  procedure Close; virtual;

  procedure Abort;

  procedure RemoveSelfFromConnections; virtual;

  function RunIdleLoop;

  function GetConnection; virtual; abstract;

  function HandleAcceptError();

  function GetClientSocketHandler(); virtual;

  property Handler: TSocketHandler; [r]

public

  constructor Create();

  destructor Destroy; override;

  procedure Listen;

  function GetSockopt();

  function SetSockopt();

  procedure StartAccepting;

  procedure StopAccepting();

  procedure SetNonBlocking;

  procedure Foreach();

  property Bound: Boolean; [r]

  property MaxConnections: LongInt; [rw]

  property MaxSimultaneousConnections: LongInt; [rw]

  property QueueSize: LongInt; [rw]

  property OnConnect: TConnectEvent; [rw]

  property OnDisconnect: TDisconnectEvent; [rw]

  property OnConnectionDropped: TConnectionDroppedEvent; [rw]

  property OnConnectQuery: TConnectQuery; [rw]

  property OnAcceptError: TOnAcceptError; [rw]

  property OnIdle: TNotifyEvent; [rw]

  property NonBlocking: Boolean; [r]

  property Socket: LongInt; [r]

  property SockType: LongInt; [r]

  property KeepAlive: Boolean; [rw]

  property ReuseAddress: Boolean; [rw]

  property Linger: Integer; [rw]

  property AcceptIdleTimeOut: Cardinal; [rw]

  property OnCreateClientSocketHandler: TGetClientSocketHandlerEvent; [rw]

  property ConnectionCount: Integer; [r]

end;

TSocketServer

TObject