delphi 实现清除cookie代码
时间:2013-04-11 23:02来源:知行网www.zhixing123.cn 编辑:麦田守望者
cookie是本地保存某个网站信息的一个txt文档。当一个网站要确认一个用户是否登录，或者保存某个用户的信息，使得下一次登录的时候，网站能够识别这个用户，cookie就变得有必要了。
在http协议中cookie是在包头中的，也就是你的每一次访问某个网站，浏览器会先检查本地是否存在你访问网站的cookie，如果存在就把cookie加入到http包中的头部中去。这样子就是说不管你需不需要cookie，反正每次都会发送，呵呵，这是不是给某些嗅探提供了可乘之机啊。
不说了，还是讲一下在delphi中怎么清除cookie吧
function GetCookiesFolder:string;
var
pidl:pItemIDList;
buffer:array [ 0..255 ] of char ;
begin
SHGetSpecialFolderLocation(
application.Handle , CSIDL_COOKIES, pidl);
SHGetPathFromIDList(pidl, buffer);
result:=strpas(buffer);
end;
function ShellDeleteFile(sFileName: string): Boolean;//如果只想删除特定网站的自己过滤一下txt的名称，因为cookie txt名称是有网站域名的。
var
FOS: TSHFileOpStruct;
begin
FillChar(FOS, SizeOf(FOS), 0); {记录清零}
with FOS do
begin
wFunc := FO_DELETE;//删除
pFrom := PChar(sFileName);
fFlags := FOF_NOCONFIRMATION;
end;
Result := (SHFileOperation(FOS) = 0);
end; |
|
