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 := ''+sl[1];

      it.Text := n + ' says: ' + v+'';

    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;