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

Question

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

问题是有时运行2-3小时后，Windows会显示一个关闭程序对话框。为什么MadExcept无法处理该错误？

Answer 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。这样，我的控制代码可以看到有问题，并进行适当处理(重新启动它，或报告错误，等等)。