реструктуризация файлов, добавление вебчатов

TTW_Bot_app.dpr

@@ -1,33 +1,50 @@
 program TTW_Bot_app;
 
 uses
-  System.StartUpCopy, SysUtils,
+  System.StartUpCopy,
+  SysUtils,
   FMX.Forms,
-  uGeneral in 'uGeneral.pas' {TTW_Bot} ,
-  fSettings in 'fSettings.pas' {frSettings: TFrame} ,
-  fAI in 'fAI.pas' {frAI: TFrame} ,
-  fNotify in 'fNotify.pas' {frNotify: TFrame} ,
-  fAutoActions in 'fAutoActions.pas' {frAutoActions: TFrame} ,
-  fOBS in 'fOBS.pas' {frOBS: TFrame} ,
-  fLog in 'fLog.pas' {frLog: TFrame} ,
-  uRecords in 'uRecords.pas',
-  fCommands in 'fCommands.pas' {frCommands: TFrame} ,
-  uDataBase in 'uDataBase.pas',
-  fColorSettings in 'fColorSettings.pas' {frColorSettings: TFrame} ,
-  uCreateChat in 'uCreateChat.pas' {fCreateChat} ,
-  fFontSettings in 'fFontSettings.pas' {frFontSettings: TFrame} ,
-  uCreateNotify in 'uCreateNotify.pas' {fCreateNotify} ,
-  uTWAuth in 'uTWAuth.pas',
-  uTTWAPI in 'uTTWAPI.pas',
-  uAPIDA in 'uAPIDA.pas',
-  uShowText in 'uShowText.pas' {fShowText} ,
-  uWSDA in 'uWSDA.pas',
-  uQ in 'uQ.pas' {frmQ} ,
-  fSimpleGrid in 'fSimpleGrid.pas' {frSimpleGrid: TFrame} ,
-  fContruct in 'fContruct.pas' {frContruct: TFrame} ,
-  fGroupsRequest in 'fGroupsRequest.pas' {frGroupsRequest: TFrame} ,
-  uMyTimer in 'uMyTimer.pas',
-  uRegExpr in 'uRegExpr.pas';
+  Web.WebReq,
+  IdHTTPWebBrokerBridge,
+  fAI in 'frames\fAI.pas' {frAI: TFrame},
+  fAutoActions in 'frames\fAutoActions.pas' {frAutoActions: TFrame},
+  fColorSettings in 'frames\fColorSettings.pas' {frColorSettings: TFrame},
+  fCommands in 'frames\fCommands.pas' {frCommands: TFrame},
+  fContruct in 'frames\fContruct.pas' {frContruct: TFrame},
+  fFontSettings in 'frames\fFontSettings.pas' {frFontSettings: TFrame},
+  fGroupsRequest in 'frames\fGroupsRequest.pas' {frGroupsRequest: TFrame},
+  fLog in 'frames\fLog.pas' {frLog: TFrame},
+  fNotify in 'frames\fNotify.pas' {frNotify: TFrame},
+  fOBS in 'frames\fOBS.pas' {frOBS: TFrame},
+  fSettings in 'frames\fSettings.pas' {frSettings: TFrame},
+  fSimpleGrid in 'frames\fSimpleGrid.pas' {frSimpleGrid: TFrame},
+  fTTS in 'frames\fTTS.pas' {frTTS: TFrame},
+  uCreateChat in 'forms\uCreateChat.pas' {fCreateChat},
+  uCreateNotify in 'forms\uCreateNotify.pas' {fCreateNotify},
+  uGeneral in 'forms\uGeneral.pas' {TTW_Bot},
+  uQ in 'forms\uQ.pas' {frmQ},
+  uShowText in 'forms\uShowText.pas' {fShowText},
+  uAPIDA in 'Services\uAPIDA.pas',
+  uChatAPI in 'Services\uChatAPI.pas',
+  uCustomEmoties in 'Services\uCustomEmoties.pas',
+  uGigaChat in 'Services\uGigaChat.pas',
+  uKandinskyAPI in 'Services\uKandinskyAPI.pas',
+  uTTWAPI in 'Services\uTTWAPI.pas',
+  uTTWEventSub in 'Services\uTTWEventSub.pas',
+  uTTWIRC in 'Services\uTTWIRC.pas',
+  uTWAuth in 'Services\uTWAuth.pas',
+  uWebServerKandinsky in 'Services\uWebServerKandinsky.pas',
+  uWSDA in 'Services\uWSDA.pas',
+  uDataBase in 'utils\uDataBase.pas',
+  uMyTimer in 'utils\uMyTimer.pas',
+  uOBS_Doc_Player in 'utils\uOBS_Doc_Player.pas' {OBS_Doc_Player: TWebModule},
+  uRecords in 'utils\uRecords.pas',
+  uRegExpr in 'utils\uRegExpr.pas',
+  uSoundManager in 'utils\uSoundManager.pas',
+  uTTS in 'utils\uTTS.pas',
+  fPlayerWeb in 'frames\fPlayerWeb.pas' {frPlayerWeb: TFrame},
+  uPlayerThread in 'utils\uPlayerThread.pas',
+  uWebServerChat in 'utils\uWebServerChat.pas';
 
 {$R *.res}
 
@@ -36,9 +53,16 @@ begin
 {$IFDEF DEBUG}
   ReportMemoryLeaksOnShutdown := True;
 {$ENDIF}
-  Application.Initialize;
+  if WebRequestHandler <> nil then
+    WebRequestHandler.WebModuleClass := OBS_Doc_Player;
 
+  Application.Initialize;
   Application.CreateForm(TTTW_Bot, TTW_Bot);
+  Application.CreateForm(TfCreateChat, fCreateChat);
+  Application.CreateForm(TfCreateNotify, fCreateNotify);
+  Application.CreateForm(TfrmQ, frmQ);
+  Application.CreateForm(TfShowText, fShowText);
+  Application.CreateForm(TOBS_Doc_Player, OBS_Doc_Player);
   Application.OnException := TTW_Bot.GlobalExceptionHandler;
   Application.CreateForm(TfCreateChat, fCreateChat);
   Application.CreateForm(TfCreateNotify, fCreateNotify);