Changeset 105 for trunk/Modules/System/UModuleSystem.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/System/UModuleSystem.pas (modified) (4 diffs)

trunk/Modules/System/UModuleSystem.pas

@@ -77 +77 @@
     for I := 0 to DbRows.Count - 1 do
     with DbRows[I] do begin
-      Module := Core.ModuleManager.FindModuleByName(Values['Name']);
+      Module := Manager.FindModuleByName(Values['Name']);
       if Assigned(Module) then
         if Values['Installed'] = '1' then Module.SetInstalledState(True)
@@ -85 +85 @@
     DbRows.Free;
   end;
-  Core.ModuleManager.OnModuleChange := ModuleChange;
+  Manager.OnModuleChange := ModuleChange;
   inherited;
 end;
@@ -91 +91 @@
 procedure TModuleSystem.Stop;
 begin
-  inherited Stop;
-  Core.ModuleManager.OnModuleChange := nil;
+  BeforeStop;
+  Manager.OnModuleChange := nil;
+  AfterStop;
 end;
 
@@ -152 +153 @@
     Core.CommonDatabase.Select(DbRows, 'SystemModule', 'Name');
 
-    for I := 0 to Core.ModuleManager.Modules.Count - 1 do
-    with TModule(Core.ModuleManager.Modules[I]) do begin
+    for I := 0 to Manager.Modules.Count - 1 do
+    with TModule(Manager.Modules[I]) do begin
       Data.Clear;
       Data.Add('Name', Identification);