TsgcQUICServer › Ereignisse › OnStartup
Wird ausgelöst, wenn der Server begonnen hat, auf QUIC-Verbindungen zu lauschen.
property OnStartup: TNotifyEvent;
// TNotifyEvent = procedure(Sender: TObject) of object—
OnStartup ist veröffentlicht und wird von der UDP-Server-Basisklasse geerbt, und der QUIC-Server löst es aus, sobald der Listener gebunden wurde und der Hintergrund-Thread läuft, der die QUIC-Ereignisschleife antreibt. Wenn der Handler ausgeführt wird, nimmt der Server also bereits Verbindungen an.
Es wird von Start ausgelöst (ebenso von Active := True, was Start tut), auf dem Thread des Aufrufers, bevor Start zurückkehrt. Ein fehlgeschlagener Start löst eine Ausnahme aus, statt dieses Ereignis auszulösen, daher läuft der Handler nur bei einem erfolgreichen Hochfahren. Das Starten eines bereits gestarteten Servers bewirkt nichts und löst es nicht erneut aus.
Dieses Ereignis zu behandeln und Ihren Code hinter die Rückkehr von Start zu stellen, ist gleichwertig, verwenden Sie also, was zu Ihrem Entwurf passt. Das Ereignis ist die bequemere der beiden Möglichkeiten, wenn der Server von einer anderen Stelle in Ihrem Code aus gestartet wird oder von einer Komponente, die Sie nicht kontrollieren.
In der .NET-Implementierung wird OnStartup auf dieselbe Weise am Ende von Start() ausgelöst, sodass sich ein Handler in beiden Sprachen gleich verhält.
// Raised once the listener is bound and accepting:
procedure OnStartup(Sender: TObject);
begin
WriteLn('#QUIC server started');
end;
// Assign it before starting the server
oServer.OnStartup := OnStartup;
try
oServer.Start;
except
on E: Exception do
WriteLn('#QUIC server failed to start: ' + E.Message);
end;