Delphi WebSocket 服务端：无第三方控件实现

本教程将指导您如何在 Delphi 中，不使用第三方控件的情况下，使用 Socket 封装一个简单的 WebSocket 服务端。

步骤:

创建项目: 创建一个新的 VCL Forms 应用程序项目。
添加组件: 在主窗体上添加一个 TButton 组件。
创建服务端: 在主窗体的 OnCreate 事件中添加以下代码：

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

关闭服务端: 在主窗体的 OnDestroy 事件中添加以下代码：

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

广播消息: 在主窗体的按钮单击事件中添加以下代码：

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

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

private
  WebSocketServer1: TWebSocketServer;

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

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;

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

总结:

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