TsgcHTTPServer › Eventos › OnTCPConnect
Se activa después de que un cliente se conecta a nivel TCP y antes de que se analice la solicitud HTTP, para que la conexión pueda aceptarse o rechazarse.
property OnTCPConnect: TsgcWSOnTCPConnect;
// TsgcWSOnTCPConnect = procedure(Connection: TsgcWSConnection; var Accept: Boolean) of object
—
OnTCPConnect se llama DESPUÉS de que la conexión TCP es aceptada y ANTES de que se analice la solicitud HTTP. Es la primera oportunidad para inspeccionar Connection.PeerIP y rechazar clientes no deseados, por ejemplo para implementar límites de velocidad por IP. Establezca Accept en False para cerrar la conexión inmediatamente, o déjelo en True (el valor predeterminado) para que el servidor continúe analizando la solicitud.
procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean);
begin
Accept := aConnection.PeerIP <> '192.168.0.100';
end;