delphi IdHTTP.Request.UserAgent 用法  
官方Delphi 学习QQ群: 682628230(三千人)
频道

delphi IdHTTP.Request.UserAgent 用法


var
 get_url, Response: string;begin
 Memo1.Lines.Clear;
 IdHTTP.Request.Username := 'admin'; // User
 IdHTTP.Request.Password := 'webrelay'; // Password
 IdHTTP.Request.BasicAuthentication := true; //Auth. BASIC

 // ADD THIS (use whatever UA you want, as long as it is real)...
 IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:92.0) Gecko/20100101 Firefox/92.0';  try
   get_url := 'http://144.129.139.172/state.xml';
   Response := IdHTTP.Get(get_url);
   Memo1.Lines.Add(Response);  except
   on E: EIdHTTPProtocolException do
     Memo2.Lines.Add(E.ErrorMessage);  end;end;


推荐分享
图文皆来源于网络,内容仅做公益性分享,版权归原作者所有,如有侵权请告知删除!
 

Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号

执行时间: 0.041347980499268 seconds