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