Wie verwende ich Supports() richtig?

[CarlAshnikov]

Hallo,

ich möchte herausfinden ob mein Objekt ein bestimmtes Interface unterstützt. Ich habe schon diverse Threads hier gelesen und verschiedene Tutorials aber ich sehe den Fehler nicht. Folgendes Minimalbeispiel klappt schon nicht:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

  ITest = Interface
  ['{0EA740D1-F9E6-42CB-9757-68AE8AFCF086}']
  end;

  TTest = Class(TComponent, ITest)
  end;
  
var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  obj: TTest;
  intf: ITest;
  isSupported: Boolean;
begin
  obj := TTest.create(nil);
  isSupported := Supports(obj, ITest, intf);
  assert(isSupported); 
end;

Nehme ich TInterfacedObject gibt es mehrere mögliche Überladungen. Auch mit TObject und eigener Implementierung von Release, AddRef und QueryInterface bekomme ich nie true raus. Kann mich bitte jemand in die richtige Richtung schubsen?

[Uwe Raabe]

Funktioniert hier unter einem aktuellen Delphi (D5 habe ich gerade nicht gestartet) problemlos.

[sirius]

Bei mir is true.

[CarlAshnikov]

Danke euch. Bei mir ging es auch als ich ein neues Projekt angelegt und den Quelltext eingefügt habe
Das selbe Projekt auf einem anderen Rechner hatte nicht funktioniert.
In meinem eigentlichen Projekt, wo ich das Problem herausgezogen habe, liefert es mir immernoch false. Da kann ich aber nicht mal fix alles neu anlegen

[jaenicke]

Bei Delphi 5 sieht Supports ja so aus wie du ja sicher schon geschaut hast:

Delphi-Quellcode:

function Supports(const Instance: IUnknown; const Intf: TGUID; out Inst): Boolean;
begin
  Result := (Instance <> nil) and (Instance.QueryInterface(Intf, Inst) = 0);
end;

function Supports(Instance: TObject; const Intf: TGUID; out Inst): Boolean;
var
  Unk: IUnknown;
begin
  Result := (Instance <> nil) and Instance.GetInterface(IUnknown, Unk) and
    Supports(Unk, Intf, Inst);
end;

Sprich dein Objekt muss IUnknown implementieren. Das ist bei TComponent nicht der Fall.

Bei neueren Delphiversionen ist IUnknown nicht mehr erforderlich, da die entsprechende Funktionalität nun schon in IInterface drin ist.

So geht es, keine Ahnung ob anders besser:

Delphi-Quellcode:

TTest = Class(TComponent, IUnknown, ITest)

Supports(TObject(obj), ITest, intf)

[CarlAshnikov]

Ja das hatte ich gesehen. Aber in einem früheren Stadium hatte ich mein ITest von IUnknown abgeleitet. In einem anderen Thread wurde ja diskutiert, dass TTest das dann nichtmehr kennt, wenn es nicht direkt bei der Deklaration mit dabei steht, daher ging das auch nicht. Vielen Dank für die Aufklärung.

Gruselig ist jetzt natürlich wieso ich das Problem in einem neu angelegten Projekt nicht mehr hatte.

Mein Problem mit InterfacedObject kam vermutlich daher, dass er sich, wenn man das Objekt ohne cast hinein gibt, zwischen beiden Implementierungen nicht entscheiden kann, da InterfacedObject sowohl TObject als auch IUnknown ist.

[jaenicke]

Zitat von CarlAshnikov:

Mein Problem mit InterfacedObject kam vermutlich daher, dass er sich, wenn man das Objekt ohne cast hinein gibt, zwischen beiden Implementierungen nicht entscheiden kann, da InterfacedObject sowohl TObject als auch IUnknown ist.

Da kommt dann ein Fehler beim Kompilieren. Das ist genau der Grund für meinen Cast auf TObject.