如何保持线程对象的实例化时间足够长，以应对线程外的事件？

Question

我正在开发一个多线程系统，该系统涉及线程通知其父对象销毁。问题是，我需要允许该对象保持创建足够长的时间，以便该事件读取该对象，因为我将该对象作为事件的参数之一传递。目前，当该事件被触发时，传递给该事件的对象已经从线程内销毁。

我不希望线程必须等待此事件完成，而是知道何时触发此事件并然后销毁该对象。我希望线程中的代码无论如何都继续，即使对象仍然被实例化。

这些对象有一个列表，它们是从一个线程中创建的。当此列表中的对象发生某些事情时（特别是在这种情况下对象的销毁），线程自身具有事件。我实际上是将这些事件输入事件队列（一个 TList，其中包含指向什么事件和什么对象的记录指针）。所以在线程的某个地方，我在这个事件列表中添加了一条记录。

然后线程的执行随之而来，并循环通过此列表中的事件并相应地触发它们（下面的示例）。因此，当事件被添加到列表中时，它会将对象指针保存为该事件记录指针的一部分。然后可能会有很长的延迟，直到事件实际被触发。此时，仍需要实例化对象，以便可以从线程外部读取它。只有这样才能真正销毁对象。

用于此事件队列的机制没有任何空间用于向线程反馈。它已经是一个已开发的系统，并且任何添加此事件队列以告诉线程该事件已被触发是不可能的，因为它需要整个重写。否则，一旦我的事件被调用，我会简单地告诉线程销毁这个对象。

这里有一些sn-ps，系统实际上非常大，所以很难展示所有的功能。一个线程的事件通过另外 4 个父对象引发一系列事件，并通过每个父对象传递该对象。目标是防止线程外的任何代码处理这种实际破坏。线程应该完全负责在销毁之前等待这个事件......

type
  TJDNetSvrNode = class;
  TJDNetSvrThread = class;

  TNodeEvent = (neUnload); //And many more

  PNodeEventRec = ^TNodeEventRec;
  TNodeEventRec = record
    Event: TNodeEvent;
    Node: TJDNetSvrNode;
  end;

  TJDNetSvrNodeEvent = procedure(Sender: TObject; Node: TJDNetSvrNode) of object;

  TJDNetSvrNode = class(TObject)
    //Large object with no relevant members
  end;

  TJDNetSvrThread = class(TThread)
  private
    FNodeEvents: TList;
    FNodeEvent: PNodeEventRec;
    FOnNodeUnload: TJDNetSvrNodeEvent;
    procedure SYNC_OnUnload;
  public
    property OnNodeUnload: TJDNetSvrNodeEvent read FOnNodeUnload write FOnNodeUnload;
  end; //Much more in this class

//Starting point of event - adds to event queue list
procedure TJDNetSvrThread.NodeUnloaded(Sender: TObject; Node: TJDNetSvrNode);
var
  E: PNodeEventRec;
begin
  E:= New(PNodeEventRec);
  E.Event:= neUnload;
  E.Node:= Node;
  FNodeEvents.Add(E);
end;

//Called within thread to execute any events which are queued
procedure TJDNetSvrThread.ProcessNodeEvents;
begin
  while FNodeEvents.Count > 0 do begin
    FNodeEvent:= PNodeEventRec(FNodeEvents[0]);
    FNodeEvents.Delete(0);
    case FNodeEvent.Event of
      neUnload: begin
        Synchronize(SYNC_OnUnload);
      end;
      //And many more
    end;
    Dispose(FNodeEvent);
  end;
end;

procedure TJDNetSvrThread.SYNC_OnUnload;
begin
  if assigned(FOnNodeUnload) then
    FOnNodeUnload(Self, FNodeEvent.Node); //Parent also has to use "Node" for its event
  //NOW "Node" can be destroyed
end;

Answer 1

听起来你基本上想要的是一个对象能够被系统中的多个不同位置引用，并且在引用它的所有位置都完成之前不会被销毁，无论发生的顺序是什么.

Delphi 有一种机制可以做到这一点：引用计数。它内置于Interface 模型中。尝试将您的对象转换为 TInterfacedObject 后代，创建并实现一个 Interface 以公开您需要的功能，然后传递它而不是对象引用。