TsgcHTTPServer › Zdarzenia › OnTCPConnect
Wywoływane po nawiązaniu połączenia klienta na poziomie TCP i przed przeanalizowaniem żądania HTTP, umożliwiając zaakceptowanie lub odrzucenie połączenia.
property OnTCPConnect: TsgcWSOnTCPConnect;
// TsgcWSOnTCPConnect = procedure(Connection: TsgcWSConnection; var Accept: Boolean) of object
—
OnTCPConnect jest wywoływane PO zaakceptowaniu połączenia TCP i PRZED przeanalizowaniem żądania HTTP. To najwcześniejsza okazja, aby sprawdzić Connection.PeerIP i odrzucić niepożądanych klientów, na przykład w celu implementacji limitów szybkości per adres IP. Ustaw Accept na False, aby natychmiast zamknąć połączenie, albo pozostaw True (wartość domyślna), aby serwer kontynuował analizowanie żądania.
procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean);
begin
Accept := aConnection.PeerIP <> '192.168.0.100';
end;