本文整理自网络,侵删。
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 新建文件 复制文件 重命名文件名时 文件存在自动重命名
Delphi三层开发小技巧:tclientdataset的delta妙用
更多相关阅读请进入《Delphi》频道 >>