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

请查看以下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下执行。

最佳答案

我不能代表FPC，但是使用Delphi混合接口和对象是个坏主意。在这种情况下，您有两种解决方案：


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


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

关于interface - 使用接口(interface)时的SIGSEGV，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/25513003/