服务器 TCP 连接

使用 Indy WebSocket 服务器处理 TCP 连接时，默认情况下 OnConnect 事件仅在收到第一条消息后触发，因为无法区分连接是普通 TCP、WebSocket 还是 HTTP。在所有连接预期均为 TCP 的情况下，现在可以处理 OnTCPConnect 事件并将传输设置为 trpTCP。执行此操作后，OnConnect 事件将自动触发（无需等待收到第一条消息）。

procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean);
begin
  aConnection.Transport := trpTCP;
  Accept := True;
end;