📄 20000804018.htm
字号:
<HTML>
<HEAD>
<TITLE>关于Cookie</TITLE>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
</HEAD>
<BODY aLink=#FF0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0
vLink=#990099>
<div align="center">
<table width="744" border="0" cellspacing="0" cellpadding="0" height="76">
<tr>
<td>
<p align="center"><font size="3"><b><br>
关于Cookie</b></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>
<p align=center></p>
</td>
</tr>
</table>
</div>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -