delphi - 绕过(禁用)Delphi 的接口(interface)引用计数

Question

对于我正在处理的应用程序架构中的一个特定问题，接口(interface)似乎是一个很好的解决方案。具体来说，一些“业务对象”依赖于从实际应用程序中的数据库中提取的一堆设置。让这些业务对象请求接口(interface)(通过控制反转)，并让中央 TDatabaseSettings 对象实现这些接口(interface)，可以实现更好的隔离，从而使单元变得更容易测试。

然而，在 Delphi 中，接口(interface)似乎带来了一个(在这种情况下)令人不快的好处:引用计数。这意味着如果我做这样的事情:

type
IMySettings = interface
    function getMySetting: String;
end;

TDatabaseSettings = class(..., IMySettings)
    //...
end;

TMyBusinessObject = class(TInterfacedObject, IMySettings)
    property Settings: IMySettings read FSettings write FSettings;
end;

var
  DatabaseSettings: TDatabaseSettings; 
    // global object (normally placed in a controller somewhere)

//Now, in some function...
O := TMyBusinessObject.Create;
O.Settings := DatabaseSettings; 
// ... do something with O
O.Free;

在最后一行 (O.Free)，我的全局 DatabaseSettings 对象现在也被释放，因为最后一个对它的接口(interface)引用(包含在 >O) 丢失了!

一种解决方案是使用接口(interface)存储“全局”DatabaseSettings 对象；另一个解决方案是重写 TDatabaseSettings 类的引用计数机制，这样我就可以继续将 DatabaseSettings 作为普通对象进行管理(这与其余对象更加一致)应用程序的)。

所以，总而言之，我的问题是:如何禁用特定类的接口(interface)引用计数机制？

我已经找到一些信息，建议重写该类的 IInterface 方法 _AddRef 和 _Release (TDatabaseSettings示例中的 )；有人这样做过吗？

或者你会说我不应该这样做(令人困惑？只是一个坏主意？)，并找到一个不同的解决方案来解决架构问题？

非常感谢!

Answer 1

好吧，你可以绕过它，但问题是你是否真的想要这样。如果要使用接口(interface)，最好完全使用它们。正如您所经历的那样，如果混合类和接口(interface)变量，就会出现问题。

var
  // DatabaseSettings: TDatabaseSettings; 
  DatabaseSettings : IMySettings;

//Now, in some function...
O := TMyBusinessObject.Create;
O.Settings := DatabaseSettings; 
// ... do something with O
O.Free;

您现在拥有对该接口(interface)的第二个引用，丢失第一个引用将不会释放该对象。

也可以同时保留类和对象:

var
  DatabaseSettings: TDatabaseSettings; 
  DatabaseSettingsInt : IMySettings;

请务必在创建对象后立即设置接口(interface)。

如果您确实想禁用引用计数，则只需创建一个实现 IInterface 的 TObject 的新后代。我已经在 D2009 中测试了下面的示例并且它有效:

// Query Interface can stay the same because it does not depend on reference counting.
function TMyInterfacedObject.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if GetInterface(IID, Obj) then
    Result := 0
  else
    Result := E_NOINTERFACE;
end;

constructor TMyInterfacedObject.Create;
begin
  FRefCount := 1;
end;

procedure TMyInterfacedObject.FreeRef;
begin
  if Self = nil then
    Exit;
  if InterlockedDecrement(FRefCount) = 0 then
    Destroy;    
end;

function TMyInterfacedObject._AddRef: Integer;
begin
  Result := InterlockedIncrement(FRefCount);
end;

function TMyInterfacedObject._Release: Integer;
begin
  Result := InterlockedDecrement(FRefCount);
  if Result = 0 then
    Destroy;
end;

FreeRef 只是降低引用计数，就像 _Release 一样。您可以在通常使用免费的地方使用它。