delphi websocket 接收

Delphi中可以使用TWebSocketClient组件来实现WebSocket的接收。

首先，在Form的uses中加入System.Net.HttpClient和System.Net.URLClient。

然后，在Form的private或public部分声明一个TWebSocketClient组件：

WebSocketClient1: TWebSocketClient;

接下来，在Form的OnCreate事件中初始化WebSocketClient1组件：

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebSocketClient1 := TWebSocketClient.Create;
  WebSocketClient1.OnMessage := WebSocketClient1Message;
end;

在OnMessage事件中处理接收到的WebSocket消息：

procedure TForm1.WebSocketClient1Message(Sender: TObject; const AData: string);
begin
  // 在这里处理接收到的WebSocket消息
end;

最后，在需要连接WebSocket的地方调用WebSocketClient1的Connect方法：

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebSocketClient1.Connect('wss://example.com/ws'); // 替换为实际的WebSocket地址
end;

这样就可以在接收到WebSocket消息时触发OnMessage事件进行处理了。