Changeset 52 for trunk/CGI.lpr

Timestamp:

May 1, 2011, 12:20:19 AM (13 years ago)

Author:

george

Message:

• Upraveno: Stránky přepracovány z metod na komponenty.

File:

• trunk/CGI.lpr (modified) (2 diffs)

trunk/CGI.lpr

@@ -5 +5 @@
 uses
   UCore, USqlDatabase, SysUtils, Contnrs,
-  UMainPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
+  UMainPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile, UPagesModule,
   UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
   UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule;
@@ -11 +11 @@
 begin
   MainModule := TMainModule.Create(nil);
-  with MainModule do
+  PagesModule := TPagesModule.Create(nil);
+  with MainModule, PagesModule do
   try
-    RegisterPage('internet', Internet);
-    RegisterPage('hosting', Hosting);
-    RegisterPage('historie', History);
-    RegisterPage('dokumenty', Documents);
-    RegisterPage('voip', VoIP);
-    RegisterPage('odkazy', Links);
-    RegisterPage('kontakt', Contact);
-    RegisterPage('serverinfo', ServerInfo);
-    RegisterPage('kamery', WebCam);
-    RegisterPage('uzivatel', UserControl);
-    RegisterPage('plany', Plans);
-    RegisterPage('sit', Network);
-    RegisterPage('', About);
+    RegisterPage('internet', PageInternet);
+    RegisterPage('hosting', PageHosting);
+    RegisterPage('historie', PageHistory);
+    RegisterPage('dokumenty', PageDocuments);
+    RegisterPage('voip', PageVoIP);
+    RegisterPage('odkazy', PageLinks);
+    RegisterPage('kontakt', PageContact);
+    RegisterPage('serverinfo', PageServerInfo);
+    RegisterPage('kamery', PageWebCam);
+    RegisterPage('uzivatel', PageUserControl);
+    RegisterPage('plany', PagePlans);
+    RegisterPage('sit', PageNetwork);
+    RegisterPage('', PageAbout);
     Run;
   finally
-    Free;
+    MainModule.Free;
+    PagesModule.Free;
   end;
 end.