线程错误：尝试释放挂起的线程时句柄无效 (6)

Question

在给定的示例中，我在调用 AThread.Free. 时收到异常

program Project44;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, Windows;

type
  TMyException = class(Exception);

var
  AThread: TThread;
begin
  AThread := TThread.Create(True);
  try
    AThread.FreeOnTerminate := True;
    //I want to do some things here before starting the thread
    //During the setup phase some exception might occur, this exception is for simulating purpouses
      raise TMyException.Create('exception');
  except
    AThread.Free; //Another exception here
  end;
end.

我有两个问题：

1. 在给定的示例中，我应该如何释放 AThread 的 TThread 实例？

2. 我不明白，为什么TThread.Destroy 在自我毁灭之前调用Resume。这有什么意义？

Answer 1

您不能将FreeOnTerminate 设置为True 和在线程实例上调用Free。你必须做一个或另一个，但不能两者都做。就目前而言，您的代码会破坏线程两次。绝对不能两次销毁一个对象，当然，当析构函数第二次运行时，就会发生错误。

这里发生的情况是，由于您创建了挂起的线程，因此在您明确释放线程之前什么都不会发生。当你这样做时，析构函数恢复线程，等待它完成。这会导致再次调用Free，因为您将FreeOnTerminate 设置为True。第二次调用Free 将关闭句柄。然后你返回到线程过程并调用ExitThread。失败是因为线程的句柄已关闭。

正如 Martin 在评论中指出的那样，您不能直接创建 TThread，因为 TThread.Execute 方法是抽象的。此外，您不应使用已弃用的Resume。使用Start 开始执行挂起的线程。

我个人不喜欢使用FreeOnTerminate。使用此功能会导致线程在创建它的不同线程上被销毁。当您想忘记实例引用时，通常会使用它。这让您不确定当您的进程终止时线程是否已被销毁，甚至在进程终止期间它是否正在终止并释放自己。

如果您必须使用FreeOnTerminate，那么您需要确保在将FreeOnTerminate 设置为True 后不要调用Free。所以显而易见的解决方案是在调用Start 之后立即将FreeOnTerminate 设置为True，然后忘记线程实例。如果您在准备开始之前有任何异常，那么您可以安全地释放线程，因为那时您的 FreeOnTerminate 仍然是 False。

Thread := TMyThread.Create(True);
Try
  //initialise thread object
Except
  Thread.Free;
  raise;
End;
Thread.FreeOnTerminate := True;
Thread.Start;
Thread := nil;

更优雅的方法是将所有初始化移到TMyThread 构造函数中。那么代码将如下所示：

Thread := TMyThread.Create(True);
Thread.FreeOnTerminate := True;
Thread.Start;
Thread := nil;

Answer 2

你的情况很复杂。

首先，您实际上并没有释放挂起的线程；在析构函数中恢复线程：

  begin
    Terminate;
    if FCreateSuspended then
      Resume;
    WaitFor;
  end;

由于Terminate在Resume之前被调用，所以Execute方法永远不会运行，线程在恢复后立即终止：

  try
    if not Thread.Terminated then
    try
      Thread.Execute;
    except
      Thread.FFatalException := AcquireExceptionObject;
    end;
  finally
    Result := Thread.FReturnValue;
    FreeThread := Thread.FFreeOnTerminate;
    Thread.DoTerminate;
    Thread.FFinished := True;
    SignalSyncEvent;
    if FreeThread then Thread.Free;

现在看最后一行 - 你从析构函数本身调用析构函数 (Thread.Free)！ 神奇的错误！

---

回答您的问题：

1. 您不能在代码中使用FreeOnTerminate:= True；
2. 你应该问 Embarcadero 为什么 TThread 是这样设计的；我的猜测 - 一些代码 （DoTerminate 方法）应该在线程上下文中执行，而 线程终止。

---

您可以向 QC 发送功能请求：将 FFreeOnTerminate:= False 添加到 TThread.Destroy 实现：

destructor TThread.Destroy;
begin
  FFreeOnTerminate:= False;
// everything else is the same
  ..
end;

这应该可以防止递归析构函数调用并使您的代码有效。