Changeset 38 for trunk/WebServer/UHTTPSessionMySQL.pas

Timestamp:

Nov 13, 2010, 4:32:15 PM (14 years ago)

Author:

george

Message:

• Přidáno: Zobrazení seznamu hostovaných projektů.
• Upraveno: Funkce Query jednotky SQLDatabase nyní nevrací novou instanci, ale výsledné řádky vrací v parametru. Bezpečnější metoda předcházející únikům paměti.

File:

• trunk/WebServer/UHTTPSessionMySQL.pas (modified) (3 diffs)

trunk/WebServer/UHTTPSessionMySQL.pas

@@ -40 +40 @@
     Result := BinToHexString(SHA1(FloatToStr(Now)));
     try
-      DbRows := SqlDatabase.Query('SELECT * FROM `HTTPSession` WHERE `Identification`="' +
+      DbRows := TDbRows.Create;
+      SqlDatabase.Query(DbRows, 'SELECT * FROM `HTTPSession` WHERE `Identification`="' +
         Result + '"');
       Found := DbRows.Count > 0;
@@ -67 +68 @@
   try
     Lock.Acquire;
-    DbRows := SqlDatabase.Query('DELETE FROM `HTTPSession` WHERE `Time` < DATE_SUB(NOW(), INTERVAL ' +
+    DbRows := TDbRows.Create;
+    SqlDatabase.Query(DbRows, 'DELETE FROM `HTTPSession` WHERE `Time` < DATE_SUB(NOW(), INTERVAL ' +
       IntToStr(Timeout) +' SECOND)');
-    DbRows.Free;
-    DbRows := SqlDatabase.Query('SELECT * FROM `HTTPSession` WHERE `Identification`="' +
+    SqlDatabase.Query(DbRows, 'SELECT * FROM `HTTPSession` WHERE `Identification`="' +
       HandlerData.SessionId + '"');
     if DbRows.Count > 0 then begin
@@ -91 +92 @@
   try
     Lock.Acquire;
-    DbRows := SqlDatabase.Query('SELECT * FROM `HTTPSession` WHERE `Identification`="' +
+    DbRows := TDbRows.Create;
+    DbRows2 := TDbRows.Create;
+    SqlDatabase.Query(DbRows, 'SELECT * FROM `HTTPSession` WHERE `Identification`="' +
       HandlerData.SessionId + '"');
     if DbRows.Count > 0 then
-      DbRows2 := SqlDatabase.Query('UPDATE `HTTPSession` SET `Variables`="' + HandlerData.Session.Text
+      SqlDatabase.Query(DbRows2, 'UPDATE `HTTPSession` SET `Variables`="' + HandlerData.Session.Text
         + '", `Time` = NOW() WHERE `Identification`="' + HandlerData.SessionId + '"')
-    else DbRows2 := SqlDatabase.Query('INSERT INTO `HTTPSession` (`Time`,  `Variables`, `Identification`) VALUES (' +
+    else SqlDatabase.Query(DbRows2, 'INSERT INTO `HTTPSession` (`Time`,  `Variables`, `Identification`) VALUES (' +
     'NOW(), "' + HandlerData.Session.Text + '", "' + HandlerData.SessionId + '")');
     HandlerData.Response.Cookies.Values[SessionIdCookieName] := HandlerData.SessionId;