📄 lc_bcb_56.html
字号:
<HTML><HEAD><TITLE>cookie</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content=zyqsj name=Author>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY><FONT
size=3><FONT color=#3366ff> </FONT></FONT><FONT
size=3>Cookie</FONT>
<P>一、在活动的应答项中设置cookie,以及在请求中读同样的cookie. <BR> 把Cookies
设置为应答的一部分，使用SetCookieField方法:
<P> TStringList* Cookies = new TStringList();
<BR> Cookies->Add("Answer=42"); // whatever...
<BR> Response->SetCookieField(Cookies,NULL,NULL,Now()+1,false);
<BR> Cookies->Free();
<P>注意：我们使用一个TStringList来设立一列Cookie值。(传递给SetCookieField
的第一个参数)。cookies的每一个列可以有一个主域(Domain) (第二个参数) 和路径(第三个参数)联合起来。(象drbob42.com),
标识哪个URL是cookie将要发送去的。你可以留空这两个参数(就象上面代码一样). 第四个参数指定cookie结束日期，这里我设置为“第二天的同个时间”
，使用Now()+1来设置。最后一个参数要指定，如果cookie的使用是通过一个安全的网络(over a secure network)的话。
<BR> 用户如果认可这个cookie,
接着在一个OnAction事件中我们需要读cookie的值。(以便确定回答字段的值)Cookie是请求类(Request
class)的一部分,就象ContentFields, 所以可以使用CookieFields 属性来得到：
<P> int Answer = StrToInt(request->CookieFields->Values["Answer"]);
<P>注意：在调用StrToInt() 可能会发生一个例外,(如空的串(string),这种情况下cookie将没被设置，没找到或终止)
所以在这里要使用一个try-except。
<P>二、使用VCL如何读和写cookies <BR> 读一个cookie的值：
<BR> Request->CookieFields->Values["name of
cookie"]; <BR> <BR> 向一个 cookie 写值：
<BR> Response->SetCookieField(TStrings* Values,
AnsiString Domain, AnsiString APath, TDateTime AExpires, bool ASecure);
</P></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -