标签: eurekalog

在没有与Eurekalog对话的情况下纠正线程内的记录

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

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

SetEurekaLogStateInThread(ThreadID, true);

Run Code Online (Sandbox Code Playgroud)

尽管如此,当发生错误时,它不会在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

Run Code Online (Sandbox Code Playgroud)

我的主题是创建

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

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

Run Code Online (Sandbox Code Playgroud)

我执行的开始