使用 AnonymousThread 将值传递给 onTerminate

Question

我有一个正在运行的线程应用程序正在计算一些更长的计算。

procedure TForm.calculationInThread(value: Integer);
var aThread : TThread;
begin
  aThread :=
    TThread.CreateAnonymousThread(
      procedure
      begin
        myCalculation(value);           
      end
    );
  aThread.FreeOnTerminate := True;
  aThread.OnTerminate := self.calculationInThreadEnd;
  aThread.Start;
end; 

还有一个calculationInThreadEnd的实现；

procedure TForm.calculationInThreadEnd(Sender: TObject);
begin
   doSomething;
end;

我可能会错过一些愚蠢的东西，但是如何将值传递给calculationInThreadEnd？我找到了

TThread.SetReturnValue(value);

但我如何在 onTerminate 调用中访问它？

解决方案

type THackThread = class(TThread);

procedure TForm1.calculationInThreadEnd(Sender: TObject);
var Value: Integer;
begin
    Value := THackThread(Sender as TThread).ReturnValue;  
end;

Answer 1

OnTerminate 事件的Sender 参数是线程对象。所以你可以这样做：

aThread :=
  TThread.CreateAnonymousThread(
    procedure
    begin
      myCalculation(value);           
      TThread.SetReturnValue(...);
    end
  );

然后在OnTerminate 事件处理程序中你可以这样做：

procedure TForm.calculationInThreadEnd(Sender: TObject);
var
  Value: Integer;
begin
  Value := (Sender as TThread).ReturnValue;
end;

更新

返回值属性受到保护，因此您需要使用受保护的 hack 来访问它。