Changeset 105 for trunk/Modules/ZdechovNET/UModuleZdechovNET.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/Modules/ZdechovNET/UModuleZdechovNET.pas (modified) (9 diffs)

trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UModularSystem, SpecializedDictionary, UWebPage,
-  UWebSession, DateUtils;
+  UWebSession, DateUtils, UModuleBase, UModuleUser,
+  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
+  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUser,
+  UNetworkPage, UAboutPage, UContactPage, UProjectsPage;
 
 type
@@ -15 +18 @@
   TModuleZdechovNET = class(TModule)
   private
+    InternetPage: TInternetPage;
+    HostingPage: THostingPage;
+    HistoryPage: THistoryPage;
+    DocumentsPage: TDocumentsPage;
+    VoIPPage: TVoIPPage;
+    LinksPage: TLinksPage;
+    ContactPage: TContactPage;
+    ServerInfoPage: TServerInfoPage;
+    WebCamPage: TWebCamPage;
+    PlansPage: TPlansPage;
+    NetworkPage: TNetworkPage;
+    ProjectsPage: TProjectsPage;
+    AboutPage: TAboutPage;
     procedure Footer(Session: TWebSession);
     procedure GeneratePage(ASession: TWebSession; Page: TWebPage);
     procedure TopMenu(Session: TWebSession);
   public
+    ModuleBase: TModuleBase;
+    ModuleUser: TModuleUser;
     constructor Create(Owner: TComponent); override;
     destructor Destroy; override;
@@ -32 +50 @@
 
 uses
-  UCore, USqlDatabase, UXmlClasses, UHtmlClasses, UUtils,
-  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
-  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUser,
-  UNetworkPage, UAboutPage, UContactPage, UProjectsPage;
+  UCore, USqlDatabase, UXmlClasses, UHtmlClasses, UUtils;
 
 { TModuleZdechovNET }
@@ -48 +63 @@
   Author := 'Chronosoft';
   Dependencies.Add('User');
+  Dependencies.Add('Base');
 end;
 
@@ -57 +73 @@
 procedure TModuleZdechovNET.Start;
 begin
-  with Core.Pages do begin
-    Core.GeneratePage := GeneratePage;
-    RegisterPage(TInternetPage, InternetPage, 'internet');
-    RegisterPage(THostingPage, HostingPage, 'hosting');
-    RegisterPage(THistoryPage, HistoryPage, 'historie');
-    RegisterPage(TDocumentsPage, DocumentsPage, 'dokumenty');
-    RegisterPage(TVoIPPage, VoIPPage, 'voip');
-    RegisterPage(TLinksPage, LinksPage, 'odkazy');
-    RegisterPage(TContactPage, ContactPage, 'kontakt');
-    RegisterPage(TServerInfoPage, ServerInfoPage, 'serverinfo');
-    RegisterPage(TWebCamPage, WebCamPage, 'kamery');
-    RegisterPage(TPlansPage, PlansPage, 'plany');
-    RegisterPage(TNetworkPage, NetworkPage, 'sit');
-    RegisterPage(TProjectsPage, ProjectsPage, 'projekty');
-    RegisterPage(TAboutPage, AboutPage, '');
+  ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
+  ModuleUser := TModuleUser(Manager.FindModuleByName('User'));
+  with ModuleBase, Pages do begin
+    //GeneratePage := GeneratePage;
+    InternetPage := TInternetPage.Create(nil);
+    RegisterPage(InternetPage, 'internet');
+    HostingPage := THostingPage.Create(nil);
+    RegisterPage(HostingPage, 'hosting');
+    HistoryPage := THistoryPage.Create(nil);
+    RegisterPage(HistoryPage, 'historie');
+    DocumentsPage := TDocumentsPage.Create(nil);
+    RegisterPage(DocumentsPage, 'dokumenty');
+    VoIPPage := TVoIPPage.Create(nil);
+    RegisterPage(VoIPPage, 'voip');
+    LinksPage := TLinksPage.Create(nil);
+    RegisterPage(LinksPage, 'odkazy');
+    ContactPage := TContactPage.Create(nil);
+    RegisterPage(ContactPage, 'kontakt');
+    ServerInfoPage := TServerInfoPage.Create(nil);
+    RegisterPage(ServerInfoPage, 'serverinfo');
+    WebCamPage := TWebCamPage.Create(nil);
+    RegisterPage(WebCamPage, 'kamery');
+    PlansPage := TPlansPage.Create(nil);
+    RegisterPage(PlansPage, 'plany');
+    NetworkPage := TNetworkPage.Create(nil);
+    RegisterPage(NetworkPage, 'sit');
+    ProjectsPage := TProjectsPage.Create(nil);
+    RegisterPage(ProjectsPage, 'projekty');
+    AboutPage := TAboutPage.Create(nil);
+    RegisterPage(AboutPage, '');
   end;
   inherited;
@@ -79 +110 @@
 begin
   inherited Stop;
-  with Core.Pages do begin
-    UnregisterPage('internet');
-    UnregisterPage('hosting');
-    UnregisterPage('historie');
-    UnregisterPage('dokumenty');
-    UnregisterPage('voip');
-    UnregisterPage('odkazy');
-    UnregisterPage('kontakt');
-    UnregisterPage('serverinfo');
-    UnregisterPage('kamery');
-    UnregisterPage('plany');
-    UnregisterPage('sit');
-    UnregisterPage('projekty');
-    UnregisterPage('');
-  end;
+  with ModuleBase, Pages do begin
+    UnregisterPage(AboutPage);
+    FreeAndNil(AboutPage);
+    UnregisterPage(InternetPage);
+    FreeAndNil(InternetPage);
+    UnregisterPage(HostingPage);
+    FreeAndNil(HostingPage);
+    UnregisterPage(HistoryPage);
+    FreeAndNil(HistoryPage);
+    UnregisterPage(DocumentsPage);
+    FreeAndNil(DocumentsPage);
+    UnregisterPage(VoIPPage);
+    FreeAndNil(VoIPPage);
+    UnregisterPage(LinksPage);
+    FreeAndNil(LinksPage);
+    UnregisterPage(ContactPage);
+    FreeAndNil(ContactPage);
+    UnregisterPage(ServerInfoPage);
+    FreeAndNil(ServerInfoPage);
+    UnregisterPage(WebCamPage);
+    FreeAndNil(WebCamPage);
+    UnregisterPage(PlansPage);
+    FreeAndNil(PlansPage);
+    UnregisterPage(NetworkPage);
+    FreeAndNil(NetworkPage);
+    UnregisterPage(ProjectsPage);
+    FreeAndNil(ProjectsPage);
+  end;
+  ModuleBase := nil;
+  ModuleUser := nil;
 end;
 
@@ -179 +225 @@
 begin
   inherited Uninstall;
-  Core.GeneratePage := nil;
+  ModuleBase.GeneratePage := nil;
   try
     DbRows := TDbRows.Create;
@@ -257 +303 @@
       '<li><a href="http://wiki.zdechov.net/">Wiki</a></li>' +
       '</ul><ul class="MenuItem2">'; //<li>&nbsp;</li>';
-    if Assigned(TCore(MainModule).Pages.FindByName('uzivatel')) then begin
-      if UserOnline.User = UnknownUser then begin
+    if Assigned(ModuleBase.Pages.FindByName('uzivatel')) then begin
+      if ModuleUser.UserOnline.User = UnknownUser then begin
         Text := Text + '</ul>' +
           '<ul class="MenuItem2">' +
@@ -268 +314 @@
         Text := Text + '</ul>' +
           '<ul class="MenuItem2">' +
-          '<li>' + User.FullName + '</li>' +
+          '<li>' + ModuleUser.User.FullName + '</li>' +
           '<li>' + MakeLink('Odhlášení', NavigationLink('/uzivatel/odhlaseni/')) + '</li>' +
           '<li>' + MakeLink('Profil', NavigationLink('/uzivatel/profil/')) + '</li>';