Changeset 53 for trunk/CGI.lpr

Timestamp:

Jul 20, 2011, 10:50:41 PM (13 years ago)

Author:

george

Message:

• Upraveno: Projekt jako potomek TWebApp.

File:

• trunk/CGI.lpr (modified) (1 diff)

trunk/CGI.lpr

@@ -5 +5 @@
 uses
   UCore, USqlDatabase, SysUtils, Contnrs,
-  UMainPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile, UPagesModule,
+  UContactPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile, UPagesModule,
   UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
-  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule;
+  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule, UWebApp,
+  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
+  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUserControlPage,
+  UNetworkPage, UAboutPage;
 
+var
+  Application: TWebApp;
 begin
-  MainModule := TMainModule.Create(nil);
-  PagesModule := TPagesModule.Create(nil);
-  with MainModule, PagesModule do
+  Application := TWebApp.Create(nil);
+  with Application do
   try
-    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);
+    Initialize;
+    RegisterPage(TInternetPage, InternetPage, 'internet');
+    RegisterPage(THostingPage, HostingPage, 'hosting');
+    RegisterPage(THistoryPage, HistoryPage, 'historie');
+    RegisterPage(TDocumentsPage, DocumentsPage, 'dokumenty');
+    RegisterPage(TVoIPPage, VoIPPage, 'voip');
+    RegisterPage(TLinksPage, LinksPage, 'odkazy');
+    RegisterPage(TContactPage, ContactPage, 'kontakt');
+    RegisterPage(TServerInfoPage, ServerInfoPage, 'serverinfo');
+    RegisterPage(TWebCamPage, WebCamPage, 'kamery');
+    RegisterPage(TUserControlPage, UserControlPage, 'uzivatel');
+    RegisterPage(TPlansPage, PlansPage, 'plany');
+    RegisterPage(TNetworkPage, NetworkPage, 'sit');
+    RegisterPage(TAboutPage, AboutPage, '');
     Run;
   finally
-    MainModule.Free;
-    PagesModule.Free;
+    Free;
   end;
 end.