1,593
社区成员
发帖
与我相关
我的任务
分享
Cookie cc = new Cookie("cookiexxx.cn", "1346470027822_6634_227");
cc.Domain = "www.xxx.cn";
wc.Cookies.Add(cc);
cc = new Cookie("USERVUID", "13464700");
cc.Domain = "www.xxx.cn";
wc.Cookies.Add(cc);
cc = new Cookie("ca", "");
cc.Domain = "www.xxx.cn";
wc.Cookies.Add(cc);
CookieM: TIdCookieManager;
begin
CookieM := TIdCookieManager.Create(nil);
HttpLogin.CookieManager := CookieM;
//
//中间省略一些HttpLogin的其他操作,获取数据了之类的
//
mycookie := '';
for i := 0 to HttpLogin.CookieManager.CookieCollection.Count - 1 do
mycookie := mycookie + HttpLogin.CookieManager.CookieCollection.Items[i].CookieName
+ '=' + HttpLogin.CookieManager.CookieCollection.Items[i].Value;
InternetSetCookie(PChar(g_FuncUrlInfo.Values['Func_Cookie']),
'', pchar(mycookie + ';expires=sun, 05-Jan-2020 00:00:01 GMT'));
end