4

我正在编写一个程序来对网站进行检查以测试它们的当前状态，例如 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 here，这是我最初摆弄这个想法时提出的一个问题。我遇到的问题是，此代码仅在站点返回 200 OK 代码时才有效。其他任何事情都会导致异常，包括如果我禁用互联网。这也会导致重定向站点上的异常，例如 www.google.com 在调试期间导致异常我认为它会为我重定向到 www.google.co.uk，但是如果我继续通过异常，那么它会返回一个 301 FOUND 代码没问题。

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

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

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

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

4

1 回答 1

7

是的，当然它会导致异常。这就是 Indy 的工作方式，这也是 Remy 建议您捕获异常的原因。

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

由于您显然对在调试时了解非状态 200 异常不感兴趣——因为您的程序旨在处理所有这些错误本身——您最好的选择可能是添加EIdHTTPProtocolException到调试器的忽略异常列表中。最简单的方法是在下次调试器通知您时选择“忽略此异常类型”。

于 2011-03-13T18:52:00.913 回答