TCustomWSServer

type TCustomWSServer = class(TComponent)

protected

  procedure SetThreadMode(); virtual;

  procedure DoDisconnect(); virtual;

  procedure FreeConnectionHandler; virtual;

  procedure StartConnectionHandler; virtual;

  procedure HandleError(); virtual;

  procedure RemoveConnection(); virtual;

  procedure CloseConnectionSocket(); virtual;

  procedure CheckInactive;

  procedure SetActive(); virtual;

  function GetActive; virtual;

  function CreateConnectionHandler; virtual;

  procedure DoAllowAll();

  function CreateConnections; virtual;

  function CreateWebsocketConnection(); virtual;

  function AllowConnection(); virtual;

  procedure DoMessageReceived(); virtual;

  procedure DoControlReceived(); virtual;

  function WaitForConnections(); virtual;

  property Active: Boolean; [rw]

  property ConnectionHandler: TWSServerConnectionHandler; [r]

public

  constructor Create(); override; overload;

  destructor Destroy; override;

  procedure BroadcastFrame(); virtual;

  procedure BroadcastMessage(); virtual;

  procedure BroadcastData(); virtual;

  procedure SendFrameTo(); virtual;

  procedure SendMessageTo(); virtual;

  procedure SendDataTo(); virtual;

  procedure Foreach();

  property Connections: TWSConnectionList; [r]

  property ConnectionCount: Integer; [r]

protected

  property WebSocketVersion: Integer; [rw]

  property MessageWaitTime: Cardinal; [rw]

  property Options: TWSOptions; [rw]

  property Resource: string; [rw]

  property ThreadMode: TWSThreadMode; [rw]

  property OnConnect: TWSConnectEvent; [rw]

  property OnAllow: TWSAllowConnectionEvent; [rw]

  property OnMessageReceived: TWSMessageEvent; [rw]

  property OnDisconnect: TNotifyEvent; [rw]

  property OnControlReceived: TWSControlEvent; [rw]

  property OnConnectionHandshake: TWSConnectionHandshakeEvent; [rw]

  property OnError: TWSErrorEvent; [rw]

  property OutgoingFrameMask: Integer; [rw]

end;

TCustomWSServer

TObject