Source position: fpwebsocketserver.pp line 67
protected procedure TWebSocketServer.DoAllowConnect(
Sender: TObject;
ASocket: LongInt;
var Allow: Boolean
); virtual;