Changeset 50 for trunk/Pages/UMainPage.pas

Timestamp:

Apr 30, 2011, 10:56:05 PM (13 years ago)

Author:

george

Message:

• Added: MainModule component of non visual type TDataModule. Now THTTPServer and session systems are components.

File:

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

trunk/Pages/UMainPage.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, USqlDatabase, UCore, UCustomApplication, UHtmlClasses,
+  Classes, SysUtils, USqlDatabase, UCore, UMainModule, UHtmlClasses,
   UHTTPServer, UWebObjects;
 
-procedure Links(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure History(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure Internet(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure VoIP(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure Hosting(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure About(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure Documents(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure Contact(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure ServerInfo(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure WebCam(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure UserControl(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure Plans(App: TCustomApplication; HandlerData: THTTPHandlerData);
-procedure Network(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure Links(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure History(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure Internet(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure VoIP(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure Hosting(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure About(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure Documents(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure Contact(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure ServerInfo(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure WebCam(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure UserControl(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure Plans(App: TMainModule; HandlerData: THTTPHandlerData);
+procedure Network(App: TMainModule; HandlerData: THTTPHandlerData);
+
 
 implementation
 
-procedure Links(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure Links(App: TMainModule; HandlerData: THTTPHandlerData);
 begin
   App.HtmlDocument.Title := 'Odkazy';
@@ -61 +62 @@
 end;
 
-procedure History(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure History(App: TMainModule; HandlerData: THTTPHandlerData);
 var
   DbRows: TDbRows;
@@ -87 +88 @@
 end;
 
-procedure Plans(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure Plans(App: TMainModule; HandlerData: THTTPHandlerData);
 var
   DbRows: TDbRows;
@@ -124 +125 @@
 end;
 
-procedure Internet(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure Internet(App: TMainModule; HandlerData: THTTPHandlerData);
 begin
   with App do begin
@@ -150 +151 @@
 end;
 
-procedure WebCam(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure WebCam(App: TMainModule; HandlerData: THTTPHandlerData);
 const
   WebCamImage = 'images/webcam/webcam.jpg';
@@ -196 +197 @@
 end;
 
-procedure VoIP(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure VoIP(App: TMainModule; HandlerData: THTTPHandlerData);
 begin
   with App do begin
@@ -230 +231 @@
 end;
 
-procedure Hosting(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure Hosting(App: TMainModule; HandlerData: THTTPHandlerData);
 var
   I: Integer;
@@ -294 +295 @@
 end;
 
-procedure Network(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure Network(App: TMainModule; HandlerData: THTTPHandlerData);
 var
   TextBlock: THtmlString;
@@ -309 +310 @@
 end;
 
-procedure About(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure About(App: TMainModule; HandlerData: THTTPHandlerData);
 var
   TextBlock: THtmlString;
@@ -361 +362 @@
 end;
 
-procedure Documents(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure Documents(App: TMainModule; HandlerData: THTTPHandlerData);
 begin
   with App do begin
@@ -385 +386 @@
 end;
 
-procedure Contact(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure Contact(App: TMainModule; HandlerData: THTTPHandlerData);
 begin
   App.HtmlDocument.Title := 'Kontakt';
@@ -403 +404 @@
 end;
 
-procedure UserControl(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure UserControl(App: TMainModule; HandlerData: THTTPHandlerData);
 var
   PageName: string;
@@ -440 +441 @@
 
 
-procedure ServerInfo(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure ServerInfo(App: TMainModule; HandlerData: THTTPHandlerData);
 begin
   HandlerData.Session.Values['Test'] := 'Tst';
-  App.HTTPServer.ServerInfo(HandlerData);
+  MainModule.HTTPServer.ServerInfo(HandlerData);
 end;