OmniThread and Exceptions

OmniThread and exceptions…

Example # 48 is good… from demos of omni lib…

procedure TOmniTasks.Test2;
begin
  Parallel.Async(
    procedure
    begin
      Sleep(1000);
      raise Exception.Create('Exception in Async');
    end, Parallel.TaskConfig.OnTerminated(
    procedure(const task: IOmniTaskControl)
    var
      e: Exception;
    begin
      if assigned(task.FatalException) then
      begin
        e := task.DetachException;
        FLogger.LogStr('foreCastSalesCount ' + e.Message, tlpError);
        //  Log('Caught async exception %s:%s', [excp.ClassName, excp.Message]);
        FreeAndNil(e);
      end;
    end));
end;

procedure TOmniTasks.Test2;

begin

Parallel.Async(

procedure

begin

Sleep(1000);

raise Exception.Create('Exception in Async');

end, Parallel.TaskConfig.OnTerminated(

procedure(const task: IOmniTaskControl)

var

e: Exception;

begin

if assigned(task.FatalException) then

begin

e := task.DetachException;

FLogger.LogStr('foreCastSalesCount ' + e.Message, tlpError);

// Log('Caught async exception %s:%s', [excp.ClassName, excp.Message]);

FreeAndNil(e);

end;

end));

end;

MY PROJECTS

Recent Posts

Categories