-2

我有一个程序可以从 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 中的 explode 相同）我认为问题不在于代码，因为在我切换主机之前它运行良好。另一件事是在 PHP 中使用 file_get_contents 从该文件中检索数据时它工作正常，但在 Delphi 程序中它不起作用。

4

1 回答 1

0

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

最后我在 IdHTTP1,get 之前添加了下面的行，它现在可以工作了

IdHTTP1.Request.UserAgent:='Mozilla/4.0（兼容；MSIE 6.0；Windows NT 5.1；SV1；Maxthon）'；

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

于 2013-06-15T08:02:32.447 回答