请看一下下面的 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,混合接口(interface)和对象是一个坏主意。在这种情况下,您有两种解决方案:
- 将 MyInstance 声明为 IMyInterface 并删除对 Free 的调用。
- 从 TInterfacedPersistent 继承 TMyClass。
为了澄清实际发生的情况:创建 TMyClass 实例并将其分配给 MyInstance 将使引用计数保持为 0。当您将其传递给 DoSomething 时,会发生到 IMyInterface 的强制转换,并且引用计数器会增加。当 DoSomething 结束时,引用计数器减少到 0 并且实例被释放。以下对 Free 的调用将释放已释放的实例。
关于interface - 使用接口(interface)时的 SIGSEGV,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/25513003/