TsgcWebSocketServer_HTTPAPI › Eventos › OnTCPConnect
Se activa después de que un cliente se conecta a nivel TCP y antes del handshake de WebSocket, para que la conexión pueda aceptarse o rechazarse.
property OnTCPConnect: TsgcWSHTTPAPITCPConnect;
// TsgcWSHTTPAPITCPConnect = procedure(Connection: TsgcWSConnection; var Accept: Boolean) of object
—
OnTCPConnect se llama DESPUÉS de que HTTP.SYS acepta la conexión TCP y ANTES de que se procese el handshake de WebSocket. Úselo para inspeccionar Connection.PeerIP u otras propiedades del socket y decidir si continuar. Establezca Accept en False para rechazar la conexión de inmediato; déjelo en True (el valor predeterminado) para que el servidor continúe con el handshake de WebSocket o la canalización normal de solicitudes HTTP.
procedure OnTCPConnectEvent(Connection: TsgcWSConnection; var Accept: Boolean);
begin
Accept := Connection.PeerIP <> '10.0.0.1';
end;