sgcWebSocketClient基本使用

  //创建及设置
  fSgcWebSocketClient:= TsgcWebSocketClient.Create(Nil);
  fSgcWebSocketClient.WriteTimeout := 5000;          //发送超时时间，单位毫秒
  fSgcWebSocketClient.ReadTimeout  := 5000;          //读取超时时间，单位毫秒
  fSgcWebSocketClient.ConnectTimeout := 5000;        //连接超时时间，单位毫秒
  fSgcWebSocketClient.OnMessage := WSMessage;        //设置收取数据回调函数
  fSgcWebSocketClient.OnError   := WSError;          //设置错误回调函数
  fSgcWebSocketClient.OnException := WSException;    //设置异常回调函数
  fSgcWebSocketClient.OnConnect := WSConnect;        //设置连接回调函数
  fSgcWebSocketClient.OnDisconnect := WSDisconnect;  //设置断开连接回调函数
  fSgcWebSocketClient.Host := '192.168.1.233';       //WebSocket Server主机IP或域名
  fSgcWebSocketClient.Port := 6012;                  //WebSocket Server主机服务端口
  fSgcWebSocketClient.Options.Parameters := 'WS';    //WebSocket Server扩充字段
  
  
  //激活连接
  if Assigned(fSgcWebSocketClient) then
    fSgcWebSocketClient.Connect();      //连接
    
    
  //断开连接
  if Assigned(fSgcWebSocketClient)
     and fSgcWebSocketClient.Connected then
    fSgcWebSocketClient.Disconnect;     //断开连接
    
  //释放
  if Assigned(fSgcWebSocketClient) then
  begin
    if fSgcWebSocketClient.Connected then
      fSgcWebSocketClient.Disconnect();
    fSgcWebSocketClient.Free;
  end;