MadExcept未捕获到致命的应用程序错误

时间:2012-03-23 12:13:54

标签: delphi error-handling

我有一个运行多个线程的应用程序。我使用MadExcept来捕获错误并进行调试。

问题是,有时在运行2-3小时后,Windows会显示一个关闭的程序对话框。为什么MadExcept不会处理该错误?

1 个答案:

答案 0 :(得分:1)

线程是一种特殊情况。如果在线程中有异常,它将不会被全局处理程序处理,并且通常会终止您的应用程序。使用madExcept,解决方案很简单。抓住异常,告诉MadExcept。它会以通常的方式登录,你不会杀死你的线程。

uses 
{$IFDEF MadExcept}
 madExcept,
{$ENDIF}


procedure TMyThread.Execute;
begin
  try
      SetName;
    // do your stuff

  except
    on errInfo : Exception do
    begin
{$IFDEF MadExcept}
      HandleException(etNormal, errInfo);
{$ENDIF}
    end;
  end;
end;

我还要做的是让线程在启动时将“RunningOK”属性设置为true,并将异常设置为False。这样我的控制代码可以看到出错的地方,并妥善处理(重新启动它,或报告错误等)