Changeset 50 for trunk/CGI.lpr

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/CGI.lpr (modified) (2 diffs)

trunk/CGI.lpr

@@ -5 +5 @@
 uses
   UCore, USqlDatabase, SysUtils, Contnrs,
-  UMainPage, UCustomApplication, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
+  UMainPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
   UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
-  UMemoryStreamEx, UMIMEType, UPageList, Interfaces;
-
-var
-  Application: TCustomApplication;
+  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule;
 
 begin
-  Application := TCustomApplication.Create;
-  with Application do
+  MainModule := TMainModule.Create(nil);
+  with MainModule do
   try
     RegisterPage('internet', Internet);
@@ -29 +26 @@
     RegisterPage('sit', Network);
     RegisterPage('', About);
-    HTTPServer := THTTPServerCGI.Create;
-    HTTPServer.OnRequest := Execute;
     Run;
   finally