Changeset 138 for trunk/Packages/CoolWeb/WebServer/UHTTPSessionMySQL.pas

Timestamp:

Sep 9, 2022, 8:20:25 PM (2 years ago)

Author:

chronos

Message:

• Modified: Removed TemplateGenerics package. Generics usage replaced by standard Generics.Collections.

File:

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

trunk/Packages/CoolWeb/WebServer/UHTTPSessionMySQL.pas

@@ -64 +64 @@
 
 procedure THTTPSessionStorageMySQL.GetSessionId(HandlerData: THTTPHandlerData);
+var
+  Value: string;
 begin
   with HandlerData do begin
-    if Request.Cookies.SearchKey(SessionIdCookieName) <> -1 then begin
-      SessionId := Request.Cookies.Values[SessionIdCookieName];
+    if Request.Cookies.TryGetValue(SessionIdCookieName, Value) then begin
+      SessionId := Value;
     end else begin
       SessionId := GetNewSessionId;
@@ -87 +89 @@
       HandlerData.SessionId + '"');
     if DbRows.Count > 0 then begin
-      HandlerData.Session.Text := DbRows[0].Values['Variables'];
+      HandlerData.Session.Text := DbRows[0].Items['Variables'];
     end else begin
       HandlerData.SessionId := GetNewSessionId;
@@ -114 +116 @@
     else Database.Query(DbRows2, 'INSERT INTO `HTTPSession` (`Time`,  `Variables`, `Identification`) VALUES (' +
     'NOW(), "' + HandlerData.Session.Text + '", "' + HandlerData.SessionId + '")');
-    HandlerData.Response.Cookies.Values[SessionIdCookieName] := HandlerData.SessionId;
+    HandlerData.Response.Cookies.Items[SessionIdCookieName] := HandlerData.SessionId;
   finally
     DbRows2.Free;