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

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所以也许您的实际代码看起来略有不同.