TsgcHTTPServer › イベント › OnTCPConnect
クライアントが TCP レベルで接続した後、HTTP リクエストが解析される前に発生し、接続を受け入れるか拒否できます。
property OnTCPConnect: TsgcWSOnTCPConnect;
// TsgcWSOnTCPConnect = procedure(Connection: TsgcWSConnection; var Accept: Boolean) of object
—
OnTCPConnect は TCP 接続が受け入れられた後、HTTP リクエストが解析される前に呼び出されます。IP ごとのレート制限を実装するなど、Connection.PeerIP を検査して不要なクライアントを拒否する最初の機会です。Accept を False に設定して接続をすぐに閉じるか、True(デフォルト)のままにしてサーバーがリクエストの解析を続行するようにします。
procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean);
begin
Accept := aConnection.PeerIP <> '192.168.0.100';
end;