TsgcHTTPServer › Events › OnTCPConnect
Fires after a client connects at TCP level and before the HTTP request is parsed, so the connection can be accepted or rejected.
property OnTCPConnect: TsgcWSOnTCPConnect;
// TsgcWSOnTCPConnect = procedure(Connection: TsgcWSConnection; var Accept: Boolean) of object
—
OnTCPConnect is called AFTER the TCP connection is accepted and BEFORE the HTTP request is parsed. It is the earliest opportunity to inspect Connection.PeerIP and reject unwanted clients, for example to implement per-IP rate limits. Set Accept to False to close the connection immediately, or leave it True (the default) so the server proceeds to parse the request.
procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean);
begin
Accept := aConnection.PeerIP <> '192.168.0.100';
end;