Changeset 49 for trunk/Application/UCustomApplication.pas

Timestamp:

Mar 28, 2011, 9:40:06 AM (13 years ago)

Author:

george

Message:

• Upraveno: Seznam registrovaných stránek předělán na samostatnou třídu s funkcí FindByName.

File:

• trunk/Application/UCustomApplication.pas (modified) (6 diffs)

trunk/Application/UCustomApplication.pas

@@ -18 +18 @@
     Name: string;
     Producer: TPageProducer;
+  end;
+
+  { TRegistredPageList }
+
+  TRegistredPageList = class(TListObject)
+    function FindByName(Name: string): TRegistredPage;
   end;
 
@@ -41 +47 @@
     Keywords: string;
     HtmlDocument: THtmlDocument;
-    Pages: TListObject; // TListObject<TRegistredPage>
+    Pages: TRegistredPageList;
     Database: TSqlDatabase;
     PageName: string;
@@ -61 +67 @@
   SPageNotFound = 'Page not found';
 
+{ TRegistredPageList }
+
+function TRegistredPageList.FindByName(Name: string): TRegistredPage;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TRegistredPage(Items[I]).Name <> Name) do Inc(I);
+  if I < Count then Result := TRegistredPage(Items[I])
+    else Result := nil;
+end;
+
 { TCustomApplication }
 
@@ -97 +115 @@
   I: Integer;
   TitleTag: THtmlString;
+  Page: TRegistredPage;
 begin
   User.HandlerData := HandlerData;
@@ -102 +121 @@
   UserOnline.Update;
   with HandlerData do begin
-  Style := Config.Style;
-  BaseURL := Config.BaseURL;
-
-  HtmlDocument.ContentLanguage := 'cs';
-  GlobalTitle := 'ZděchovNET';
-  HtmlDocument.Styles.Add(NavigationLink('/Style/' + Style + '/Style.css'));
-  HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/Global.js'));
-  HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js'));
-
-  Request.QueryParts.Count := 2;
-  Request.QueryParts[0] := 'uzivatel';
-  Request.QueryParts[1] := 'prihlaseni';
-
-  if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0]
-    else PageName := '';
-  I := 0;
-  while (I < Pages.Count) and (TRegistredPage(Pages[I]).Name <> PageName) do Inc(I);
-  if (I < Pages.Count) then begin
-    TitleTag := THtmlString.Create;
-    HtmlDocument.Body.SubItems.Add(TitleTag);
-    TopMenu;
-    TRegistredPage(Pages[I]).Producer(Self, HandlerData);
-    TitleTag.Text := '<div class="TitlePanel"><span class="GlobalTitle">' + GlobalTitle +
-    '</span> - ' + HtmlDocument.Title + '</div>';
-    HtmlDocument.Title := GlobalTitle + ' - ' + HtmlDocument.Title;
-    with HtmlDocument.AsXmlDocument do try
-      Formated := Config.FormatHTML;
-      Response.Stream.WriteString(AsString);
-    finally
-      Free;
-    end;
-  end else Response.Stream.WriteString(SPageNotFound);
+    Style := Config.Style;
+    BaseURL := Config.BaseURL;
+
+    HtmlDocument.ContentLanguage := 'cs';
+    GlobalTitle := 'ZděchovNET';
+    HtmlDocument.Styles.Add(NavigationLink('/Style/' + Style + '/Style.css'));
+    HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/Global.js'));
+    HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js'));
+
+    Request.QueryParts.Count := 2;
+    Request.QueryParts[0] := 'uzivatel';
+    Request.QueryParts[1] := 'prihlaseni';
+
+    if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0]
+      else PageName := '';
+    Page := Pages.FindByName(PageName);
+    if Assigned(Page) then begin
+      TitleTag := THtmlString.Create;
+      HtmlDocument.Body.SubItems.Add(TitleTag);
+      TopMenu;
+      Page.Producer(Self, HandlerData);
+      TitleTag.Text := '<div class="TitlePanel"><span class="GlobalTitle">' + GlobalTitle +
+        '</span> - ' + HtmlDocument.Title + '</div>';
+      HtmlDocument.Title := GlobalTitle + ' - ' + HtmlDocument.Title;
+      with HtmlDocument.AsXmlDocument do
+      try
+        Formated := Config.FormatHTML;
+        Response.Stream.WriteString(AsString);
+      finally
+        Free;
+      end;
+    end else Response.Stream.WriteString(SPageNotFound);
   end;
 end;
@@ -141 +160 @@
   inherited;
   Database := TSqlDatabase.Create;
-  Pages := TListObject.Create;
+  Pages := TRegistredPageList.Create;
   HtmlDocument := THtmlDocument.Create;
   User := TWebUser.Create;