TThreadEx class

EurekaLog provides two helper routines to simplify thread management: BeginThreadEx function and TThreadEx class - which should be used instead of BeginThread function and TThread class respectively. Both routines are from EBase unit. EBase unit is a special unit that can be included in any application without including full EurekaLog code. Therefore you can safely use EBase unit in your applications even without EurekaLog enabled.

Note: when your thread is processing exception, the processing will be performed in a background thread. EurekaLog's event handlers will be called from a background thread. You need to use some sort of synchronization if you are accessing global data in your EurekaLog's event handlers. This also means that several threads can process multiple exceptions simultaneously at the same time. You can avoid this by marshaling processing to main thread. For example, you can use TThread(Ex) and analyze .FatalException property in your main thread. See below for examples. Alternatively, you may use "Consecutive processing" option.

Both BeginThreadEx function and TThreadEx class offers two additional arguments:

Note: the EurekaLog's state will be ignored if you compile your application without EurekaLog (or with disabled EurekaLog). On the other hand, the thread name is never ignored.

Thread name is arbitrary text string which can contain any combination of characters. Thread name will be shown in debugger (Threads window) and it will be used as thread caption in bug reports. You can use thread name to identificate threads.

TThreadEx class is descendant from TThread class - thus, all 5 exception handling methods for TThread class is also applicable to TThreadEx class. For example:

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

  // ... your code ...
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: TMyThread;
  E: TObject;
begin
  // Create thread
  Thread := TMyThread.Create('Thread Name');
  try

 
    // Wait for thread's completion. 
    // This wait can be implemented in any other way.

    // E.g. you can assign OnTerminate handler;

    // or you can PostMessage from thread to main thread.
    Thread.WaitFor;
 
    // Analyze thread completion.
    // Re-raise any thread error in current thread.

    // You should do this only after the thread has finished.
    E := Thread.FatalException;
    if Assigned(E) then
    begin

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

This code sample works exactly as the previous code sample. You can pass thread name right into TThreadEx's constructor. Thread will be automatically named - regardless of EurekaLog's state.

Threads launched with TThreadEx class will be EurekaLog-enabled by default. You can supply optional Boolean argument for TThreadEx's constructor to disable EurekaLog in thread, for example:

Thread := TMyThread.Create('Thread Name', False { disable EurekaLog in thread } );

Of course, you can use the same approach while supplying Suspended argument, for example:

Thread := TMyThread.Create(

 False { create thread running },

 'Thread Name',

 False { disable EurekaLog in thread } );

Thread := TMyThread.Create(

 True { create thread suspended},

 'Thread Name',

 True { enable EurekaLog in thread } );

TThreadEx class also supports anonymous threads:

type
  TForm1 = class(TForm)
    ...
  private
    procedure HandleExceptionInThread(Sender: TObject);
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: TThreadEx;
begin
  Thread := TThreadEx.CreateAnonymousThread(
    procedure 
    begin 
      raise Exception.Create('Test'); 
    end, 
    'My thread');
  Thread.OnTerminate := Self.HandleExceptionInThread;
  Thread.Start;
  Thread := nil; // never access thread var with FreeOnTerminate after Start
  // All anonymous threads are marked with FreeOnTerminate by default
end;
 
procedure TForm1.HandleExceptionInThread(Sender: TObject);
var
  Thread: TThread;
begin
  Thread := (Sender as TThread);
  if Assigned(Thread.FatalException) then
    HandleException(Thread.FatalException, False, atThread);
end;

Since creating OnTerminate handler just for handling exceptions in thread is a lot of work - TThreadEx class presents a new property to handle exceptions automatically:

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;

This sample code will automatically invoke HandleException routine for FatalException property of your thread. AutoHandleException property is also available for anonymous threads created with TThreadEx class. Note that AutoHandleException property handles exception in the context of current thread. E.g. exception processing is not marshaled to caller thread nor main thread. See also: how to handle an exception.

Notes:

See also: