Question

美好的一天！函数GetService创建类THTTPRIO的实例并将其作为IInvokable返回。我在另一个函数中使用这个接口/对象。当我不再需要它时，我是否必须释放它？接口不需要被释放，但我对RIO被创建为THTTPRIO类的对象这一事实感到困惑。

function GetService(Addr: string): IInvokable;
var
  RIO: THTTPRIO;
begin
  RIO := THTTPRIO.Create(nil)
  RIO.URL := Addr;
  Result := (RIO as IInvokable);
end;

其中：

IInvokable = interface(IInterface);
THTTPRIO = class(TComponent, IInterface, IRIOAccess);

提前谢谢！ Vojtech

Answer 1

要回答这个问题，您需要检查如何为此课程实施IInterface._AddRef和IInterface._Release。它们看起来像这样：

function TRIO._AddRef: Integer;
begin
  Result := TInterlocked.Increment(FRefCount);
end;

function TRIO._Release: Integer;
begin
  Result := TInterlocked.Decrement(FRefCount);
  if (Result = 0) and not (Owner is TComponent) then
    Destroy;
end;

这意味着对象的生命周期由接口引用计数管理。这意味着您的代码是正确的并且不会泄漏。

请注意，如果您在构造函数中传递了Owner，那么生命周期将由该所有者管理。

如果URL的设置提升，您的代码仍有可能泄漏。我会这样写：

function GetService(const Addr: string): IInvokable;
begin
  Result := THTTPRIO.Create(nil);
  (Result as IRIOAccess).RIO.URL := Addr;
end;

说完所有这些后，THTTPRIO类不支持IInvokable所以您的实际代码可能会略有不同。

它是一个对象还是一个接口？我是否需要释放它？

1 个答案: