WebBroker + WebSockets

uses
  sgcWebSocket, sgcWebSocket_DataSnap, WebReq, WebModuleUnit1;

var
  Server: TsgcWSHTTPWebBrokerBridgeServer;
begin
  if WebRequestHandler <> nil then
    WebRequestHandler.WebModuleClass := WebModuleClass;

  Server := TsgcWSHTTPWebBrokerBridgeServer.Create(nil);
  Server.Port := 8080;

  // the same server accepts WebSocket upgrades
  Server.OnMessage := procedure(Connection: TsgcWSConnection;
    const aText: string)
  begin
    Connection.WriteData('echo: ' + aText);
  end;

  Server.Active := True;
end;