Bir arayüz karmaşası nasıl çözülür

Sorununuz, bir nesne başvurusu kullanarak nesnelerinizi oluşturduğunuzdan kaynaklanıyor olabilir:

var
  MyObject: TObject;
begin
  MyObject := TMyObject.Create;
  ShowMessage('Before ShowObjectID MyObject RefCount: ' + IntToStr(MyObject.RefCount));
  ShowObjectID(MyObject);
  ShowMessage('After ShowObjectID MyObject RefCount: ' + IntToStr(MyObject.RefCount));
end;

Bunun böyle yapması, yaratıldıktan sonra RefCount'un sıfır olduğu anlamına gelir. İhtiyaç duyduğunuz sürece nesneyi bir arayüz referansına da atayabilirsiniz,

var
  MyObject: TMyObject;
  MyIntf: IMyInterface;
begin
  MyObject := TMyObject.Create;
  MyIntf := MyObject;
  ShowMessage('Before ShowObjectID MyObject RefCount: ' + IntToStr(MyObject.RefCount));
  ShowObjectID(MyObject);
  ShowMessage('After ShowObjectID MyObject RefCount: ' + IntToStr(MyObject.RefCount));
  MyIntf := nil;
  ShowMessage('After nilling the interface MyObject RefCount: ' + IntToStr(MyObject.RefCount));
end;

veya David'in yorumlarda önerdiği gibi refcounting'i devre dışı bırakın. Esasen kendi "TInterfacedObject" inizi bildirmek ve üç adet IInterface yöntemini uygulamak anlamına gelir:

function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;

Öz, _AddRef ve _Release için -1 döndürmektir. David'in dediği gibi: TComponent'in nasıl yaptığını gözden geçirin. Ve sadece FVCLComObject nil olduğunda ne yaptığınızı alın.

Sorununuzu çözmek için bir yaklaşım kodunuzu değiştirmektir, böylece sadece bir arabirim referansı yoluyla nesneye başvurursunuz. Başka bir deyişle yerine

var
  obj: TMyObject;
...
obj := TMyObject.Create;
try
  obj.DoStuff;
  //etc. etc.
finally
  obj.Free;
end;

Sen yaz

var
  obj: IMyObject;//NOTE: interface variable
...
obj := TMyObject.Create;
obj.DoStuff;
//etc. etc.
obj := nil;//or let it go out of scope and release that way

Bu rahatsız edici olabilir, bu yüzden otomatik ömür boyu yönetimi devre dışı bırakmak daha uygun olabilir. Uyguladığınız nesne için bunu yapmanız gerekir:

type
  TInterfacedObjectWithoutLifetimeManagement = class(TObject, IInterface)
  private
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;

function TInterfacedObjectWithoutLifetimeManagement.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if GetInterface(IID, Obj) then
    Result := 0
  else
    Result := E_NOINTERFACE;
end;

function TInterfacedObjectWithoutLifetimeManagement._AddRef: Integer;
begin
  Result := -1;
end;

function TInterfacedObjectWithoutLifetimeManagement._Release: Integer;
begin
  Result := -1;
end;

Daha sonra sınıflarınızı bu sınıftan türetebilirsiniz.

Bu yaklaşımla çok büyük bir uyarı var. TInterfacedObjectWithoutLifetimeManagement türetilmiş bir sınıf tarafından uygulanan arabirimleri değişkenler (yerel, genel, sınıf üyesi) tuttuğunuzu varsayalım. Bu tür arayüz değişkenlerinin, uygulama nesnesinde olarak adlandırdığınız önce sonlandırılması gerekir.