Delphi 中 Form 分发与其生命周期相关的接口对象的安全方法？

Question

我有一个 Delphi 表单，它提供接口对象背后的功能，代码的其他部分也通过属于该表单的属性获取引用。我无法将接口功能委托给子对象，因为太多的功能是由表单上的控件/组件提供的。我无法使用 TAggregateObject 或 TContainedObject 链接传递给 Form 的接口对象的生命周期，因为 TForm 类不从 TinterfacedObject 继承，并且 Delphi 不支持多重继承，因此我无法将 TInterfacedObject 混合到继承链中。如果表单被销毁，而其他一些代码保存着由表单传递的接口引用之一，则这种情况可能会导致访问冲突。有人能想出一个好的解决方案来解决这个问题吗？

Answer 1

您可以将接口委托给子对象，只需让该对象包含指向表单的内部指针，以便它可以在需要时访问表单的控件，这与您现在已经做的没有什么不同。

您可以根据需要使用 TAggregateObject 或 TContainedObject。它们不需要从 TInterfacedObject 派生 Form。它们所需要的只是一个 IInterface 接口指针，而 TComponent 派生自 IInterface（并覆盖 _AddRef()和 _Release() 以禁用引用计数），因此您可以将表单本身（作为 TComponent 后代）作为所需的 IInterface 指针传递。

这就剩下唯一的问题了——当活动接口引用被其他代码持有时，表单关闭。最简单的解决方案是 1) 重写该代码，以便在窗体关闭时不保留这些引用，或者 2) 在释放这些引用之前不允许窗体关闭。

Answer 2

注意：只有当您的使用者也是从 TComponent 派生时，这才有效。

为了避免死引用，您可以从表单查询 IInterfaceComponentReference（每个 TComponent 都可用），在该接口上调用 GetComponent 并将自己附加到 FreeNotification返回的组件/表单的代码>。

现在发生的情况是：当表单被销毁时，它将通过调用消费者上的 Notification 方法（将其自身（表单）作为 AComponentAComponent）来通知所有“监听者”它将销毁自己。 code> 和 opRemove 作为操作。从而允许您将接口引用归零。
但要注意对象引用和接口引用不能相等。
另外，请确保在不再需要通知时调用 RemoveFreeNotification 以避免不必要的调用。

TSomeConsumer = class(TComponent)
private
  FInterfaceToAService: ISomeInterface;        
protected
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
  procedure SetService(const Value: ISomeInterface); 
end;

procedure TSomeConsumer.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;
  if (Operation = opRemove) and (AComponent = TObject(FInterfaceToAService)) then
    SetService(nil); // Takes care of niling the interface as well.
end;

procedure TSomeConsumer.SetService(const Value: ISomeInterface);
var
  comRef: IInterfaceComponentReference;
begin
  if Supports(FInterfaceToAService, IInterfaceComponentReference, comRef) then
    comRef.GetComponent.RemoveFreeNotification(self);

  FInterfaceToAService := Value;

  if Supports(FInterfaceToAService, IInterfaceComponentReference, comRef) then
    comRef.GetComponent.FreeNotification(self);
end;