IdHTTP.Get(url,ss)给403禁止

时间:2018-04-10 19:38:05

标签: delphi-10-seattle

我使用IdHTTP在服务器上执行php文件。工作很好多年。我的所有程序突然出现403 Forbidden错误。一年前的存档版本现在也失败了。网站主持人称他们没有改变任何事情为了测试,放置了一个简单的php文件,它只是在3个独立的主机平台上回显一个值(没有SSL)。对所有3的调用失败,403错误。如果将URL放在浏览器地址中并从那里调用,则调用成功并返回预期值。还尝试通过不同的ISP连接运行程序。这些失败在最近几天刚刚出现。发生在许多不同的计算机上。

这是一个非常简单的示例,当发送到所有3个测试服务器时失败

procedure TForm1.Button1Click(Sender: TObject);
var url: string;
  H: TIdHttp;
  SS: TStringStream;
begin
  url := 'http://www.somesite.com/test.php';
  H := TIdHttp.Create(nil);
  SS := TStringStream.Create;
  try
    H.Get(url, SS);
    Edit1.Text := SS.DataString;
  finally
    H.Free;
    SS.Free;
  end;
end;

非常感谢任何帮助。

0 个答案:

没有答案