TWebSocketClient

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;

  

相关文章