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混合接口和对象是一个坏主意。在这种情况下，您有两个解决方案：

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

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

Answer 2

DoSomething期待IMyInterface

当您通过MyInstance时，它会进行计数器控制，因此当DoSomething方法完成时，MyInstance会有一个计数器减量。

TMyClass是一个TInterfacedObject，所以当counter = 0时，Object将被释放，因此你不需要调用MyInstance.Free;

你可以这样做：

DoSomething(TMyClass.Create);

Answer 3

您的对象使用引用计数，要释放它，您必须减少引用计数。另一种方法是使用所谓的 CORBA 接口。

在FPC 对象pascal模式中， CORBA 接口是一个纯接口，它不是从IUnknown派生的（与 COM 接口相反）。如果添加编译器指令：

{$INTERFACES CORBA}

然后您就可以使用 .Free 方法，就像使用任何其他 TObject 实例一样。请注意，由于CORBA是完整的跨语言规范（IDL），因此该名称可能会令人困惑，但此处corba仅表示＆＃34;而不是COM＆＃34; 。

在线参考： http://www.freepascal.org/docs-html/ref/refse44.html#x98-1080007.6

使用接口时的SIGSEGV

3 个答案: