Sobald Sie alle erforderlichen Konfigurationen Ihres Servers festgelegt haben, gibt es 2 nützliche Ereignisse, um zu wissen, wann der Server gestartet wurde und wann er gestoppt wurde.
Dieses Ereignis wird ausgelöst, wenn der Server gestartet wurde und neue Verbindungen verarbeiten kann.
procedure OnStartup(Sender: TObject);
begin
WriteLn('#server started');
end;
Dieses Ereignis wird ausgelöst, nachdem der Server gestoppt wurde und keine Verbindungen mehr akzeptiert werden.
procedure OnShutdown(Sender: TObject);
begin
WriteLn('#server stopped');
end;