Une fois que vous avez défini toutes les configurations requises de votre serveur, il existe 2 événements utiles pour savoir quand le serveur a démarré et quand il s'est arrêté.
Cet événement est déclenché lorsque le serveur a démarré et peut traiter de nouvelles connexions.
procedure OnStartup(Sender: TObject);
begin
WriteLn('#server started');
end;
Cet événement est déclenché après l'arrêt du serveur et lorsqu'aucune connexion n'est plus acceptée.
procedure OnShutdown(Sender: TObject);
begin
WriteLn('#server stopped');
end;