Manual / code

A most simple way to enable EurekaLog in thread manually is to use BeginThreadEx/TThreadEx:

Both routines are from EBase unit.

Important note: never use CreateThread function. Use BeginThread/BeginThreadEx function instead.

See the above links for more details about this recommended approach.

If you can not use BeginThreadEx/TThreadEx in your code (e.g. you do not create threads - think of thread pools as example), then you have to manually enable EurekaLog for your threads, for example:

function ThreadFunc(Parameter: Pointer): Integer;
begin
  try

    // Both routines are from EBase unit - 

    // thus both can be used in the application without EurekaLog 

    // 1. Name thread for easy identification in debugger and bug reports
    NameThread('This is my thread with Parameter = ' + 
      IntToHex(NativeUInt(Parameter), SizeOf(Pointer) * 2));

 
    // 2. Activate EurekaLog for this thread.
    SetEurekaLogStateInThread(0, True); 
 

    // ... your normal code for the thread ...

 
    Result := 0; 
  except
    ApplicationHandleException(nil); 
    Result := 1; 
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  TID: Cardinal;
begin
  CloseHandle(BeginThread(nil, 0, ThreadFunc, nil, 0, TID));
end;

Notice first actions in the thread: setting thread name (description) and enabling EurekaLog for this thread. This template is a recommended code template. Each of your EurekaLog-enabled threads should start with these two actions. Here is the same example for TThread class:

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;
 
procedure TMyThread.Execute;
begin

  // Service calls first:

  NameThread('This is my thread ' + ClassName);

  SetEurekaLogStateInThread(0, True); 
 
  // ... your normal thread code ...
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: TMyThread;
  E: TObject;
begin
  Thread := TMyThread.Create(False);
  try

    Thread.WaitFor;
    E := Thread.FatalException;
    if Assigned(E) then
    begin

      PPointer(@Thread.FatalException)^ := nil; 
      raise E;
    end;
  finally
    FreeAndNil(Thread);
  end;
end;

...and for anonymous threads:

procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: TThread;
begin
  Thread := TThread.CreateAnonymousThread(
    procedure 
    begin 
      // Service calls first:
      NameThread('This is my anonymous thread');
      SetEurekaLogStateInThread(0, True); 
 
      // ... your normal thread code ...
    end);
  Thread.OnTerminate := Self.HandleExceptionInThread;
  Thread.Start;
  Thread := nil;
end;

...and a very similar code may be applied to any multi-threading framework that you may use: just insert calls to NameThread + SetEurekaLogStateInThread before your actual thread code.

Since a single thread may serve multiple tasks in a thread pool - it is recommended to clean after yourself:

function MyTask(lpThreadParameter: Pointer): Integer; stdcall;
begin
  // Mark thread for yourself
  NameThread('This is thread pool thread with my task');
  SetEurekaLogStateInThread(0, True); 
 
  try
    // ... your task code ...
    Result := 0; // <- to indicate success
  except
    on E: Exception do
      Result := HandleException(E);
  end;
 
  // Clean after yourself
  // (i.e. mark/prepare thread for other tasks)
  NameThread('');
  SetEurekaLogStateInThread(0, False); 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IsMultiThreaded := True;

  Win32Check(QueueUserWorkItem(MyTask, nil, 0));
end;

This sample code enables EurekaLog (and sets thread name) only for the duration of our task. When our task is completed, thread will be released into thread pool - so we disable EurekaLog (because we don't know which task will use this thread in the next time).

See also: