TidHTTP 错误处理

Question

我正在编写一个程序来对网站执行检查以测试它们的当前状态，例如 200 OK。我使用 Delphi 2010 附带的 Indy HTTP 来完成此任务，并拥有当前代码。

procedure TCheckSiteIndividual.Execute;
var
http : TIdhttp;

begin
  try
    try
      http := Tidhttp.create(nil);  //Create indy
      http.Get(CSiteURL,nil);  //Send Request To Check Site
    except
      on E: EIdHTTPProtocolException do
       status := http.ResponseText; // or: code := E.ErrorCode;
    end;

    status := http.ResponseText;   //Return Status of Site
    synchronize(updateform);   //Update data to form
  finally
   http.Free;
  end;
end;

CSiteURL 变量在线程构造函数中设置，status 变量是整个线程的变量。

尝试，除了此代码的部分内容来自 Remy Lebeau - TeamB 此处 这是一个我最初摆弄这个想法时问的问题。我遇到的问题是，此代码仅在网站返回 200 OK 代码时才有效。其他任何情况都会导致异常，包括我禁用互联网。这也会导致重定向网站上的异常，例如 www.google.com 在调试过程中导致异常，我认为它会为我重定向到 www.google.co.uk，但是如果我继续通过异常，那么它会返回 301 FOUND 代码没问题。

我正在寻找它的最终结果是根据网站是否在线或有错误（例如HTML返回代码）给我一个返回，当网站不存在时（例如未注册的URL）另外提供反馈或者就是联系不上。

我正在寻找的其他建议是如何从请求中获取更多信息。具体来说，目前我还想获取所检查网站的 IP。

让它工作而不需要在任何 URL 之前添加 http:// 也很好，因此例如 www.google.com 可以工作，但目前由于协议未知而无法工作。

基本上，如果有人有 IndyHTTP 一些不错的文档的链接，那就太好了，因为它似乎很稀疏，

Answer 1

是的，当然会导致异常。这就是 Indy 的工作原理，这就是为什么 Remy 建议您捕获异常。

现在您感到困惑的是，即使您有代码来捕获异常，Delphi 调试器仍然会拦截它们并暂停程序的执行以通知您发生了异常。 我之前写过关于这种现象的文章。

因为你显然对了解非-当您调试时出现 status-200 异常 - 因为您的程序设计为能够自行处理所有这些错误 - 您最好的选择可能是将 EIdHTTPProtocolException 添加到调试器的忽略异常列表中。最简单的方法是在调试器下次通知您时选择“忽略此异常类型”。