在 Delphi 中使用任何异常来触发代码答案

【问题标题】：Using any exceptions to trigger code in Delphi在 Delphi 中使用任何异常来触发代码
【发布时间】：2013-10-08 20:14:35
【问题描述】：

您好，我是使用 Delphi 的新手，我正在尝试编写一个应用程序来检查网站是否已启动或是否有任何问题。我正在使用 Indy 的 IdHTT。问题是它会捕获任何协议错误，但不会捕获套接字错误之类的东西。

procedure TWebSiteStatus.Button1Click(Sender: TObject);
  var
    http : TIdHTTP;
    url : string;
    code : integer;
  begin
     url := 'http://www.'+Edit1.Text;
     http := TIdHTTP.Create(nil);
     try
       try
         http.Head(url);
         code := http.ResponseCode;
       except
         on E: EIdHTTPProtocolException do
           code := http.ResponseCode; 
         end;
         ShowMessage(IntToStr(code));
         if code <> 200 then
         begin
           Edit2.Text:='Something is wrong with the website';
           down;
         end;
     finally
       http.Free();
     end;
  end;

我基本上是在尝试捕捉任何不是网站正常的事情，因此我可以调用另一个表单，该表单将设置一封电子邮件告诉我该网站已关闭。

更新：首先你是对的，我确实错过了'然后'抱歉删除其他代码并且它被错误地删除了。在处理异常时我不知道具体到一般情况谢谢。最后我确实找到了我想要的就是这里的代码

on E: EIdSocketError do

使用使用 IdStack

【问题讨论】：

请注意，您有一个语法错误：if code <> 200 begin 应该是 if ... then begin
评论你的真实代码更容易。请不要发布假代码。
请复制粘贴真实代码。还请注意缩进：只有前三行代码才是except 块的一部分。其余的确实在 try-finally 块中，尽管缩进表明不是这样。
How to check URL with IdHTTP?的可能重复

标签： delphi exception

【解决方案1】：

更改您的代码以捕获所有异常，或者添加更具体的异常：

url := 'http://www.'+Edit1.Text;
http := TIdHTTP.Create(nil);
try
  try
    http.Head(url);
    code := http.ResponseCode;
  except
    on E: EIdHTTPProtocolException do
    begin
      code := http.ResponseCode; 
      ShowMessage(IntToStr(code));
      if code <> 200 
      begin
        Edit2.Text:='Something is wrong with the website';
        down;
      end;
    end;
    // Other specific Indy (EId*) exceptions if wanted
    on E: Exception do
    begin
      ShowMessage(E.Message);
    end;
  end;  // Added missing end here.
finally
  http.Free();
end;

请注意，如果您要处理多种异常类型，重要的是从最具体到最不具体。换句话说，如果您首先放置不太具体（更一般的类型）的异常，则会发生以下情况：

try
  DoSomethingThatCanRaiseAnException();
except
  on E: Exception do
    ShowMessage('This one fires always (covers all exceptions)');
  on E: EConvertError do
    ShowMessage('This one will never happen - never gets this far');
end;

这个可以正常工作，因为它更具体而不具体。正确的，它会被颠倒：

try
  DoSomethingThatCanRaiseAnException();
except
  on E: EConvertError do
    ShowMessage('This one gets all EConvertError exceptions');
  on E: Exception do
    ShowMessage('This one catches all types except EConvertError');
end;

【讨论】：