使用IdHTTP1.Get的HTTP 403禁止错误

时间:2013-05-17 22:59:07

标签: delphi delphi-7

我有一个程序可以从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程序中不起作用。

1 个答案:

答案 0 :(得分:0)

自2013年5月以来,我也有同样的问题,在此之前它可以正常工作多年。

最后我在IdHTTP1之前添加以下行,获取,现在可以使用

IdHTTP1.Request.UserAgent:='Mozilla / 4.0(兼容; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)';

说实话我不知道到底发生了什么。