使用Eurekalog不带对话框的线程中正确的日志记录

Question

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

我注意到EurekaLog没有注册线程中发生的错误。在我开始阅读它之后，我发现我需要从TThread更改为TThreadEx，并在我的Execute overriden方法的开头添加以下代码。

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属性，该属性是你应该用某种方式来处理。要么来自线程事件，要么来自其他(调用方)线程。EurekaLog不会破坏这种行为。例如，当启用EurekaLog时，您以前编写的代码不会改变它的行为。这样，正确编写的代码就可以在没有和的情况下正常工作。

您的代码当前如何处理线程异常？您是在做像ShowMessage或自定义日志之类的事情吗？这显然不适用于EurekaLog，它不知道您正在处理ShowMessage或您自己的自定义日志代码的异常。您可能需要调用线程中的Application.ShowException或re-raise之类的内容。

如果您由于某种原因不能使用默认的RTL/VCL处理(这是EurekaLog挂起的)，那么您需要告诉EurekaLog您想要处理这个特殊的异常。例如，从文档：您可以使用(例如)来自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博士说明了每个线程的情况(比如BeginThread、TThread、线程池等等)。有几种可能的选择。把所有这些信息打包成一个单一的答案是不合理的。

如果由于某种原因，您没有处理.FatalException属性TThread的代码，那么您可以使用TThreadEx类及其.AutoHandleException属性在线程退出时自动处理异常，如描述的这里。

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，那么您的项目将没有处理线程异常的代码！

附注：

我需要从TThread更改为TThreadEx，并在我的Execute overriden方法开始时添加以下代码。 SetEurekaLogStateInThread(ThreadID，真)；

这是有点不正确的:你可以做一个或另一个，但不能两者兼而有之。还有其他方法可以告诉EurekaLog，它应该在这个线程中挂勾异常。

基本上，异常生活有两个阶段:提高和处理。当EurekaLog在默认的RTL/VCL代码中实现时，它们会同时挂起两个阶段。您需要显式地指示要挂接哪些线程，因为您可能想忽略系统/第三方线程，您无法控制这些线程。而且在RTL/VCL中不存在TThread的默认处理。这就是为什么没有什么可抓的。