Changeset 105 for trunk/Modules/IS/UModuleIS.pas

Timestamp:

Oct 9, 2012, 1:58:45 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Hlavní modul Base, který slouží jako základní rozhraní k aplikaci pro ostatní moduly. Modul System zajistí udržování seznamu instalovaných modulů v perzistentním úložišti v databázi.
• Upraveno: Správce modulů ModuleManager je nyní použit pro každé komunikační spojení zvlášť.

File:

• trunk/Modules/IS/UModuleIS.pas (modified) (4 diffs)

trunk/Modules/IS/UModuleIS.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem, SpecializedDictionary, USqlDatabase;
+  Classes, SysUtils, UModularSystem, SpecializedDictionary, USqlDatabase,
+  UModuleBase;
 
 type
@@ -15 +16 @@
   private
   public
+    ModuleBase: TModuleBase;
     constructor Create(Owner: TComponent); override;
     destructor Destroy; override;
@@ -40 +42 @@
   License := 'GNU/LGPL v3';
   Author := 'Chronosoft';
+  Dependencies.Add('Base');
 end;
 
@@ -49 +52 @@
 procedure TModuleIS.Start;
 begin
-  Core.Pages.RegisterPage(TWebPagePortal, WebPagePortal, 'portal');
-  inherited;
+  BeforeStart;
+  ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
+  //ModuleBase.Pages.RegisterPage(TWebPagePortal, WebPagePortal, 'portal');
+  AfterStart;
 end;
 
 procedure TModuleIS.Stop;
 begin
-  inherited;
-  Core.Pages.UnregisterPage('portal');
+  BeforeStop;
+  //ModuleBase.Pages.UnregisterPage('portal');
+  ModuleBase := nil;
+  AfterStop;
 end;