ymofen / diocp-v5 Goto Github PK

  DoInitializeWebSocketClient;

  var FWsClient: TDiocpWebSocketContext;

  FWsClient := NewWsClient();
  FWsClient.OnRecv := OnRecv;
  FWsClient.OnDisconnectedEvent := OnDisconnected;
  //FWsClient.OnShakeHand := OnShakeHand;
  FWsClient.Masked := True;

  var S: string;
  var lvBytes:TBytes;

  if not FWsClient.Active
  then FWsClient.Open('ws://localhost:3000/echo')
  else ? how CHECK FWsClient is in processed
         ? if FWsClient.Processed then exit
  ===========================================

  S := '{"method":"PingDevice","step":0}';
  lvBytes := StringToUtf8Bytes(S);
  FWsClient.SendBuffer(@lvBytes[0], Length(lvBytes), OPT_TEXT);

  ? how WAIT finally received data
  ? FWsClient.WaitingCompletion
  ================================