Interfaces UND Objektreferenzen mischen

[Stevie]

Die Unterscheidung zwischen Create und CreateIntf ist etwas unglücklich gewählt, hier verhält sich nämlich das direkte zuweisen auf ein Interface mit Create nicht so, wie man es gewohnt ist. Daher lieber die neue Funktionalität explizit benamen.
Die Methode CreateIntf<T> ist so nicht korrekt und bringt einen E2010: Incompatible types, wenn man irgendwas anders als IInterface als T angibt. Dafür müsstest du Supports oder GetInterface benutzen.

Aber nebenbei bemerkt, frag ich mich, warum du solche Verrenkungen für was total Simples machst...

Delphi-Quellcode:

type
  TRefObject = class(TObject, IInterface)
  private
    FKeepAlive: Boolean;
    FRefCount: Integer;
  protected
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  public
    constructor Create(KeepAlive: Boolean = False);
    procedure FreeInstance; override;
    procedure AfterConstruction; override;
    class function NewInstance: TObject; override;
    property RefCount: Integer read FRefCount;
  end;

{ TRefObject }

procedure TRefObject.AfterConstruction;
begin
  InterlockedDecrement(FRefCount);
end;

constructor TRefObject.Create(KeepAlive: Boolean);
begin
  FKeepAlive := KeepAlive;
end;

procedure TRefObject.FreeInstance;
begin
  if (FRefCount = 0) or not FKeepAlive then
    inherited;
  FKeepAlive := False;
end;

class function TRefObject.NewInstance: TObject;
begin
  Result := inherited NewInstance;
  TRefObject(Result).FRefCount := 1;
end;

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

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

function TRefObject._Release: Integer;
begin
  Result := InterlockedDecrement(FRefCount);
  if (Result = 0) and not FKeepAlive then
    Destroy;
end;

getestet mit:

Delphi-Quellcode:

var
  i: IInterface;
  o: TRefObject;
begin
  o := TRefObject.Create;
  o.Free;

  i := TRefObject.Create;
  i := nil;

  o := TRefObject.Create(True);
  i := o;
  i := nil;
  o.Free;

  o := TRefObject.Create(True);
  i := o;
  o.Free;
  i := nil;

  TRefObject.Create.Free;

  i := TRefObject.Create;
end;