Interface referenzen auf gleichheit prüfen?

[negaH]

Ich vermute mal das du in deinem Konzept einen Denkfehler hast.
Verschiedene Objecte können mehrere verschiedene Interfaces implementieren. Zb.

Delphi-Quellcode:

  TClass_AB = class(TInterfacedObject, IInterface_A, IInterface_B)
  end;

  TClass_AC = class(TInterfacedObject, IInterface_A, IInterface_C)
  end;

  TClass_BC = class(TInterfacedObject, IInterface_B, IInterface_C)
  end;

Nun hast du mehrere allozierte Interfaces obiger Typen und möchtest wissen ob dieses das Interface A verwenden. Das geht indem man GUIDs benutzt, denoch könnten dann "gleiche" Objecte die das IInterface_A implementieren der Klassen TClass_AB und TClass_AC angehören, d.h. der Implementor des Interfaces ist denoch nicht gleich.

Willst du aber nun überprüfen ob die Implementierenden Klassen identisch sind dann musst du selber eine Schnittstelle dafür programmieren. Dazu könntest du das Delphi Klassen Konzept benutzen, etwa so:

Delphi-Quellcode:

type
  IImplementor = interface
    ['0896943-093893-498574'] // <- deine GUID hier eintragen !! in IDE [STRG+ALT+G]
    function Object: TObject;
  end;

  TClass_AB = class(TInterfacedObject, IImplementor, IInterface_A, IInterface_B)
  end;
  
  TClass_AC = class(TInteefacedObject, IImplementor, IInterfase_A, IInterface_C)
  end;

 
function TClass_AB.Object: TObject;
begin
//  Result := Self;  // <- da EAX schon Self enthält, und EAX das Result ist reicht eine leere Funktion hier aus !!
end; 

function Compare(const A,B: IInterface): Boolean;
var
  AI,BI: IImpelementor;
begin
  Result := (A.QueryInterface(AI, IImplementor) = H_OK) and
            (B.QueryInterface(BI, IImplementor) = H_OK) and
            (AI.Object.ClassType = BI.Object.ClassType);
end;

Gruß Hagen