TsgcHTTPServer › Eventos › OnTCPConnect
Disparado depois que um cliente conecta no nível TCP e antes de a requisição HTTP ser analisada, para que a conexão possa ser aceita ou rejeitada.
property OnTCPConnect: TsgcWSOnTCPConnect;
// TsgcWSOnTCPConnect = procedure(Connection: TsgcWSConnection; var Accept: Boolean) of object
—
OnTCPConnect é chamado DEPOIS que a conexão TCP é aceita e ANTES que a requisição HTTP seja analisada. É a primeira oportunidade de inspecionar Connection.PeerIP e rejeitar clientes indesejados, por exemplo para implementar limites de taxa por IP. Defina Accept como False para fechar a conexão imediatamente, ou deixe-o True (o padrão) para que o servidor prossiga com a análise da requisição.
procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean);
begin
Accept := aConnection.PeerIP <> '192.168.0.100';
end;