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

Timestamp:

Sep 9, 2022, 8:20:25 PM (21 months ago)

Author:

chronos

Message:

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

File:

• trunk/Packages/CoolWeb/WebServer/UHTTPSessionFile.pas (modified) (2 diffs)

trunk/Packages/CoolWeb/WebServer/UHTTPSessionFile.pas

@@ -55 +55 @@
 
 procedure THTTPSessionStorageFile.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;
-      Response.Cookies.Values[SessionIdCookieName] := SessionId;
+      Response.Cookies.Items[SessionIdCookieName] := SessionId;
     end;
   end;
@@ -96 +98 @@
     end else raise Exception.Create(SCantCreateSessionStorageDirectory);
 
-    HandlerData.Response.Cookies.Values[SessionIdCookieName] := HandlerData.SessionId;
+    HandlerData.Response.Cookies.Items[SessionIdCookieName] := HandlerData.SessionId;
   finally
     Lock.Release;