Changeset 238 for Network/CoolWeb/WebServer/UHTTPSessionMySQL.pas

Timestamp:

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

Author:

george

Message:

• Modified: TSqlDatabase is now TComponent descendant.

File:

• Network/CoolWeb/WebServer/UHTTPSessionMySQL.pas (modified) (6 diffs)

Network/CoolWeb/WebServer/UHTTPSessionMySQL.pas

@@ -17 +17 @@
   private
     FSessionIdCookieName: string;
+    FDatabase: TSqlDatabase;
     FTimeout: Integer;
     Lock: TCriticalSection;
@@ -22 +23 @@
     procedure GetSessionId(HandlerData: THTTPHandlerData);
   public
-    SqlDatabase: TSqlDatabase;
     Sessions: TStringList;
     procedure Load(HandlerData: THTTPHandlerData); override;
@@ -29 +29 @@
     destructor Destroy; override;
   published
+    property Database: TSqlDatabase read FDatabase write FDatabase;
     property Timeout: Integer read FTimeout write FTimeout; // in seconds
     property SessionIdCookieName: string read FSessionIdCookieName
@@ -55 +56 @@
     try
       DbRows := TDbRows.Create;
-      SqlDatabase.Query(DbRows, 'SELECT * FROM `HTTPSession` WHERE `Identification`="' +
+      Database.Query(DbRows, 'SELECT * FROM `HTTPSession` WHERE `Identification`="' +
         Result + '"');
       Found := DbRows.Count > 0;
@@ -83 +84 @@
     Lock.Acquire;
     DbRows := TDbRows.Create;
-    SqlDatabase.Query(DbRows, 'DELETE FROM `HTTPSession` WHERE `Time` < DATE_SUB(NOW(), INTERVAL ' +
+    Database.Query(DbRows, 'DELETE FROM `HTTPSession` WHERE `Time` < DATE_SUB(NOW(), INTERVAL ' +
       IntToStr(Timeout) +' SECOND)');
-    SqlDatabase.Query(DbRows, 'SELECT * FROM `HTTPSession` WHERE `Identification`="' +
+    Database.Query(DbRows, 'SELECT * FROM `HTTPSession` WHERE `Identification`="' +
       HandlerData.SessionId + '"');
     if DbRows.Count > 0 then begin
@@ -108 +109 @@
     DbRows := TDbRows.Create;
     DbRows2 := TDbRows.Create;
-    SqlDatabase.Query(DbRows, 'SELECT * FROM `HTTPSession` WHERE `Identification`="' +
+    Database.Query(DbRows, 'SELECT * FROM `HTTPSession` WHERE `Identification`="' +
       HandlerData.SessionId + '"');
     if DbRows.Count > 0 then
-      SqlDatabase.Query(DbRows2, 'UPDATE `HTTPSession` SET `Variables`="' + HandlerData.Session.Text
+      Database.Query(DbRows2, 'UPDATE `HTTPSession` SET `Variables`="' + HandlerData.Session.Text
         + '", `Time` = NOW() WHERE `Identification`="' + HandlerData.SessionId + '"')
-    else SqlDatabase.Query(DbRows2, 'INSERT INTO `HTTPSession` (`Time`,  `Variables`, `Identification`) VALUES (' +
+    else Database.Query(DbRows2, 'INSERT INTO `HTTPSession` (`Time`,  `Variables`, `Identification`) VALUES (' +
     'NOW(), "' + HandlerData.Session.Text + '", "' + HandlerData.SessionId + '")');
     HandlerData.Response.Cookies.Values[SessionIdCookieName] := HandlerData.SessionId;