multithreading - 无需与 Eurekalog 对话即可在线程内正确记录日志

Question

我有一个使用最新版本的 EurekaLog 的 Delphi 10 项目。我目前正在使用 EurekaLog 来帮助我调试生产客户端中的问题。

我注意到 EurekaLog 没有记录线程内发生的错误。当我开始阅读它后，我发现我需要从 TThread 进行更改至TThreadEx ，并在我的 Execute 的开头添加以下代码重写方法。

SetEurekaLogStateInThread(ThreadID, true);

尽管如此，当发生错误时，它不会在EL中生成事件。文件。

如果我添加 ExceptionManager.StandardEurekaError('TThrdSincArquivos.Execute => ' + ex.Message);关于try..except ，它确实记录了。但堆栈跟踪显示好像错误发生在我调用 StandardEurekaLog() 的行上，不在实际发生错误的行上。这违背了整个事情的目的。

另一个问题是它显示一个对话框，这是我不想要的，因为错误发生在后台线程内。我只想将其记录下来。我应该得到一个仅在主线程上出现错误的对话框。

如何在线程中实现这些结果？

• 实际使用正确的堆栈记录错误。

• 在主线程上时，显示对话框，但在线程内，仅记录而不使用对话框。

编辑

下面是我的 EurekaLog 多线程配置

这是我的线程声明:

unit ThrdSincArquivos;

interface

uses
  System.Classes, System.SysUtils, System.Generics.Collections, REST.Client, REST.Types,
  System.JSON, Data.DB, Datasnap.DBClient, FireDAC.Comp.Client, FireDAC.Stan.Param, System.SyncObjs, EBase, EExceptionManager, EClasses;

type
  TThrdSincArquivos = class(TThreadEx)
  private

我的线程已创建

constructor TThrdSincArquivos.Create(pPrimeiraExec: boolean; tipoSincParam: TTipoSinc);
begin
  inherited Create(true);

  NameThreadForDebugging('TThrdSincArquivos');
  primeiraExec := pPrimeiraExec;
  tipoSinc := tipoSincParam;
  executadoThreadSinc := false;
  FreeOnTerminate := true
end;

我的执行的开始

procedure TThrdSincArquivos.Execute;
var
  contador: Integer;
begin
  inherited;

  try

以及执行结束

  except
    on ex: Exception do
    begin
      oLog.GravarLog(ex, 'TThrdSincArquivos.Execute => FIM');
    end;
  end;
end;

它拒绝将任何异常记录到 Elf 文件中。我尝试在自己的日志例程之后添加加薪，但仍然没有帮助。它应该记录，但事实并非如此，除非我明确调用 StandardEurekaError ，但我得到的堆栈错误，并且出现了对话框。

Answer 1

当您使用TThread类时 - 它将线程异常保存到.FatalException属性，you are supposed to handle in some way 。来自线程事件，或来自其他(调用者)线程。 EurekaLog 不会破坏这种行为。例如。当您启用 EurekaLog 时，您之前编写的代码不会改变其行为。这样，您正确编写的代码就可以在 和 没有 EurekaLog 的情况下正常工作。

您的代码当前如何处理线程异常？您是否正在执行诸如 ShowMessage 或自定义日志记录之类的操作？这显然不适用于 EurekaLog，它不知道您正在使用 ShowMessage 或您自己的自定义日志记录代码处理异常。您可能需要在调用者线程中使用诸如 Application.ShowException 或 re-raise 之类的内容。

如果由于某种原因你不能使用默认的 RTL/VCL 处理(由 EurekaLog Hook ) - 那么你需要告诉 EurekaLog 你想要处理这个特定的异常。例如，来自docs :您可以使用(例如)来自 EBase 单元的 HandleException(E);:

Thread.WaitFor;
if Assigned(Thread.FatalException) then
begin
  // Your old code is here
  // Do your own thing: show message, log, etc.

  // Tell EurekaLog to do its thing:
  HandleException(Thread.FatalException);
end;

您可能希望设置异常过滤器或使用事件来禁用线程异常的对话框，因为您可能已经自己处理了异常(例如，已经显示了消息)。

还有很多更多方法来处理线程中的异常，并且EurekaLog's docs用几个可能的选项说明每个线程情况(例如BeginThread、TThread、线程池等)。将所有这些信息打包到一个答案中是不合理的。

如果由于某种原因，您没有处理 TThread 的 .FatalException 属性的代码 - 那么您可以使用 TThreadEx 类并它的 .AutoHandleException 属性可以在线程退出时自动处理异常，如here所述:

type
  TMyThread = class(TThreadEx)
  protected
    procedure Execute; override;
  end;

procedure TMyThread.Execute;
begin
  // ... your code ...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: TMyThread;
begin
  Thread := TMyThread.Create(True, 'My thread');
  Thread.AutoHandleException := True; // <- added
  Thread.FreeOnTerminate := True;
  Thread.Start;
  Thread := nil; // never access thread var with FreeOnTerminate after Start
end;

但是，请注意，如果您决定将来禁用 EurekaLog，您的代码将无法正常工作(例如，将忽略异常)。因为如果您从项目中删除 EurekaLog - 那么您的项目将没有处理线程异常的代码!

附注

I need to change from TThread to TThreadEx, and add the following code at the start of my Execute overriden method.

SetEurekaLogStateInThread(ThreadID, true);

这有点不正确:您可以选择其中之一，但不能同时执行两者。还有其他方法可以告诉 EurekaLog 它应该在该线程中 Hook 异常。

基本上，异常生命有两个阶段:引发和处理。当 EurekaLog 在默认 RTL/VCL 代码中实现时，会 Hook 这两个阶段。您需要明确指出要 Hook 哪些线程，因为您可能想忽略您无法控制的系统/第 3 方线程。碰巧RTL/VCL 中不存在TThread 的默认处理。这就是为什么没有什么可以 Hook 的原因。