Supports ohne out Parameter

[Thom]

Ich verstehe nicht, weshalb Dir alle raten, nicht TInterfacedObject zu verwenden... Ändere einfach

Delphi-Quellcode:

var
  a: TFirstSecond;

in

Delphi-Quellcode:

var
  a: IInterface;

und alles funktioniert.

[Uwe Raabe]

Zitat von Thom:

Ich verstehe nicht, weshalb Dir alle raten, nicht TInterfacedObject zu verwenden... Ändere einfach

Delphi-Quellcode:

var
  a: TFirstSecond;

in

Delphi-Quellcode:

var
  a: IInterface;

und alles funktioniert.

Dieses Vorgehen ist aber nicht in jedem Fall anwendbar. Man muss sich schon entscheiden, ob man nur mit Interface-Referenzen und Referenzzählung arbeiten will, oder ob man ohne Referenzzählung selber die Objekt-Instanzen verwalten will. Für beide Vorgehen gibt es je nach Anwendungsfall gute Gründe. Man muss dann nur die passende Elternklasse verwenden.

[Uwe Raabe]

War im Beispiel der falsche Overload der Funktion - der richtige enthält übrigens eine entsprechende Warnung:

Delphi-Quellcode:

function Supports(const Instance: TObject; const IID: TGUID): Boolean;
var
  Temp: IInterface;
begin
  // NOTE: Calling this overload on a ref-counted object that has REFCOUNT=0
  // will result in it being freed upon exit from this routine.
  Result := Supports(Instance, IID, Temp);
end;

[pflaume]

Zitat von Uwe Raabe:

War im Beispiel der falsche Overload der Funktion - der richtige enthält übrigens eine entsprechende Warnung:

Delphi-Quellcode:

function Supports(const Instance: TObject; const IID: TGUID): Boolean;
var
  Temp: IInterface;
begin
  // NOTE: Calling this overload on a ref-counted object that has REFCOUNT=0
  // will result in it being freed upon exit from this routine.
  Result := Supports(Instance, IID, Temp);
end;

Dieser Kommentar fehlt bei mir. Ich habe im Moment auch keine Version außer 2009 zur Hand.

[Uwe Raabe]

Zitat von pflaume:

Dieser Kommentar fehlt bei mir. Ich habe im Moment auch keine Version außer 2009 zur Hand.

Der Kommentar ist offenbar erst seit XE enthalten.

[shmia]

Teste mal das (Jugend forscht ):

Delphi-Quellcode:

if Assigned(TFirstSecond.GetInterfaceEntry(IFirst)) then
    Writeln('TFirstSecond supports Interface IFirst');

if Assigned(TFirstSecond.GetInterfaceEntry(ISecond)) then
    Writeln('TFirstSecond supports Interface ISecond');

[Uwe Raabe]

Zitat von shmia:

Teste mal das (Jugend forscht ):

Delphi-Quellcode:

if Assigned(TFirstSecond.GetInterfaceEntry(IFirst)) then
    Writeln('TFirstSecond supports Interface IFirst');

if Assigned(TFirstSecond.GetInterfaceEntry(ISecond)) then
    Writeln('TFirstSecond supports Interface ISecond');

Ja, und?

[Thom]

Zitat von Uwe Raabe:

Dieses Vorgehen ist aber nicht in jedem Fall anwendbar. Man muss sich schon entscheiden, ob man nur mit Interface-Referenzen und Referenzzählung arbeiten will, oder ob man ohne Referenzzählung selber die Objekt-Instanzen verwalten will. Für beide Vorgehen gibt es je nach Anwendungsfall gute Gründe. Man muss dann nur die passende Elternklasse verwenden.

Selbstverständlich. Aber was hat das mit der Ausgangsfrage zu tun? Es ging darin nicht um "in jedem Fall", sondern das ganz konkrete Beispiel. Und da ist nun mal die Verwendung des Variablentyps IInterface, das vom Objekt TInterfacedObject eingeführt wird, die korrekte Lösung.