Changeset 36 for trunk/Pages/UMainPage.pas

Timestamp:

Oct 29, 2010, 10:44:13 PM (14 years ago)

Author:

george

Message:

• Přidáno: Neodokončená třída TPageList a TQueryString.
• Přidáno: Částečná podpora pro přihlašování uživatelů.

File:

• trunk/Pages/UMainPage.pas (modified) (4 diffs)

trunk/Pages/UMainPage.pas

@@ -19 +19 @@
 procedure ServerInfo(App: TCustomApplication; HandlerData: THTTPHandlerData);
 procedure WebCam(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure UserControl(App: TCustomApplication; HandlerData: THTTPHandlerData);
 
 implementation
@@ -159 +160 @@
         '<br /><div align="center"><img name="theImage" src="" idth="640" height="480" alt="Webcam image"><br>Poslední aktualizace: ' +
           DateTimeToStr(FileDateToDateTime(FileAge(WebCamImage))) + '<br>Obnovování po ' + IntToStr(RefreshInterval) + ' sekundách</div><br />';
-      end else Text := '<br />Obrázek nenalezen.<br /><br />';
+      end else Text := Text + '<br />Obrázek nenalezen.<br /><br />';
       Text := Text + '</td></tr></table>';
     end;
@@ -316 +317 @@
     'Provozovatel: Ing. Jiří Hajda<br/>' +
     'Adresa: Zděchov 208, 75607<br/>' +
-    'Telefón: 737785792<br/>' +
+    'Telefon: 737785792<br/>' +
     'E-mail: <a href="mailto: robie@centrum.cz">robie@centrum.cz</a><br/>' +
+    'ICQ: <a href="http://www.icq.com/people/277158770">277158770</a><br/>' +
     'IČ: 75904535<br/>' +
     'DIČ: CZ8303255884<br/>' +
@@ -324 +326 @@
 end;
 
+procedure UserControl(App: TCustomApplication; HandlerData: THTTPHandlerData);
+var
+  PageName: string;
+begin
+  App.HtmlDocument.Title := 'Uživatel';
+
+  if HandlerData.Request.QueryParts.Count > 1 then PageName := HandlerData.Request.QueryParts[1]
+    else PageName := '';
+  with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    if PageName = 'prihlaseni' then begin
+      Text := 'Login';
+
+    end else Text := '';
+  end;
+end;
+
+
 procedure ServerInfo(App: TCustomApplication; HandlerData: THTTPHandlerData);
 begin