source: branches/test1/Client/Application/UChronisModule.pas

unit UChronisModule;

{$mode delphi}

interface

uses
  Classes, SysUtils, SpecializedList, UPDClient;

type

  { TChronisModule }

  TChronisModule = class
    System: TObject; // TChronisBase;
    SysName: string;
    Name: string;
    Version: string;
    Creator: string;
    License: string;
    Website: string;
    Description: TStringList;
    Dependencies: TStringList;
    function IsInstalled: Boolean;
    procedure Install; virtual;
    procedure Uninstall; virtual;
    constructor Create; virtual;
    destructor Destroy; override;
  end;

  TChronisModuleClass = class of TChronisModule;


implementation

uses
  USystem;


{ TChronisModule }

function TChronisModule.IsInstalled: Boolean;
var
  List: TListProxy;
begin
  List := TListProxy.Create;
  List.Client := TChronisBase(System).Client;
  List.Path := 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.Path := 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.Path := 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.Path := 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.Path := 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;
  Description := TStringList.Create;
end;

destructor TChronisModule.Destroy;
begin
  Description.Free;
  Dependencies.Free;
  inherited Destroy;
end;

end.