Changeset 51 for trunk/Modules/UMainModule.pas

Timestamp:

Apr 30, 2011, 11:44:14 PM (13 years ago)

Author:

george

Message:

• Modified: SQL database class is now used as component.

File:

• trunk/Modules/UMainModule.pas (modified) (5 diffs)

trunk/Modules/UMainModule.pas

@@ -32 +32 @@
     HTTPServer: THTTPServerCGI;
     HTTPSessionStorageMySQL1: THTTPSessionStorageMySQL;
+    Database: TSqlDatabase;
     procedure HTTPServerRequest(HandlerData: THTTPHandlerData);
   private
@@ -51 +52 @@
     HtmlDocument: THtmlDocument;
     Pages: TRegistredPageList;
-    Database: TSqlDatabase;
     PageName: string;
     ModuleName: string;
@@ -164 +164 @@
 begin
   inherited;
-  Database := TSqlDatabase.Create;
   Pages := TRegistredPageList.Create;
   HtmlDocument := THtmlDocument.Create;
@@ -176 +175 @@
 begin
   HtmlDocument.Free;
-  Database.Free;
   Pages.Free;
   User.Free;
@@ -291 +289 @@
   MainModule.HTTPServer.ShowExceptions := Config.ShowException;
   //Database.Query('SELECT * FROM ssss');
-  THTTPSessionStorageMySQL(MainModule.HTTPServer.SessionStorage).SqlDatabase := Database;
   MainModule.HTTPServer.Run;
 end;