Delphi IdHTTP 设置cookie 和访问后读取Cookie 值
发布时间：2020-12-15 09:52:33 所属栏目：大数据 来源：网络整理
导读：procedure TForm1.btn1Click(Sender: TObject); var ? IdHTTP: TIdHTTP; ? mstrCookie: string; ? Cookies : TIdCookieManager; ? i: Integer; begin ? IdHTTP := TIdHTTP.Create(nil); ? ? IdHTTP.Request.UserAgent := ‘‘; ? mstrCookie := ‘aaa=5555bb
|
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;
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |