TGUID von Interface-Instanz herausfinden

[Union]

Das klingt ja alles sehr kompliziert. Ginge es nicht so wie Der Schöne Günther bereits schrieb:

Delphi-Quellcode:

function TMyList.GetInterfaceGUID(const AInterfaceInstance : IMainInterface) : TGUID;
begin
  result := GetTypeData(TypeInfo(AInterfaceInstance))^.Guid;
end;

[TiGü]

Vielen Dank für den bisherigen Input.
Ich ahnte schon, dass es unmöglich und/oder kompliziert sein würde.

Zitat von Union:

Das klingt ja alles sehr kompliziert. Ginge es nicht so wie Der Schöne Günther bereits schrieb:

Delphi-Quellcode:

function TMyList.GetInterfaceGUID(const AInterfaceInstance : IMainInterface) : TGUID;
begin
  result := GetTypeData(TypeInfo(AInterfaceInstance))^.Guid;
end;

Leider zickt da mein XE3: [dcc32 Error] List.pas(51): E2133 TYPEINFO standard function expects a type identifier

Sowas hatte ich nämlich auch schon im Sinn und bin an ähnlichen Fehlermeldungen gescheitert.

@Günther: Wenn man eh den genauen Typ weiß, braucht man auch keine RTTI:

Delphi-Quellcode:

var
  InterfaceGUID : TGUID;
begin
  InterfaceGUID := GetTypeData(TypeInfo(IMainInterface))^.Guid;
  InterfaceGUID := IMainInterface;

Man muss dazu sagen, dass ich von einer C++-DLL diese Instanzen erhalte, es sind also leider keine Delphi-Objekte.
Ich weiß halt nur, dass diese Instanzen das IMainInterface implementieren.
Nun gilt es herauszufinden, welches andere Interface sie noch unterstützen, um ihre Aufgabe zweifelsfrei zu identifizieren (Child1 bis Child3 im Beispiel).

Oder um es etwas konkreter zu machen:

Delphi-Quellcode:

  ICanDrive = interface(IUnknown)
    [SID_DRIVE]
  end;

  IAmACar = interface(IUnknown)
    [SID_CAR]
  end;

  IAmATruck = interface(IUnknown)
    [SID_TRUCK]
  end;

  IAmAMoped = interface(IUnknown)
    [SID_MOPED]
  end;

Ich erhalte ICanDrive-Instanzen und muss schauen ob es nun ein Auto, LKW oder Mofa ist.
Mit if-else-Supports-Check gehts es zwar auch, ist aber halt sehr wartungsanfällig und fehlerbehaftet.

[TiGü]

Nachtrag:
Beim Schreiben des vorigen Beitrages ist mir diese Lösung eingefallen:

Delphi-Quellcode:

const
  MyDriveInterfaces : array[1..3] of TGUID = (SID_CAR, SID_TRUCK, SID_MOPED);

function TMyList.GetInterfaceGUID(const AInterfaceInstance : ICanDrive) : TGUID;
var
  InterfaceGUID: TGUID;
begin
  for InterfaceGUID in MyDriveInterfaces do
  begin
    if Supports(AInterfaceInstance, InterfaceGUID) then
      Result := InterfaceGUID;
  end;
end;

Zwar muss man bei neuen oder veralteten Interfaces mitdenken und das Array anpacken, aber irgendeinen Tod muss man anscheinend immer sterben.

[himitsu]

Damit bekommst du aber nur raus, ob die Instanz in dem Interface das kann, aber nicht ob das auch wirklich grade genau dieser Interfacetyp ist.

Beim Auflisten der RTTI hatte ich mir grade einen Code zusammengebastelt, um die "unterstüttzten" Interfaces einer Interfaceinstanz auszulesen.
(leider fehlen da Interfaces, welche zwar über Supports gefunden werden, aber die eigentlich in einer anderen Objektinstanz sind, welche dort allerdings verlinkt wird)

Aber der Code liefert erstmal fast alle IIDs/GUIDs und diese könnte man man dann via Suppots/QueryInterface abfragen und dann die zurückgegebenen Interfaceinstanzen prüfen.

[TiGü]

Zitat von himitsu:

Damit bekommst du aber nur raus, ob die Instanz in dem Interface das kann, aber nicht ob das auch wirklich grade genau dieser Interfacetyp ist.

Aber ist das nicht das Gleiche?

Also um bei den Beispiel mit den Fahrzeugen zu bleiben, ich weiß das die C++Klassen immer das ICanDrive implementieren.
Zusätzlich dann noch eins, um ihre wahre Funktion zu definieren.

Nie aber implementiert eine dieser C++-Klassen gleichzeitig IAmACar und IAmATruck.

Code:

class Car : public ICanDrive, public IAmACar