TWebSocketClient
支持WEBSOCKET通讯协议的客户端控件。
连接WEBSOCKET SERVER的代码演示：
WebSocketClient1.HostName := ‘88.198.69.227‘;
?WebSocketClient1.Port := 8888;
WebSocketClient1.Disconnect;
WebSocketClient1.Connect;
接收数据事件：
procedure TForm43.WebSocketClient1DataReceived(Sender: TObject; Origin: string; ?Data: TJSObject);var ?it: TTMSFNCListBoxItem; ?sl: TStringList; ?s: String; ?n: string; ?v: string;begin ?lst.BeginUpdate; ?it := lst.Items.Add; ?s := Data.toString; ?sl := TStringList.Create; ?try ???TTMSFNCUtils.Split(‘~‘, s, sl); ???if sl.Count > 2 then ???begin ?????n := ‘<font color="‘+sl[0]+‘" size="16">‘+sl[1]; ?????v := sl[2]; ?????it.Text := n + ‘ says: </font><font size="16">‘ + v+‘</font>‘; ???end; ?finally ???sl.Free; ?end; ?lst.EndUpdate;end;
发送数据演示：
procedure TForm43.SendMessage;var ?s: string;begin ?if FConnected and (WebEdit2.Text <> ‘‘) then ?begin ???s := TTMSFNCGraphics.ColorToHTML(TMSFNCColorPicker1.SelectedColor) + ‘~‘ + WebEdit1.Text + ‘~‘ + WebEdit2.Text; ???// limit message length ???s := Copy(s,1,256); ???WebSocketClient1.Send(s); ???WebEdit2.Text := ‘‘; ?end;end;
TWebSocketClient
原文地址：https://www.cnblogs.com/hnxxcxg/p/10374594.html