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

Timestamp:

Oct 2, 2012, 2:52:20 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: V balíčku CoolWeb některé seznamy změněny z typu TStringList na TListString.

File:

• trunk/Packages/CoolWeb/WebServer/UHTTPSessionFile.pas (modified) (1 diff)

trunk/Packages/CoolWeb/WebServer/UHTTPSessionFile.pas

@@ -58 +58 @@
 begin
   with HandlerData do begin
-    if Request.Cookies.IndexOfName(SessionIdCookieName) <> -1 then begin
+    if Request.Cookies.SearchKey(SessionIdCookieName) <> -1 then begin
       SessionId := Request.Cookies.Values[SessionIdCookieName];
     end else begin