Jak przechowywać i lokalizować wiele typów interfejsów w Delphi TInterfaceList

Question

Przechowuję małe interfejsy z szeregu obiektów w jednym sklepie "TInterfaceList" z zamiarem zaoferowania listy konkretnych typów interfejsu dla użytkownika końcowego, tak aby interfejs wyświetli funkcję "GetName", ale wszystkie inne metody są unikalne dla tego typu interfejsu. Na przykład tutaj są dwa interfejsy:

IBase = interface 
    //---------------------------------------- 
    function GetName : string; 
    //---------------------------------------- 
    end; 

    IMeasureTemperature = interface(IBase) 
    //------------------------------------ 
    function MeasureTemperature : double; 
    //---------------------------------------- 
    end; 

    IMeasureHumidity = interface(IBase) 
    //---------------------------------------- 
    function MeasureHumidity: double; 
    //---------------------------------------- 
    end; 

umieścić kilka z tych interfejsów w jednym TInterfaceList a następnie chciałbym zeskanować listę dla określonego typu interfejsu (np „IMeasureTemperature”) buduje kolejną listę wskaźników do obiektów eksportujących te interfejsy. Nie chcę nic przypuszczać o lokalizacji tych obiektów, niektóre mogą eksportować więcej niż jeden typ interfejsu. Wiem, że mogę to zrobić z wykorzystaniem hierarchii klasowej coś takiego:

If FList[I] is TMeasureTemperature then .. 

ale chciałbym coś zrobić simliar z typem interfejsu, jest to możliwe?

Answer 1

Sądzę, że to może zaspokoić Twoje potrzeby.

function InterfaceRefIsInterface(Intf : IUnknown; ExpectedIntf : TGUID) : Boolean; 
var vReference : IUnknown; 
begin 
    if Supports(Intf, ExpectedIntf, vReference) then 
    Result := Intf = vReference 
    else 
    Result := False; 
end; 

Nie jestem pewien, jak funkcja będzie zachowywać się podczas INTF i ExpectedIntf dziedziczy się od siebie, ale to wróci TRUE w przypadku INTF jest dokładne dopasowanie ExpectedIntf.

Na przykład exepleHumidity nie zwróci wartości true w IMeasureTemperature, ale nie jestem pewien, jak zareaguje na IBase. Według wstępnych testów zwróci również FALSE na IBase.

Answer 2

Wystarczy użyć podpory, tak:

var 
    oMTIntf: IMeasureTemperature; 
... 
    If Supports(FList[I], IMeasureTemperature, oMTIntf) then .. 

Answer 3

może korzystać z funkcji w sysutils Supports, są one dość bezpieczne (chyba spróbować je na pamięć unitialized) i trzeba tylko zmienną docelową dokładna typ interfejsu, który próbujesz przesłać:

procedure DoSomethingInList(AList: IInterfaceList;); 
var 
    i: Integer; 
    liItem: IInterface; 
    liMeasureTemp: IMeasureTemperature; 
    liMeasureHumi: IMeasureHumidity; 
begin 
    AList.Lock; 
    try 
    for i := 0 to AList.Count - 1 do 
    begin 
     liItem := AList[i]; 
     if Supports(liItem, IMeasureTemperature, liMeasureTemp) then 
     //... liMeasureTemp.MeasureTemperature ... 
     else if Supports(liItem, IMeasureHumidity, liMeasureHumi) then 
     //... liMeasureHumi.MeasureHumidity ... 
     else 
     //... 
    end; 
    finally 
    AList.Unlock; 
    end; 
end;