Changeset 105 for trunk/Packages/ModularSystem/UModularSystem.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/Packages/ModularSystem/UModularSystem.pas (modified) (15 diffs)

trunk/Packages/ModularSystem/UModularSystem.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs;
+  Classes, SysUtils, Contnrs, URegistry;
 
 type
@@ -19 +19 @@
   TModule = class(TComponent)
   private
+    FEnabled: Boolean;
     FRunning: Boolean;
     FInstalled: Boolean;
-    Manager: TModuleManager;
+    FManager: TModuleManager;
     FVersion: string;
     FIdentification: string;
@@ -29 +30 @@
     FDependencies: TStringList;
     FDescription: TStringList;
+    procedure SetEnabled(AValue: Boolean);
     procedure SetInstalled(AValue: Boolean);
     procedure SetRunning(AValue: Boolean);
+  protected
+    procedure BeforeStart; virtual;
+    procedure AfterStart; virtual;
+    procedure BeforeStop; virtual;
+    procedure AfterStop; virtual;
   public
     API: TAPI;
-    MarkForInstall: Boolean;
     procedure Start; virtual;
     procedure Stop; virtual;
@@ -48 +54 @@
     property Running: Boolean read FRunning write SetRunning;
     property Installed: Boolean read FInstalled write SetInstalled;
+    property Enabled: Boolean read FEnabled write SetEnabled;
   published
+    property Manager: TModuleManager read FManager;
     property Version: string read FVersion write FVersion;
     property Identification: string read FIdentification write FIdentification;
@@ -79 +87 @@
     procedure EnumModulesInstall(Dependencies, ModuleList: TStringList);
     procedure EnumModulesUninstall(ModuleName: string; ModuleList: TStringList);
-    procedure RegisterModule(Module: TModule; MarkForInstall: Boolean = False);
+    procedure RegisterModule(Module: TModule; Enabled: Boolean = True);
     procedure UnregisterModule(Module: TModule);
     procedure StartInstalled;
-    procedure InstallMarked;
+    procedure InstallEnabled;
     procedure StopAll;
     procedure UninstallAll;
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -143 +153 @@
   for I := 0 to Dependencies.Count - 1 do begin
     Module := FindModuleByName(Dependencies[I]);
-    if Assigned(Module) then begin
+    if Assigned(Module) and Module.Enabled then begin
       if not Module.Running then Module.Start;
     end else raise Exception.CreateFmt(SModuleNotFound, [ModuleName, Dependencies[I]]);
@@ -199 +209 @@
   for I := 0 to Dependencies.Count - 1 do begin
     Module := FindModuleByName(Dependencies[I]);
-    if Assigned(Module) then begin
+    if Assigned(Module) and Module.Enabled then begin
       if not Module.Installed then Module.Install;
     end else raise Exception.CreateFmt(SModuleNotFound, [ModuleName, Dependencies[I]]);
@@ -248 +258 @@
 
 procedure TModuleManager.RegisterModule(Module: TModule;
-  MarkForInstall: Boolean = False);
+  Enabled: Boolean = True);
 begin
   Modules.Add(Module);
-  Module.Manager := Self;
+  Module.FManager := Self;
   Module.API := API;
-  Module.MarkForInstall := MarkForInstall;
+  Module.Enabled := Enabled;
 end;
 
@@ -270 +280 @@
 end;
 
-procedure TModuleManager.InstallMarked;
+procedure TModuleManager.InstallEnabled;
 var
   I: Integer;
@@ -276 +286 @@
   for I := 0 to Modules.Count - 1 do
   with TModule(Modules[I]) do
-    if not Installed and MarkForInstall then Install;
+    if not Installed and Enabled then Install;
 end;
 
@@ -301 +311 @@
   inherited;
   Modules := TObjectList.Create;
+  //Modules.OwnsObjects := False;
 end;
 
@@ -307 +318 @@
   StopAll;
   FreeAndNil(Modules);
-  inherited Destroy;
+  inherited;
+end;
+
+procedure TModuleManager.LoadFromRegistry(Context: TRegistryContext);
+var
+  I: Integer;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Context.RootKey;
+    for I := 0 to Modules.Count - 1 do
+    with TModule(Modules[I]) do begin
+      OpenKey(Context.Key + '\' + Identification, True);
+      Running := ReadBoolWithDefault('Run',  Enabled);
+    end;
+  finally
+    Free;
+  end;
+end;
+
+procedure TModuleManager.SaveToRegistry(Context: TRegistryContext);
+var
+  I: Integer;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Context.RootKey;
+    for I := 0 to Modules.Count - 1 do
+    with TModule(Modules[I]) do begin
+      OpenKey(Context.Key + '\' + Identification, True);
+      WriteBool('Run', Running);
+    end;
+  finally
+    Free;
+  end;
 end;
 
@@ -318 +363 @@
 end;
 
+procedure TModule.BeforeStart;
+begin
+  if Running then Exit;
+  if not Installed then Install;
+  Manager.StartDependencies(Identification, Dependencies);
+end;
+
+procedure TModule.AfterStart;
+begin
+  FRunning := True;
+end;
+
+procedure TModule.BeforeStop;
+begin
+  if not Running then Exit;
+  FRunning := False;
+  Manager.StopDependencies(Identification);
+end;
+
+procedure TModule.AfterStop;
+begin
+end;
+
 procedure TModule.SetInstalled(AValue: Boolean);
 begin
@@ -324 +392 @@
 end;
 
+procedure TModule.SetEnabled(AValue: Boolean);
+begin
+  if FEnabled = AValue then Exit;
+  FEnabled := AValue;
+  if not FEnabled and FInstalled then Uninstall;
+end;
+
 procedure TModule.Start;
 begin
-  if Running then Exit;
-  Manager.StartDependencies(Identification, Dependencies);
-  FRunning := True;
+  BeforeStart;
+  // Do something
+  AfterStart;
 end;
 
 procedure TModule.Stop;
 begin
-  if not Running then Exit;
-  Manager.StopDependencies(Identification);
-  FRunning := False;
+  BeforeStop;
+  // Do something
+  AfterStop;
 end;
 
@@ -403 +478 @@
 begin
   Running := False;
-  Description.Free;
-  Dependencies.Free;
-  inherited Destroy;
+  FreeAndNil(FDescription);
+  FreeAndNil(FDependencies);
+  inherited;
 end;