delphi中 在不使用第三方控件的情况下使用Socket封装一个websocket服务端

1. 创建一个新的VCL Forms应用程序项目；
2. 在主窗体上添加一个TButton组件；
3. 在主窗体的OnCreate事件中添加以下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 创建WebSocket服务端
  WebSocketServer1 := TWebSocketServer.Create;
  WebSocketServer1.OnClientConnect := WebSocketServer1ClientConnect;
  WebSocketServer1.OnClientDisconnect := WebSocketServer1ClientDisconnect;
  WebSocketServer1.OnReceiveText := WebSocketServer1ReceiveText;
  WebSocketServer1.Active := True;
end;

4. 在主窗体的OnDestroy事件中添加以下代码：

procedure TForm1.FormDestroy(Sender: TObject);
begin
  // 关闭WebSocket服务端
  WebSocketServer1.Active := False;
  WebSocketServer1.Free;
end;

5. 在主窗体的按钮单击事件中添加以下代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 广播消息
  WebSocketServer1.Broadcast('Hello, World!');
end;

6. 在主窗体的声明区域中添加以下成员变量：

private
  WebSocketServer1: TWebSocketServer;

7. 在主窗体的实现区域中添加以下事件处理程序：

procedure TForm1.WebSocketServer1ClientConnect(Sender: TObject;
  AConnection: TWebSocketConnection);
begin
  // 新客户端连接
  Memo1.Lines.Add('New client connected: ' + AConnection.RemoteAddress);
end;

procedure TForm1.WebSocketServer1ClientDisconnect(Sender: TObject;
  AConnection: TWebSocketConnection);
begin
  // 客户端断开连接
  Memo1.Lines.Add('Client disconnected: ' + AConnection.RemoteAddress);
end;

procedure TForm1.WebSocketServer1ReceiveText(Sender: TObject;
  AConnection: TWebSocketConnection; const AData: string);
begin
  // 接收到文本消息
  Memo1.Lines.Add('Received message from ' + AConnection.RemoteAddress + ': ' + AData);
end;

8. 在主窗体上添加一个TMemo组件，用于显示日志信息。

以上就是使用Socket封装一个WebSocket服务端的基本步骤，你可以根据实际需要添加更多功能，例如支持二进制消息、支持多个房间等