Cookie的建立使用
Cookie的建立使用
根据 Netscape公司的规定 ,Cookie的格式应为 :
Set-Cookie: Name=Value; expires=DATA; Path=PATH; domain=DOMAIN_NAME; s
ecure
而且根据规定 ,日期 (DATA)的设置必须满足格式“ Wdy, DD-Mon-YYYY HH:MM:SS G
MT” ,基于 RFC822, RFC850, RFC1036和 RFC1123等规定，但是检查 HTTPAPP.PAS中
的 function TCookie.GetHeaderValue: string中为 FormatDateTime('"expires=
"' + DateFormat + ' "GMT; "', Expires);,其中 const DateFormat = 'ddd, d
d mmm yyyy hh:mm:ss',此程序在英文环境中产生的格式是正确的 ,但是在中文中
产生的结果却不对 ,因为星期和月份都将按照中文的表示方法：如将 11月生产“十
一月”中文串，这样在 Netscape Navigator和 Microsoft Internet Explorer就不
能辨认了。
既然错误在于原 VCL未考虑中文环境的问题，所以修改的方法有： 1、修改 VC
L源程序，编译后将 dcu文件拷贝到 Lib目录，这样会完全改正错误，这样是最根本
的解决方法，但是如果将源程序放在另一未修改的 Delphi中 (例如提供源程序给别
人和自己重新安装 )编译又将出现问题。 2、因为使用并不太多，所以可以将修改
的程序放在自己的程序中，使用 Delphi 3提供的 TWebResponse.SetCustomHeader
设置 ,这样的好处是将程序放在自己的程序内，重新装 Delphi或在另一台计算机上
编译的结果也会完全正确。因为 Cookie的目的一般有两种，一种是在此会话过程
中使用，过后不使用，此时不需要 Expires段，不会产生时间错误，可以使用 Del
phi 3提供的所有 Cookie程序；另一种为永久保存，时间一般越长越好，于是可以
将时间设置为 2099年二月 22日 , 于是程序中设置 Cookie的方法为 :
Response.SetCustomHeader('Set-Cookie','Name=Value; expires=Sun, 22 F
eb 2099 08:08:08 GMT'); (注斜体用自己的名称代替，例如设置 Count＝ 10，则
Name用 Count代替， Value用 10代替 )，这样就可以建立 Cookie了 .
以下为建立一个访问计数器的程序，可以参照：
const
LastIp:String='0:0:0:0'; //避免重复计数
Var
S:String;
Count:Integer;
begin
S:=Request.CookieFields.Values['count'];
if S<>'' then begin
try
Count:=StrToInt(S);
Except
Count:=0;
End;
end else Count:=0;
if LastIp<>Request.RemoteAddr then Inc(Count);
LastIp:=Request.RemoteAddr;
Response.SetCustomHeader('Set-Cookie','count='+IntToStr(Count)+';
expires=Sun, 21 Feb 2010 08:08:08 GMT');
Response.Content:='您是第 '+IntToStr(Count)+'来到本页 !';
End;
lijing 发表于 2006-3-31 18:56
读写Cookie的例程
Cookie实际是一个字符串，它的格式是 CookieName=CookieValue。Cookie中不应该有分号或逗号。客户可以拒绝Cookie，所以任何一个Web应用程序不能认为客户的机器肯定有Cookie。察看Cookie的情况可以在Windows中找。
在Delphi中管理Cookie是一件非常容易的事。THTTPRequest和THTTPResponse都封装了用来处理Cookie的特性和方法，允许您控制怎样读写Cookie。
要设置Cookie的内容，您可以调用TWebResponse的SetCookieField的方法。这个方法需要传递一个TStrings对象作为Cookie的内容以及这个Cookie的限制条件。SetCookieField()方法是这样声明的： procedure SetCookieField(Values:TStrings;const ADomain,APath:string;AExpires:TDateTime;ASecure:Boolean);Values参数是一个TStrings对象(也可以使用TStringList对象),用于指定Cookie的实际内容。Values中可以包含多个Cookie。ADomain 参数用于限制服务器的域，Cookie只对特定域的服务器是有效的。如果这个参数为空，Cookie将被传递给任何一个服务器。一般情况下，应当把这个参数设为Web服务器的域名。APath参数用于指定一组路径，Cookie只在特定的路径下是合法的。AExpires参数用于指定Cookie在多长时间内是合法的，由于时差的原因，这个时间应当基于GMT时区。如果您想使Cookie的有效时间是10天，就应当把这个参数设为Now+10。如果要使一个Cookie无效，这个参数可以设为过去的一个时间。注意，一个Cookie无效后，就不会被传递给服务器，但并不从客户机中删除。ASecure参数是一个boolean值，如果这个参数设为True，表示Cookie只能通过HTTP或SSL传递。一般情况，这个参数设为False。 在Web服务器端，您可以通过TWebRequest的CookieFields特性访问由客户传递来的Cookie。这个特性是一个TStrings对象，每个Cookie的格式是param=value。调用TWebRequest的ExtractCookieFields()方法可以把多个Cookie分解为一个个字符串。
Cookie可以保存任何字符串所能表达的信息。Cookie的长度最多可达4KB,客户的机器最多可以保存300个Cookie.每个服务器或域的Cookie不超过20个。下面举一个例子说明Cookie的应用：var
CookList : TStringList;
iBZ,fcbz:integer; begin
CookList := TStringList.Create;
try
CookList.Add('NSRID='+ sNSRID);
CookList.Add('NSRMC=' + sNSRMC);
CookList.Add('WJBM=' + sWJBM);
CookList.Add('YHZH=' + sYHZH);
iBZ:=0;
fcbz:=0;
CookList.Add('BZ=' + IntToStr(iBZ));
CookList.Add('FCBZ=' + IntToStr(fcbz));
Response.SetCookieField(cookList,'','',Now+10,False);
finally
cookList.Free;
End;
End;//创建Cookie iBZ:=StrToInt(Request.CookieFields.Values['BZ']);//使用Cookie
