Changeset 51 for trunk/Client/Application/UChronisModule.pas

Timestamp:

Apr 2, 2012, 3:59:58 PM (13 years ago)

Author:

chronos

Message:

• Added: Unfinished installable module management.

File:

• trunk/Client/Application/UChronisModule.pas (modified) (3 diffs)

trunk/Client/Application/UChronisModule.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, SpecializedList, UChronisClient;
 
 type
@@ -14 +14 @@
   TChronisModule = class
     System: TObject; // TChronisSystem;
+    SysName: string;
     Name: string;
+    Version: string;
+    Creator: string;
+    License: string;
+    HomePage: string;
+    Dependencies: TStringList;
+    function IsInstalled: Boolean;
     procedure Install; virtual;
     procedure Uninstall; virtual;
     constructor Create; virtual;
+    destructor Destroy; override;
   end;
 
   TChronisModuleClass = class of TChronisModule;
+
 
 implementation
@@ -27 +36 @@
   USystem;
 
+
 { TChronisModule }
 
+function TChronisModule.IsInstalled: Boolean;
+var
+  List: TListProxy;
+begin
+  List := TListProxy.Create;
+  List.Client := TChronisBase(System).Client;
+  List.SchemaName := TChronisBase(System).Client.Schema;
+  List.ObjectName := SystemModuleObject;
+  List.Condition := '(SysName="' + SysName + '") AND (Installed=1)';
+  List.Load;
+  Result := List.Objects.Count > 0;
+  List.Free;
+end;
+
 procedure TChronisModule.Install;
+var
+  NewObject: TObjectProxy;
+  List: TListProxy;
 begin
-
+  List := TListProxy.Create;
+  List.Client := TChronisBase(System).Client;
+  List.SchemaName := TChronisBase(System).Client.Schema;
+  List.ObjectName := SystemModuleObject;
+  List.Condition := 'SysName="' + SysName + '"';
+  List.Load;
+  if List.Objects.Count > 0 then begin
+    NewObject := TObjectProxy.Create;
+    NewObject.Id := StrToInt(TObjectProxy(List.Objects[0]).Properties.Values['Id']);
+    NewObject.Client := TChronisBase(System).Client;
+    NewObject.SchemaName := TChronisBase(System).Client.Schema;
+    NewObject.ObjectName := SystemModuleObject;
+    NewObject.Properties.Add('Installed', '1');
+    NewObject.Save;
+    NewObject.Free;
+  end;
+  List.Free;
 end;
 
 procedure TChronisModule.Uninstall;
+var
+  NewObject: TObjectProxy;
+  List: TListProxy;
 begin
-
+  List := TListProxy.Create;
+  List.Client := TChronisBase(System).Client;
+  List.SchemaName := TChronisBase(System).Client.Schema;
+  List.ObjectName := SystemModuleObject;
+  List.Condition := 'SysName="' + SysName + '"';
+  List.Load;
+  if List.Objects.Count > 0 then begin
+    NewObject := TObjectProxy.Create;
+    NewObject.Id := StrToInt(TObjectProxy(List.Objects[0]).Properties.Values['Id']);
+    NewObject.Client := TChronisBase(System).Client;
+    NewObject.SchemaName := TChronisBase(System).Client.Schema;
+    NewObject.ObjectName := SystemModuleObject;
+    NewObject.Properties.Add('Installed', '0');
+    NewObject.Save;
+    NewObject.Free;
+  end;
+  List.Free;
 end;
 
 constructor TChronisModule.Create;
 begin
+  Dependencies := TStringList.Create;
+end;
 
+destructor TChronisModule.Destroy;
+begin
+  Dependencies.Free;
+  inherited Destroy;
 end;