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

trunk/Packages/CoolWeb/WebServer/UHTTPServerCGI.pas

@@ -133 +133 @@
       // Generate 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);