Changeset 428 for ModularSystem


Ignore:
Timestamp:
Oct 9, 2012, 11:48:44 AM (12 years ago)
Author:
chronos
Message:
  • Added: Load and save module list to registry.
  • Added: Installation and uninstallation of modules are now performed in two steps as BeforeStart, BeforeStop and AfterStart, AfterStop.
  • Fixed: Demo works again.
Location:
ModularSystem
Files:
3 added
8 edited

Legend:

Unmodified
Added
Removed

  • ModularSystem/Demo/Demo.lpi

    r397 r428  
    3535      <Item1>
    3636        <PackageName Value="ModularSystem"/>
     37        <DefaultFilename Value="..\ModularSystem.lpk" Prefer="True"/>
    3738      </Item1>
    3839      <Item2>

  • ModularSystem/Demo/UMainForm.lfm

    r394 r428  
    1010  OnDestroy = FormDestroy
    1111  OnShow = FormShow
    12   LCLVersion = '1.1'
     12  LCLVersion = '1.0.1.3'
    1313  object ListViewModules: TListView
    1414    Left = 8
    … …  
    3030      end   
    3131      item
    32         Caption = 'State'
     32        Caption = 'Installed'
     33        Width = 80
     34      end   
     35      item
     36        Caption = 'Running'
    3337        Width = 80
    3438      end   
    … …  
    8084    TabOrder = 3
    8185  end
     86  object ButtonUpdate1: TButton
     87    Left = 248
     88    Height = 25
     89    Top = 281
     90    Width = 75
     91    Action = AModuleStart
     92    Anchors = [akLeft, akBottom]
     93    TabOrder = 4
     94  end
     95  object ButtonUpdate2: TButton
     96    Left = 328
     97    Height = 25
     98    Top = 281
     99    Width = 75
     100    Action = AModuleStop
     101    Anchors = [akLeft, akBottom]
     102    TabOrder = 5
     103  end
    82104  object PopupMenu1: TPopupMenu
    83105    left = 183
    … …  
    92114      Action = AModuleUpdate
    93115    end
     116    object MenuItem4: TMenuItem
     117      Action = AModuleStart
     118    end
     119    object MenuItem5: TMenuItem
     120      Action = AModuleStop
     121    end
    94122  end
    95123  object ActionList1: TActionList
    96     left = 137
    97     top = 165
     124    left = 184
     125    top = 136
    98126    object AModuleInstall: TAction
    99127      Caption = 'Install'
    … …  
    108136      OnExecute = ButtonUpdateClick
    109137    end
     138    object AModuleStart: TAction
     139      Caption = 'Start'
     140      OnExecute = AModuleStartExecute
     141    end
     142    object AModuleStop: TAction
     143      Caption = 'Stop'
     144      OnExecute = AModuleStopExecute
     145    end
    110146  end
    111147end

  • ModularSystem/Demo/UMainForm.pas

    r397 r428  
    1515  TMainForm = class(TForm)
    1616  published
     17    AModuleStart: TAction;
     18    AModuleStop: TAction;
    1719    AModuleInstall: TAction;
    1820    AModuleUninstall: TAction;
    … …  
    2224    ButtonUninstall: TButton;
    2325    ButtonInstall: TButton;
     26    ButtonUpdate1: TButton;
     27    ButtonUpdate2: TButton;
    2428    ListViewModules: TListView;
    2529    MenuItem1: TMenuItem;
    2630    MenuItem2: TMenuItem;
    2731    MenuItem3: TMenuItem;
     32    MenuItem4: TMenuItem;
     33    MenuItem5: TMenuItem;
    2834    PopupMenu1: TPopupMenu;
     35    procedure AModuleStartExecute(Sender: TObject);
     36    procedure AModuleStopExecute(Sender: TObject);
    2937    procedure ButtonInstallClick(Sender: TObject);
    3038    procedure ButtonUninstallClick(Sender: TObject);
    … …  
    4452
    4553const
    46   InstalledText: array[Boolean] of string = ('Not installed', 'Installed');
     54  BoolText: array[Boolean] of string = ('No', 'Yes');
    4755
    4856var
    … …  
    6674    Item.Caption := Title;
    6775    Item.Data := ModuleManager.Modules[Item.Index];
    68     Item.SubItems.Add(Name);
     76    Item.SubItems.Add(Identification);
    6977    Item.SubItems.Add(Version);
    70     Item.SubItems.Add(InstalledText[Installed]);
     78    Item.SubItems.Add(BoolText[Installed]);
     79    Item.SubItems.Add(BoolText[Running]);
    7180    Item.SubItems.Add(License);
    7281    Item.SubItems.Add(StringReplace(Dependencies.Text, LineEnding, ', ', [rfReplaceAll]));
    … …  
    7988var
    8089  Installed: Boolean;
     90  Running: Boolean;
    8191begin
    8292  if Assigned(ListViewModules.Selected) then Installed := TModule(ListViewModules.Selected.Data).Installed;
     93  if Assigned(ListViewModules.Selected) then Running := TModule(ListViewModules.Selected.Data).Running;
    8394  AModuleInstall.Enabled := Assigned(ListViewModules.Selected) and not Installed;
    8495  AModuleUninstall.Enabled := Assigned(ListViewModules.Selected) and Installed;
    8596  AModuleUpdate.Enabled := Assigned(ListViewModules.Selected) and Installed;
     97  AModuleStart.Enabled := Assigned(ListViewModules.Selected) and not Running;
     98  AModuleStop.Enabled := Assigned(ListViewModules.Selected) and Running;
    8699end;
    87100
    88101procedure TMainForm.RegisterModules;
    89102begin
    90   ModuleManager.RegisterModule(TModuleUser.Create);
    91   ModuleManager.RegisterModule(TModuleBase.Create);
    92   ModuleManager.RegisterModule(TModuleACL.Create);
     103  ModuleManager.RegisterModule(TModuleUser.Create(nil));
     104  ModuleManager.RegisterModule(TModuleBase.Create(nil));
     105  ModuleManager.RegisterModule(TModuleACL.Create(nil));
    93106end;
    94107
    … …  
    129142end;
    130143
     144procedure TMainForm.AModuleStartExecute(Sender: TObject);
     145var
     146  ModuleList: TStringList;
     147begin
     148  if Assigned(ListViewModules.Selected) then begin
     149    try
     150      ModuleList := TStringList.Create;
     151      TModule(ListViewModules.Selected.Data).EnumModulesStart(ModuleList);
     152      if ModuleList.Count > 0 then begin
     153        if MessageDlg('These modules will be started in addition to ' +
     154          TModule(ListViewModules.Selected.Data).Name + ': ' +
     155          StringReplace(ModuleList.Text, LineEnding, ', ', [rfReplaceAll]),
     156          mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     157           TModule(ListViewModules.Selected.Data).Start;
     158      end else TModule(ListViewModules.Selected.Data).Start;
     159    finally
     160      ModuleList.Free;
     161    end;
     162    RefreshList;
     163  end;
     164end;
     165
     166procedure TMainForm.AModuleStopExecute(Sender: TObject);
     167var
     168  ModuleList: TStringList;
     169begin
     170  if Assigned(ListViewModules.Selected) then begin
     171    try
     172      ModuleList := TStringList.Create;
     173      TModule(ListViewModules.Selected.Data).EnumModulesStop(ModuleList);
     174      if ModuleList.Count > 0 then begin
     175        if MessageDlg('These modules will be stopped in addition to ' +
     176          TModule(ListViewModules.Selected.Data).Name + ': ' +
     177          StringReplace(ModuleList.Text, LineEnding, ', ', [rfReplaceAll]),
     178          mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     179            TModule(ListViewModules.Selected.Data).Stop;
     180      end else TModule(ListViewModules.Selected.Data).Stop;
     181    finally
     182      ModuleList.Free;
     183    end;
     184
     185    RefreshList;
     186  end;
     187end;
     188
    131189procedure TMainForm.ButtonUninstallClick(Sender: TObject);
    132190var
    … …  
    155213begin
    156214  if Assigned(ListViewModules.Selected) then begin
    157     TModule(ListViewModules.Selected.Data).Update;
     215    TModule(ListViewModules.Selected.Data).Upgrade;
    158216    RefreshList;
    159217  end;
    … …  
    162220procedure TMainForm.FormDestroy(Sender: TObject);
    163221begin
    164   ModuleManager.Free;
     222  FreeAndNil(ModuleManager);
    165223end;
    166224

  • ModularSystem/Demo/UModuleACL.pas

    r394 r428  
    1212
    1313  TModuleACL = class(TModule)
    14     constructor Create; override;
     14    constructor Create(AOwner: TComponent); override;
    1515    destructor Destroy; override;
    1616  end;
    … …  
    2121{ TModuleACL }
    2222
    23 constructor TModuleACL.Create;
     23constructor TModuleACL.Create(AOwner: TComponent);
    2424begin
    2525  inherited;
    26   Name := 'UserACL';
     26  Identification := 'UserACL';
    2727  Title := 'User ACL';
    2828  Version := '1.0';

  • ModularSystem/Demo/UModuleBase.pas

    r394 r428  
    1010type
    1111  TModuleBase = class(TModule)
    12     constructor Create; override;
     12    constructor Create(AOwner: TComponent); override;
    1313    destructor Destroy; override;
    1414  end;
    … …  
    1919{ TModuleUser }
    2020
    21 constructor TModuleBase.Create;
     21constructor TModuleBase.Create(AOwner: TComponent);
    2222begin
    2323inherited;
    24   Name := 'Base';
     24  Identification := 'Base';
    2525  Title := 'Base';
    2626  Version := '1.0';

  • ModularSystem/Demo/UModuleUser.pas

    r394 r428  
    1313
    1414  TModuleUser = class(TModule)
    15     constructor Create; override;
     15    constructor Create(AOwner: TComponent); override;
    1616    destructor Destroy; override;
    1717  end;
    … …  
    2121{ TModuleUser }
    2222
    23 constructor TModuleUser.Create;
     23constructor TModuleUser.Create(AOwner: TComponent);
    2424begin
    2525  inherited;
    26   Name := 'User';
     26  Identification := 'User';
    2727  Title := 'User';
    2828  Version := '1.0';

  • ModularSystem/ModularSystem.lpk

    r399 r428  
    2828      </Item1>
    2929    </Files>
     30    <i18n>
     31      <EnableI18N Value="True"/>
     32      <OutDir Value="Language"/>
     33      <EnableI18NForLFM Value="True"/>
     34    </i18n>
    3035    <Type Value="RunAndDesignTime"/>
    31     <RequiredPkgs Count="1">
     36    <RequiredPkgs Count="2">
    3237      <Item1>
     38        <PackageName Value="Common"/>
     39      </Item1>
     40      <Item2>
    3341        <PackageName Value="FCL"/>
    34       </Item1>
     42      </Item2>
    3543    </RequiredPkgs>
    3644    <UsageOptions>

  • ModularSystem/UModularSystem.pas

    r421 r428  
    66
    77uses
    8   Classes, SysUtils, Contnrs;
     8  Classes, SysUtils, Contnrs, URegistry;
    99
    1010type
    … …  
    1919  TModule = class(TComponent)
    2020  private
     21    FEnabled: Boolean;
    2122    FRunning: Boolean;
    2223    FInstalled: Boolean;
    … …  
    2930    FDependencies: TStringList;
    3031    FDescription: TStringList;
     32    procedure SetEnabled(AValue: Boolean);
    3133    procedure SetInstalled(AValue: Boolean);
    3234    procedure SetRunning(AValue: Boolean);
     35  protected
     36    procedure BeforeStart; virtual;
     37    procedure AfterStart; virtual;
     38    procedure BeforeStop; virtual;
     39    procedure AfterStop; virtual;
    3340  public
    3441    API: TAPI;
    35     MarkForInstall: Boolean;
    3642    procedure Start; virtual;
    3743    procedure Stop; virtual;
    … …  
    4854    property Running: Boolean read FRunning write SetRunning;
    4955    property Installed: Boolean read FInstalled write SetInstalled;
     56    property Enabled: Boolean read FEnabled write SetEnabled;
    5057  published
    5158    property Version: string read FVersion write FVersion;
    … …  
    7986    procedure EnumModulesInstall(Dependencies, ModuleList: TStringList);
    8087    procedure EnumModulesUninstall(ModuleName: string; ModuleList: TStringList);
    81     procedure RegisterModule(Module: TModule; MarkForInstall: Boolean = False);
     88    procedure RegisterModule(Module: TModule; Enabled: Boolean = True);
    8289    procedure UnregisterModule(Module: TModule);
    8390    procedure StartInstalled;
    84     procedure InstallMarked;
     91    procedure InstallEnabled;
    8592    procedure StopAll;
    8693    procedure UninstallAll;
     94    procedure LoadFromRegistry(Context: TRegistryContext);
     95    procedure SaveToRegistry(Context: TRegistryContext);
    8796    constructor Create(AOwner: TComponent); override;
    8897    destructor Destroy; override;
    … …  
    143152  for I := 0 to Dependencies.Count - 1 do begin
    144153    Module := FindModuleByName(Dependencies[I]);
    145     if Assigned(Module) then begin
     154    if Assigned(Module) and Module.Enabled then begin
    146155      if not Module.Running then Module.Start;
    147156    end else raise Exception.CreateFmt(SModuleNotFound, [ModuleName, Dependencies[I]]);
    … …  
    199208  for I := 0 to Dependencies.Count - 1 do begin
    200209    Module := FindModuleByName(Dependencies[I]);
    201     if Assigned(Module) then begin
     210    if Assigned(Module) and Module.Enabled then begin
    202211      if not Module.Installed then Module.Install;
    203212    end else raise Exception.CreateFmt(SModuleNotFound, [ModuleName, Dependencies[I]]);
    … …  
    248257
    249258procedure TModuleManager.RegisterModule(Module: TModule;
    250   MarkForInstall: Boolean = False);
     259  Enabled: Boolean = True);
    251260begin
    252261  Modules.Add(Module);
    253262  Module.Manager := Self;
    254263  Module.API := API;
    255   Module.MarkForInstall := MarkForInstall;
     264  Module.Enabled := Enabled;
    256265end;
    257266
    … …  
    270279end;
    271280
    272 procedure TModuleManager.InstallMarked;
     281procedure TModuleManager.InstallEnabled;
    273282var
    274283  I: Integer;
    … …  
    276285  for I := 0 to Modules.Count - 1 do
    277286  with TModule(Modules[I]) do
    278     if not Installed and MarkForInstall then Install;
     287    if not Installed and Enabled then Install;
    279288end;
    280289
    … …  
    310319end;
    311320
     321procedure TModuleManager.LoadFromRegistry(Context: TRegistryContext);
     322var
     323  I: Integer;
     324begin
     325  with TRegistryEx.Create do
     326  try
     327    RootKey := Context.RootKey;
     328    for I := 0 to Modules.Count - 1 do
     329    with TModule(Modules[I]) do begin
     330      OpenKey(Context.Key + '\' + Identification, True);
     331      Running := ReadBoolWithDefault('Run',  Enabled);
     332    end;
     333  finally
     334    Free;
     335  end;
     336end;
     337
     338procedure TModuleManager.SaveToRegistry(Context: TRegistryContext);
     339var
     340  I: Integer;
     341begin
     342  with TRegistryEx.Create do
     343  try
     344    RootKey := Context.RootKey;
     345    for I := 0 to Modules.Count - 1 do
     346    with TModule(Modules[I]) do begin
     347      OpenKey(Context.Key + '\' + Identification, True);
     348      WriteBool('Run', Running);
     349    end;
     350  finally
     351    Free;
     352  end;
     353end;
     354
    312355{ TModule }
    313356
    … …  
    318361end;
    319362
     363procedure TModule.BeforeStart;
     364begin
     365  if Running then Exit;
     366  if not Installed then Install;
     367  Manager.StartDependencies(Identification, Dependencies);
     368end;
     369
     370procedure TModule.AfterStart;
     371begin
     372  FRunning := True;
     373end;
     374
     375procedure TModule.BeforeStop;
     376begin
     377  if not Running then Exit;
     378  FRunning := False;
     379  Manager.StopDependencies(Identification);
     380end;
     381
     382procedure TModule.AfterStop;
     383begin
     384end;
     385
    320386procedure TModule.SetInstalled(AValue: Boolean);
    321387begin
    … …  
    324390end;
    325391
     392procedure TModule.SetEnabled(AValue: Boolean);
     393begin
     394  if FEnabled = AValue then Exit;
     395  FEnabled := AValue;
     396  if not FEnabled and FInstalled then Uninstall;
     397end;
     398
    326399procedure TModule.Start;
    327400begin
    328   if Running then Exit;
    329   Manager.StartDependencies(Identification, Dependencies);
    330   FRunning := True;
     401  BeforeStart;
     402  AfterStart;
    331403end;
    332404
    333405procedure TModule.Stop;
    334406begin
    335   if not Running then Exit;
    336   Manager.StopDependencies(Identification);
    337   FRunning := False;
     407  BeforeStop;
     408  AfterStop;
    338409end;
    339410
Note: See TracChangeset for help on using the changeset viewer.