TsgcHTTPServer › Événements › OnTCPConnect
Se déclenche après la connexion d'un client au niveau TCP et avant l'analyse de la requête HTTP, de sorte que la connexion peut être acceptée ou rejetée.
property OnTCPConnect: TsgcWSOnTCPConnect;
// TsgcWSOnTCPConnect = procedure(Connection: TsgcWSConnection; var Accept: Boolean) of object—
OnTCPConnect est appelé APRÈS l'acceptation de la connexion TCP et AVANT l'analyse de la requête HTTP. C'est la première occasion d'inspecter Connection.PeerIP et de rejeter les clients indésirables, par exemple pour implémenter des limites de débit par IP. Définissez Accept à False pour fermer immédiatement la connexion, ou laissez-le à True (la valeur par défaut) pour que le serveur procède à l'analyse de la requête.
procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean);
begin
Accept := aConnection.PeerIP <> '192.168.0.100';
end;