Changeset 89 for trunk/UCore.pas

Timestamp:

Sep 6, 2012, 8:29:27 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Balíček ModularSystem namísto vlastní implementace.
• Upraveno: Aktualizace balíčku Common.

File:

• trunk/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, LResources, UHTTPServerCGI, UHTTPSessionMySQL,
   UHTTPServer, USqlDatabase, INIFiles, DateUtils, UWebPage, UWebApp,
-  UXmlClasses, UHtmlClasses, UUtils, UHTTPServerTCP,
-  UHTTPSessionFile, UUser, SpecializedList, Registry;
+  UXmlClasses, UHtmlClasses, UUtils, UApplicationInfo, UHTTPServerTCP,
+  UModuleUser, UHTTPSessionFile, UUser, SpecializedList, Registry,
+  UModularSystem;
 
 const
@@ -43 +44 @@
 
   TCore = class(TDataModule)
+    ApplicationInfo1: TApplicationInfo;
     WebApp1: TWebApp;
     procedure WebApp1PageProduce(HandlerData: THTTPHandlerData);
   private
     procedure Show(Content: string);
+    procedure RegisterModules;
   public
+    ModuleManager: TModuleManager;
     Load: string;
     Unload: string;
@@ -80 +84 @@
 
 uses
-  UApplicationInfo, UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
+  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
   ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUserControlPage,
   UNetworkPage, UAboutPage, UContactPage, UProjectsPage;
@@ -167 +171 @@
 begin
   inherited;
+  ModuleManager := TModuleManager.Create(nil);
   Pages := TPageList.Create;
+
+  RegisterModules;
+  ModuleManager.InstallMarked;
+
   LoadFromRegistry;
   with Pages do begin
@@ -269 +278 @@
   TopMenu, PageMenu, Content, Footer);
   Result := Document.GetOutput;        *)
+end;
+
+procedure TCore.RegisterModules;
+begin
+  with ModuleManager do begin
+    RegisterModule(TModuleUser.Create(nil), True);
+  end;
 end;