uses WSServer;

var WSServer:TWSServer;

procedure DoFantastic;
begin
  WSServer := TWSServer.Create;
  WSServer.SetPort(88);
  WSServer.StartServer;
  WSServer.OnClientFrameReceived := MyFrameReceived;
  WSServer.OnClientConnect := MyConnect;
  WSServer.OnClientDisconnect := MyDisconnect;
  WSServer.OnClientSwitchProtocol := MySwitchProtocoll;
end;

Procedure LetTheFantasticOver;
begin
  WSServer.StopServer;
  WSServer.Free;
end;

Procedure MyConnect(var Socket: TCustomWinSocket);
begin
  // Connected
  MySocket := Socket;
end;

Procedure MyDisconnect(var Socket: TCustomWinSocket);
begin
  // Disconnected
end;

Procedure MySwitchProtocoll(var Socket: TCustomWinSocket; SecWebSocketAcceptKey, SecWebSocketKey,
    SecWebSocketVersion, Path: string);
begin
  // Switching protocol
  // Sec-WebSocket-AcceptKey = SecWebSocketAcceptKey
  //       Sec-WebSocket-Key = SecWebSocketKey
  //   Sec-WebSocket-Version = SecWebSocketVersion
  //                    Path = requested path, e.g. "/chat"
end;

Procedure MyFrameReceived(var Socket: TCustomWinSocket; Frame: string);
begin
  // Frame contains a text message, decoded from UTF-8 to a normal Unicode string
end;

Procedure MyBinaryFrameReceived(var Socket: TCustomWinSocket; Data: TBytes);
begin
  // Data contains a binary message as raw bytes
end;

procedure DoSendSomeText;
begin
  WSServer.Send(MySocket, 'Text for send');       // text frame (string, UTF-8 on the wire)
  // WSServer.Send(MySocket, MyBinaryData);       // binary frame (TBytes)
end;

procedure DoBroadcastSomeText;
begin
  WSServer.Broadcast('Text for everyone');        // text frame
  // WSServer.Broadcast(MyBinaryData);            // binary frame (TBytes)
end;