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