исправлена передача команд в игры

2025-08-19 13:23:58 +03:00
parent 318365f63b
commit f58f3ed735
4 changed files with 13 additions and 10 deletions
@@ -596,13 +596,16 @@ begin
  GameWebServer.port := aPort;
  GameWebServer.WebServerGame := TGameWebServer.Create
    (myConst.GeneralPath, aPort);
+  GameWebServer.WebServerGame.SetGame(aGame);
+  commands :=  GameWebServer.WebServerGame.GetControlCommands;
+  GameWebServer.commands:= TStringList.Create;
+   for Cmd in commands do
+    GameWebServer.commands.Add(Cmd);
+
  GameWebServers.Add(GameWebServer);
  GameWebServers[GameWebServers.Count - 1].WebServerGame.Start;
-  GameWebServers[GameWebServers.Count - 1].WebServerGame.SetGame(aGame);
-  commands := GameWebServers[GameWebServers.Count - 1]
-    .WebServerGame.GetControlCommands;
-  for Cmd in commands do
-    GameWebServers[GameWebServers.Count - 1].commands.Add(Cmd);
+
+
 end;

 procedure TfrOBS.CreateWebKandinsky(aRecord: TOBSKandinsky);