Changeset 105 for trunk/Packages/CoolWeb/WebServer/UWebApp.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/Packages/CoolWeb/WebServer/UWebApp.pas (modified) (4 diffs)

trunk/Packages/CoolWeb/WebServer/UWebApp.pas

@@ -24 +24 @@
   TPageList = class(TListObject)
     RootDir: string;
+    function FindByPage(Page: TWebPage): TRegistredPage;
     function FindByName(Name: string): TRegistredPage;
-    procedure RegisterPage(PageClass: TWebPageClass; out Reference; Path: string);
-    procedure UnregisterPage(Path: string);
+    procedure RegisterPage(Page: TWebPage; Path: string);
+    procedure UnregisterPage(Page: TWebPage);
     function ProducePage(HandlerData: THTTPHandlerData): Boolean;
   end;
@@ -78 +79 @@
 { TPageList }
 
+function TPageList.FindByPage(Page: TWebPage): TRegistredPage;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TRegistredPage(Items[I]).Page <> Page) do Inc(I);
+  if I < Count then Result := TRegistredPage(Items[I])
+    else Result := nil;
+end;
+
 function TPageList.FindByName(Name: string): TRegistredPage;
 var
@@ -117 +128 @@
 end;
 
-procedure TPageList.RegisterPage(PageClass: TWebPageClass; out Reference;
-  Path: string);
+procedure TPageList.RegisterPage(Page: TWebPage; Path: string);
 var
   NewPage: TRegistredPage;
@@ -125 +135 @@
   NewPage := TRegistredPage(AddNew(TRegistredPage.Create));
 //  NewPage.Page := PageClass.Create(Self);
-  NewPage.Page := PageClass.Create(nil);
+  NewPage.Page := Page;
   NewPage.Name := Path;
-  TWebPage(Reference) := NewPage.Page;
-end;
-
-procedure TPageList.UnregisterPage(Path: string);
-var
-  Page: TRegistredPage;
-begin
-  Page := FindByName(Path);
-  Remove(Page);
+end;
+
+procedure TPageList.UnregisterPage(Page: TWebPage);
+var
+  RegPage: TRegistredPage;
+begin
+  RegPage := FindByPage(Page);
+  Remove(RegPage);
 end;