サーバーの TCP 接続

· 機能

Indy WebSocket サーバーを TCP 接続に使用する場合、デフォルトでは最初のメッセージを受信した後でのみ OnConnect イベントが発生します。これは、接続がプレーン TCP、WebSocket、HTTP などのいずれであるかを判別する方法がないためです。すべての接続が TCP であることが想定される場合、OnTCPConnect イベントを処理し、transport を trpTCP に設定できます。この操作を行うと、OnConnect イベントが (最初のメッセージの受信を待たずに) 自動的に発生します。

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