interface - 使用接口(interface)时的 SIGSEGV

Question

请看一下下面的 Free Pascal 程序。

type
  IMyInterface = interface
  end;

  TMyClass = class(TInterfacedObject, IMyInterface)
  end;

var
  MyInstance: TMyClass;

procedure DoSomething(MyParameter: IMyInterface);
begin
end;

begin
  MyInstance := TMyClass.Create;

  DoSomething(MyInstance);

  MyInstance.Free;
end.

当从 IDE 中启动(使用调试信息编译)时，程序在使用 SIGSEGV 访问析构函数期间崩溃。为什么？当我使用 TInterfacedObject、TObject 或 TMyClass 作为参数类型时，它可以工作。当我使用 const 关键字作为所述参数时，它甚至可以工作。谁能解释这种行为？快速浏览一下 Java，我希望这能起作用。

使用FreePascalCompiler 2.6.4编译，在Windows 7下执行。

Answer 1

我不能代表 FPC，但对于 Delphi，混合接口(interface)和对象是一个坏主意。在这种情况下，您有两种解决方案:

1. 将 MyInstance 声明为 IMyInterface 并删除对 Free 的调用。
2. 从 TInterfacedPersistent 继承 TMyClass。

为了澄清实际发生的情况:创建 TMyClass 实例并将其分配给 MyInstance 将使引用计数保持为 0。当您将其传递给 DoSomething 时，会发生到 IMyInterface 的强制转换，并且引用计数器会增加。当 DoSomething 结束时，引用计数器减少到 0 并且实例被释放。以下对 Free 的调用将释放已释放的实例。