idhttp 返回的cookie 如何保存为与IE共享的格式，或者返回和让webbroswer共享

Question

如题

Answer 1

这个easy
用一个函数 InternetSetCookie给你一个例子，自己写的
procedure tbuy.writecookie;
var i:integer;
    cookie:string;
    url:string;
begin
    for I := 0 to wr.cmg.CookieCollection.Count - 1 do
      begin
        cookie:=wr.cmg.CookieCollection.Items[i].CookieText;
        url:=copy(cookie,pos('domain=',cookie)+7,20);
        if pos(';',url)>0 then url:=copy(url,1,pos(';',url)-1);
        if pos('.',url)=1 then url:=copy(url,2,20);        url:='http://'+url;
        cookie:=copy(cookie,1,pos(';',cookie));
        cookie:=cookie+' expires=Sun, 20-Mar-2012 08:38:40 GMT';
        InternetSetCookie(pchar(Url), nil, pchar(cookie));      end;
end;