Changeset 105 for trunk/Modules/TV

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ášť.

Location:

trunk/Modules/TV

Files:

• UModuleTV.pas (modified) (4 diffs)
• UPageTV.pas (modified) (3 diffs)

trunk/Modules/TV/UModuleTV.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem, SpecializedDictionary;
+  Classes, SysUtils, UModularSystem, SpecializedDictionary, UModuleBase,
+  UWebPage;
 
 type
@@ -13 +14 @@
 
   TModuleTV = class(TModule)
+  private
+    WebPageTV: TWebPage;
   public
+    ModuleBase: TModuleBase;
     constructor Create(Owner: TComponent); override;
     destructor Destroy; override;
@@ -39 +43 @@
   License := 'GNU/LGPL v3';
   Author := 'Chronosoft';
+  Dependencies.Add('Base');
 end;
 
@@ -48 +53 @@
 procedure TModuleTV.Start;
 begin
-  Core.Pages.RegisterPage(TWebPageTV, WebPageTV, 'tv');
-  inherited;
+  BeforeStart;
+  ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
+  WebPageTV := TWebPageTV.Create(nil);
+  ModuleBase.Pages.RegisterPage(WebPageTV, 'tv');
+  AfterStart;
 end;
 
 procedure TModuleTV.Stop;
 begin
-  inherited;
-  Core.Pages.UnregisterPage('tv');
+  BeforeStop;
+  ModuleBase.Pages.UnregisterPage(WebPageTV);
+  FreeAndNil(WebPageTV);
+  ModuleBase := nil;
+  AfterStop;
 end;
 

trunk/Modules/TV/UPageTV.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UHtmlClasses,
-  UUtils;
+  UUtils, UModuleUser;
 
 type
@@ -19 +19 @@
     procedure HandlePlaylist(HandlerData: THTTPHandlerData);
   public
-    { public declarations }
+    ModuleUser: TModuleUser;
   end;
 
@@ -56 +56 @@
 begin
   with TWebSession(HandlerData) do begin
-    LoadUserInfo;
+    ModuleUser.LoadUserInfo;
     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := 'Stažení přehrávače: <a href="http://www.videolan.org/vlc/">VLC Media Player</a><br/>' +