频道分类

delphi TMS WEB core TWebSocketClient

作者:admin 来源: 日期:2020/3/14 10:43:43 人气: 标签:TMS WEB core

 

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;