TsgcWebSocketServer | 服务器启动与停止

设置好服务器的所有必要配置后，有 2 个有用的事件可以知道服务器何时启动以及何时停止。

OnStartup

此事件在服务器启动并可以处理新连接时触发。

procedure OnStartup(Sender: TObject);
begin
  WriteLn('#server started');
end;

OnShutdown

此事件在服务器停止且不再接受连接后触发。

procedure OnShutdown(Sender: TObject);
begin
  WriteLn('#server stopped');
end;