Delphi下idHTTP配合CookieManager获取Cookie


本文整理自网络,侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
  Cookies: TidCookies;
  i: integer;
begin
  Memo1.Clear;
  idHTTP1.ProtocolVersion := pv1_1;
  Memo1.Clear;
  IdHTTP1.ProtocolVersion := pv1_1;
  IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727)';
  idHTTP1.Get('http://www.baidu.com/s?wd=xtty');
  ShowMessage(idHTTP1.URL.Params);
  ShowMessage(idHTTP1.URL.Document);

  Cookies := IdCookieManager1.CookieCollection;
  for i := 0 to cookies.Count - 1 do
    Memo1.Lines.Add(Cookies.Items[i].CookieName + 'Value:' + Cookies.Items[i].Value);
end;

相关阅读 >>

Delphi自动以管理员身份在vista 和 windows7 下运行程序

Delphi xe android的所有权限按照分类总结说明

Delphi thttpclient 时获取跳转后的 url

Delphi listbox 使用

Delphi设置dbgrid每列自动居中

Delphi 十进制转十六进制

Delphi 新建文件 复制文件 重命名文件名时 文件存在自动重命名

Delphi三层开发小技巧:tclientdataset的delta妙用

Delphi 多函数形式的多线程同步-线程执行顺序

Delphi 在memorystream查找字符串

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...