Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Modules/Network/UModuleNetwork.pas

    r102 r105  
    66
    77uses
    8   Classes, SysUtils, UModularSystem, SpecializedDictionary;
     8  Classes, SysUtils, UModularSystem, SpecializedDictionary, UModuleBase,
     9  UWebPage;
    910
    1011type
     
    1314
    1415  TModuleNetwork = class(TModule)
     16  private
     17    WebPageNetwork: TWebPage;
    1518  public
     19    ModuleBase: TModuleBase;
    1620    constructor Create(Owner: TComponent); override;
    1721    destructor Destroy; override;
     
    3943  License := 'GNU/LGPL v3';
    4044  Author := 'Chronosoft';
     45  Dependencies.Add('Base');
    4146end;
    4247
     
    4853procedure TModuleNetwork.Start;
    4954begin
    50   Core.Pages.RegisterPage(TWebPageNetwork, WebPageNetwork, 'sit');
     55  BeforeStart;
     56  ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
     57  WebPageNetwork := TWebPageNetwork.Create(nil);
     58  ModuleBase.Pages.RegisterPage(WebPageNetwork, 'sit');
    5159  //RegisterPage(TUserControlPage, UserControlPage, '');
    52   inherited;
     60  AfterStart;
    5361end;
    5462
    5563procedure TModuleNetwork.Stop;
    5664begin
    57   inherited;
    58   Core.Pages.UnregisterPage('sit');
     65  BeforeStop;
     66  ModuleBase.Pages.UnregisterPage(WebPageNetwork);
     67  FreeAndNil(WebPageNetwork);
     68  ModuleBase := nil;
     69  AfterStop;
    5970end;
    6071
Note: See TracChangeset for help on using the changeset viewer.