正文
Delphi IdHTTP 设置cookie 和访问后读取Cookie 值
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
procedure TForm1.btn1Click(Sender: TObject);
var
IdHTTP: TIdHTTP;
mstrCookie: string;
Cookies : TIdCookieManager;
i: Integer;
begin
IdHTTP := TIdHTTP.Create(nil);
IdHTTP.Request.UserAgent := '';
mstrCookie := 'aaa=5555&bb=12345';
IdHTTP.Request.AcceptEncoding := '';
if mstrCookie <> '' then
begin
IdHTTP.Request.SetHeaders; //说要加这一句。
IdHTTP.Request.CustomHeaders.Add('Cookie: ' + mstrCookie);
end;
IdHTTP.AllowCookies := True;
Cookies := TIdCookieManager.Create(nil);
IdHTTP.HandleRedirects := True;
IdHTTP.CookieManager := Cookies;
IdHTTP.ReadTimeout := 25000; //设置读取超时
Memo1.text := IdHTTP.Get('http://www.baidu.com/');
mstrCookie:='';
//Memo1.Lines.Add (Cookies.CookieCollection.Items[0].CookieText);
for i := 0 to Cookies.CookieCollection.Count - 1 do
begin
Memo1.Lines.Add(Cookies.CookieCollection.Items[i].CookieName + 'Value：' + Cookies.CookieCollection.Items[i].Value);
mstrCookie:=mstrCookie+ Cookies.CookieCollection.Items[i].CookieName+'='+ Cookies.CookieCollection.Items[i].Value +'&';
end;
Memo1.Lines.Add ( mstrCookie);
IdHTTP.free;
end;
