Changeset 51 for trunk/Modules

Timestamp:

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

Author:

george

Message:

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

Location:

trunk/Modules

Files:

• UMainModule.lfm (modified) (2 diffs)
• UMainModule.lrs (modified) (1 diff)
• UMainModule.pas (modified) (5 diffs)

trunk/Modules/UMainModule.lfm

@@ -14 +14 @@
   end
   object HTTPSessionStorageMySQL1: THTTPSessionStorageMySQL
+    Database = Database
     Timeout = 10800
     SessionIdCookieName = 'SessionId'
@@ -19 +20 @@
     top = 31
   end
+  object Database: TSqlDatabase
+    Connected = False
+    Encoding = 'utf8'
+    left = 81
+    top = 86
+  end
 end

trunk/Modules/UMainModule.lrs

@@ -7 +7 @@
   +'./'#14'SessionStorage'#7#24'HTTPSessionStorageMySQL1'#9'OnRequest'#7#17'HTT'
   +'PServerRequest'#4'left'#2'Q'#3'top'#2' '#0#0#24'THTTPSessionStorageMySQL'#24
-  +'HTTPSessionStorageMySQL1'#7'Timeout'#3'0*'#19'SessionIdCookieName'#6#9'Sess'
-  +'ionId'#4'left'#3'8'#1#3'top'#2#31#0#0#0
+  +'HTTPSessionStorageMySQL1'#8'Database'#7#8'Database'#7'Timeout'#3'0*'#19'Ses'
+  +'sionIdCookieName'#6#9'SessionId'#4'left'#3'8'#1#3'top'#2#31#0#0#12'TSqlData'
+  +'base'#8'Database'#9'Connected'#8#8'Encoding'#6#4'utf8'#4'left'#2'Q'#3'top'#2
+  +'V'#0#0#0
 ]);

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;