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;

 发送数据演示：

?

1 2 3 4 5 6 7 8 9 10 11 12 13

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;