TsgcWebSocketHTTPServer › Zdarzenia › OnTCPConnect
Wywoływane po połączeniu klienta na poziomie TCP i przed uzgadnianiem WebSocket, 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 parsowaniem żądania HTTP lub przeprowadzeniem uzgadniania WebSocket. Jest to najwcześniejszy moment, w którym można sprawdzić Connection.PeerIP i odrzucić niechcianych klientów, na przykład w celu implementacji limitów szybkości per IP. Ustawienie Accept na False powoduje natychmiastowe zamknięcie połączenia; pozostawienie wartości True (domyślnej) powoduje kontynuowanie przez serwer wykrywania protokołu HTTP/WebSocket. Aby promować połączenie do zwykłego peera TCP od samego początku, należy ustawić Connection.Transport na trpTCP wewnątrz procedury obsługi.
procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean);
begin
Accept := aConnection.PeerIP <> '192.168.0.100';
end;