Delphi ARC下的TThread (iOS)未发布

Question

在ARC管理下，使用Delphi终止线程的正确方法是什么？

以这个简单的例子为例：

  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  public
    destructor Destroy; override;
  end;

  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    FThread: TMyThread;
  public
  end;

{ TMyThread }
destructor TMyThread.Destroy;
begin

  ShowMessage('Destroy');

  inherited Destroy;

end;

procedure TMyThread.Execute;
begin

  Sleep(5000);

end;

{ TForm2 }
procedure TForm2.Button1Click(Sender: TObject);
begin
  FThread := TMyThread.Create(TRUE);
  FThread.FreeOnTerminate := TRUE;
  FThread.Start;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  ShowMessage(FThread.RefCount.ToString);
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  FThread := nil;
end;

好的，按Button1会产生一个线程。启动线程后，如果单击Button2，它将显示一个RefCount值3！嗯，1是对我的FThread变量的引用，TThread在内部创建了另外两个引用.我钻研了源代码，发现RefCount在这里增加了：

constructor TThread.Create(CreateSuspended: Boolean);

  ErrCode := BeginThread(nil, @ThreadProc, Pointer(Self), FThreadID);
  if ErrCode <> 0 then
    raise EThread.CreateResFmt(@SThreadCreateError, [SysErrorMessage(ErrCode)]);
  {$ENDIF POSIX}

在这里：

function ThreadProc(Thread: TThread): Integer;
var
  FreeThread: Boolean;
begin
  TThread.FCurrentThread := Thread;

好吧..。线程完成后(在我的情况下，5秒后)，RefCount将减少到2(因为我已经将FreeOnTerminate设置为TRUE，但如果不将FreeOnTerminate设置为TRUE，则RefCount仍然是3)。

看到问题了吗？线程永远不会完成，析构函数也不会被调用，如果我调用FThread := nil，那么RefCount应该从2减少到1(或者在FreeOnTerminate = FALSE情况下从3减少到2)，线程永远不会在ARC下释放。

也许我错过了什么，因为我习惯于使用没有ARC的线程.我在这里错过了什么？或者在ARC下的TThread实现中是否存在缺陷？

也许TThread的这个定义

private class threadvar
  FCurrentThread: TThread;

应该是这样的

private class threadvar
  [Weak] FCurrentThread: TThread;

Answer 1

在对qc进行了深入研究之后，出现了以下问题和解决办法：

应该以const的形式传递线程参数

function ThreadProc(Thread: TThread): Integer;  <<-- pass_by_reference pushes
var                                                  up the ref_count.
  FreeThread: Boolean;
begin
  TThread.FCurrentThread := Thread;

如果您以const的形式传递它，ref_count就不会上升到3。通常这不是一个问题，因为在函数退出时ref_count会减少，但是这里：

exit()跳出代码。

但这只是解决方案的一部分，还需要做更多的工作.

戴夫·诺塔奇的全面解决方案

经过多次周旋之后，我想出了一个潜在的解决办法：

将这些mods设置为类单元:更改：

function ThreadProc(Thread: TThread): Integer;

至：

function ThreadProc(const Thread: TThread): Integer;

并增加：

TThread.FCurrentThread := nil;

在这一行之后：

if FreeThread then Thread.Free;

在DoTerminate后代中重写TThread，因此：

procedure TMyThread.DoTerminate;
begin
  try
    inherited;
  finally
    __ObjRelease;
  end;
end;

因此调用线程：

FMyThread.Free; // This will do nothing the first time around, since the reference will be nil
FMyThread := TMyThread.Create(True);
// DO NOT SET FreeOnTerminate
FMyThread.OnTerminate := ThreadTerminate;
FMyThread.Resume;

这(至少对我来说，在设备上)会导致线程在随后的调用中被销毁。 注意:在ARC条件下，不要在本地声明对线程的引用，因为当线程超出作用域时，线程就会被破坏，而Execute方法也不会被调用，更不用说它引起的其他问题了。