开始使用IdHTTP控件,不是报这样的错误就是那样错误,调试来调试去也没有彻底解决,折腾的无语。换了一个WebData(TMS三方组件中的一个)控件非常好用,简单方便,方法如下:
function GetWebInf(URL: string): string;
var
WebData: TWebData;
ResponseStr: string;
begin
ResponseStr := '':
WebData := TWebData.Create(nil);
try
WebData.Data.Clear;
WebData.Data.Add.URL := URL;
WebData.Execute;
ResponseStr := UTF8ToAnsi(WebData.Data.Items[0].Data);
finally
WebData.free;
end;
result := ResponseStr;
end;