Changeset 54 for trunk/CGI.lpr

Timestamp:

Jul 20, 2011, 11:52:31 PM (13 years ago)

Author:

george

Message:

• Upraveno: Přesunuty další části z UMainModule do třídy UWebApp valíku CoolWeb.

File:

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

trunk/CGI.lpr

@@ -5 +5 @@
 uses
   UCore, USqlDatabase, SysUtils, Contnrs,
-  UContactPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile, UPagesModule,
+  UContactPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
   UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
   UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule, UWebApp,
@@ -12 +12 @@
   UNetworkPage, UAboutPage;
 
-var
-  Application: TWebApp;
 begin
-  Application := TWebApp.Create(nil);
   with Application do
   try
     Initialize;
+    MainModule := TMainModule.Create(nil);
+    MainModule.Run;
     RegisterPage(TInternetPage, InternetPage, 'internet');
     RegisterPage(THostingPage, HostingPage, 'hosting');
@@ -34 +33 @@
     Run;
   finally
-    Free;
+    MainModule.Free;
   end;
 end.