//在form上拖放一个TsgcWebSocketClient 控件,控件采用ws协议,代码如下
procedure TForm16.Button1Click(Sender: TObject); begin try sgcWebSocketClient1.Host := 'echo.websocket.org'; sgcWebSocketClient1.Port := 80; sgcWebSocketClient1.Active := True; except on E: Exception do ShowMessage(e.Message);