如何在Delphi中将异常从一个线程传递到另一个(调用者的)线程？

Question

我有另一个问题!请看这个例子:

// There is a class with some method:
type
  TMyClass = class
  public
    procedure Proc1;
  end;

  // There is a some thread class:
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;

procedure TMyClass.Proc1;
begin
  // this method is just calling another thread:
  with TMyThread.Create(True) do
  begin
    FreeOnTerminate := True;
    Resume;
  end;
  // + there are some more actions
end;

procedure TMyThread.Execute;
begin
  // in this example this thread just throws exception:
  raise Exception.Create('Some exception');
end;

所有我想要的 - 是在TMyClass.Proc1中引发异常并将其抛出如下:

var
  myObject: TMyClass;
begin
  myObject := TMyClass.Create;
  try
    myObject.Proc1; // launch and watch what happenings
  except
    on E: Exception do
      WriteErrorLog(E.Message);
  end;
  FreeAndNil(myObject);
end;

请告诉我如何制作这样的东西？非常感谢!

哦!还有一件事 - 我在Delphi 5上进行编码,所以我没有TThread的"FatalException"属性或类似的东西..

Answer 1

你可以使用AcquireExceptionObject():

AcquireExceptionObject返回指向当前异常对象的指针,并防止在当前异常处理程序退出时释放异常对象.

然后你可以将指针发送到另一个线程,如果你在那里提升它将为你释放,否则你必须打电话ReleaseExceptionObject()来释放它.

Answer 2

简而言之，您无法按照自己想要的方式执行此操作。

您需要克隆异常对象，将副本传递给其他线程（例如，使用 Synchronize 方法或使用其他同步技术）并在那里引发该异常对象。