Changeset 100 for trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.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/UHTTPServerTCP.pas (modified) (1 diff)

trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

@@ -121 +121 @@
       // Handle cookies
       for I := 0 to Cookies.Count - 1 do
-        Headers.Add('Set-Cookie', Cookies.Names[I] + '=' + Cookies.ValueFromIndex[I]);
+        Headers.Add('Set-Cookie', Cookies.Keys[I] + '=' + Cookies.Items[I].Value);
         // + ';path=/;expires=' + RFC822DateTime(Now);