我有一个程序可以从iPage托管的txt文件中获取数据。 (http://cpcheats.co/stuff/itemids.txt)它工作正常,直到我切换主机。现在,当我运行程序时,它有一个HTTP 403 Forbidden错误。我检查了.htaccess,没有任何东西可以阻止访问它。权限是644.代码是:
raw:=TStringList.create;
raw.AddStrings(Pickle.explode(#10,IdHTTP1.Get('http://cpcheats.co/stuff/itemids.txt')));
SetLength(items,raw.Count);
for i:=0 to raw.Count-1 do
begin
temp:=copy(raw[i],1,FastCharPos(raw[i],',',1)-1);
items[i]:=temp;
raw[i]:=stringreplace(raw[i],temp+',','',[]);
end;
combobox1.Items:=raw;
combobox1.Text:='Choose igloo';
(Pickle.explode与PHP中的爆炸相同)我不认为问题出在代码中,因为它在我切换主机之前工作正常。另一件事是它在PHP中使用file_get_contents从该文件中检索数据时工作正常,但它在Delphi程序中不起作用。
答案 0 :(得分:0)
自2013年5月以来,我也有同样的问题,在此之前它可以正常工作多年。
最后我在IdHTTP1之前添加以下行,获取,现在可以使用
IdHTTP1.Request.UserAgent:='Mozilla / 4.0(兼容; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)';
说实话我不知道到底发生了什么。