TsgcWebSocketServer › Eventos › OnTCPConnect
Disparado após um cliente conectar no nível TCP e antes do handshake do WebSocket, de modo 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 do handshake WebSocket. É útil quando o servidor aceita conexões TCP simples: por padrão, OnConnect só é disparado depois que a primeira mensagem é recebida do cliente, portanto trate este evento e defina Connection.Transport como trpTCP para tratar o cliente como um peer TCP bruto desde o início. Defina Accept como False para rejeitar a conexão imediatamente; deixe-o True (o padrão) para que o servidor prossiga com a detecção de protocolo ou o handshake WebSocket.
procedure OnTCPConnectEvent(aConnection: TsgcWSConnection; var Accept: Boolean);
begin
aConnection.Transport := trpTCP;
Accept := True;
end;