delphi - 释放 DLL 中的接口(interface)对象时无效的指针操作

Question

我仍在努力掌握界面的使用。我实现它们的唯一目的是与 DLL 中实例化的对象进行交互。当我使用它时，一切正常，所有方法都按预期工作，等等。问题在于清理该接口(interface)背后的对象。

我有一个像这样的简单界面

IMyInterface = interface
  ['{d52b14f3-156b-4df8-aa16-cb353193d27c}']
  procedure Foo;
end;

还有一个对象

TMyObject = class(TInterfacedObject, IMyInterface)
private
  procedure Foo;
end;

在 DLL 中，我有一个该对象的全局变量以及两个导出函数来创建和销毁该实例

var
  _MyObject: TMyObject;

function CreateMyObject: IMyInterface; stdcall;
begin
  _MyObject:= TMyObject.Create;
  Result:= IMyInterface(_MyObject);
end;

function DestroyMyObject: Integer; stdcall;
begin
  _MyObject.Free; //   <--   Invalid Pointer Operation
end;

对象的析构函数几乎不执行任何操作，只是继承，但我仍然遇到这个问题。但我在 _MyObject.Free 上收到 无效指针操作。

我使用 LoadLibrary 和 GetProcAddress 来访问这些导出的方法。

为什么我会遇到这个问题以及如何修复它？

Answer 1

无效的指针操作意味着您释放了未分配的内容。

在这种情况下，您要释放的对象已被销毁。在析构函数中放置一个断点，然后亲自查看。

接口(interface)具有与其关联的引用计数代码，这就是为什么您读到的有关接口(interface)的所有建议都说不要将它们与对象引用混合，因为对象引用没有这样的引用计数。

当您实例化该对象并将其分配给全局变量时，该对象的引用计数为零，并且尚未涉及接口(interface)。当您将其分配给函数结果时，引用计数变为 1。如果启用调试 DCU 并使用调试器单步执行该语句，您可以观察这是如何发生的。 (顺便说一句，类型转换不是必需的；编译器已经知道该对象实现了目标接口(interface)，并且允许自行进行简单的赋值。)

在其他地方，在此 DLL 的使用端，保存对象最后一个接口(interface)引用的变量将被清除。引用计数变为零，对象自行销毁。

一旦对象被销毁，您的全局变量就是一个悬空引用。它保存着一个不再存在的对象的地址。当您对其调用 Free 时，析构函数会将地址传递给内存管理器，但内存管理器知道该地址(不再)有任何内容，因此会引发异常。

要解决此问题，请将该全局变量的类型更改为接口(interface)类型，然后删除 Free 调用；将其替换为将 nil 赋给变量的语句。通过这些更改，创建对象并在变量中存储接口(interface)引用会将对象的引用计数设置为 1，并将其返回给调用者会将其设置为 2。当使用者清除其引用时，计数将降至 1，新的 nil 赋值会将其设置为零，从而使对象在适当的时间释放自身。

一旦开始通过接口(interface)引用访问对象，最好不要再通过普通对象引用使用它。风险太大了，您可能会在对象被销毁后意外使用该对象。