Changeset 76 for trunk/ZdechovNET.lpr

Timestamp:

Apr 29, 2012, 9:44:14 PM (13 years ago)

Author:

chronos

Message:

• Upraveno: Třída WebApp typu TCustomApplication je nyní použita jako komponenta namísto aplikační třídy.

File:

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

trunk/ZdechovNET.lpr

@@ -7 +7 @@
   cthreads,
   {$ENDIF}
-  UCore, USqlDatabase, SysUtils, Contnrs,
-  UContactPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
+  UCore, USqlDatabase, SysUtils, Contnrs, Forms,
+  UUser, UHTTPSessionMySQL, UHTTPSessionFile,
   UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
-  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule, UWebApp,
-  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
-  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUserControlPage,
-  UNetworkPage, UAboutPage;
+  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule, UWebApp;
 
 begin
-  with Application do
-  try
+  with Application do begin
     Initialize;
-    MainModule := TMainModule.Create(nil);
+    MainModule := TMainModule.Create(Application);
     MainModule.Run;
-    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, '');
-    //RegisterPage(TUserControlPage, UserControlPage, '');
-    ServerType := stCGI;
-    if ServerType = stTCP then begin
-      THTTPServerTCP(HTTPServer).Socket.Address := MainModule.NetworkAddress;
-      THTTPServerTCP(HTTPServer).Socket.Port := MainModule.NetworkPort;
-      THTTPServerTCP(HTTPServer).MaxConnection := MainModule.MaxConnections;
-    end;
     Run;
-  finally
-    MainModule.Free;
   end;
 end.