Delphi TInterfaceList 내에 여러 인터페이스 유형을 저장하고 찾는 방법

Question

특정 인터페이스 유형의 목록을 최종 사용자에게 제공하기 위해 여러 객체의 작은 인터페이스를 단일 TInterfaceList 'store'에 저장하므로 각 인터페이스는 'GetName'기능을 노출하지만 다른 모든 메소드는 해당 인터페이스 유형에 고유합니다. 예를 들어 여기에 두 개의 인터페이스는 다음과 같습니다

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

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

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

나는 하나의 TInterfaceList으로 이러한 인터페이스의 몇 가지 넣고 I (예 : 'IMeasureTemperature') 포인터의 또 다른 목록을 구축하는 특정 인터페이스 유형에 대한 목록을 검색하고 싶습니다 해당 인터페이스를 내보내는 객체에 전달합니다. 이러한 객체의 위치에 대한 가정을하지 않으려 고하며, 일부 객체는 여러 유형의 인터페이스를 내보낼 수 있습니다.

If FList[I] is TMeasureTemperature then .. 

하지만 인터페이스 유형를 닮아 일을하고 싶습니다,이게 가능 : 나는 같은 것을 사용하여 클래스 계층이 할 수 알아? (당신이 초기화되지 메모리를 시도하지 않는 한) 그들은 꽤 안전,

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

Answer 1

그럴 수도 있습니다.

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

나는 Intf에와 ExpectedIntf가 서로 상속 할 때 기능이 동작하는 방법을 잘 모르겠지만,이 Intf에이 ExpectedIntf의 정확히 일치하는 경우에 TRUE를 반환합니다.

예제에서 IMeasureHumidity는 IMeasureTemperature에서 true를 반환하지 않지만 IBase에 어떻게 반응하는지 잘 모르겠습니다. 예비 테스트에 따르면 IBase에서도 FALSE를 반환합니다.

Answer 2

그냥이 같은 지원을 사용하여 전송하려는 인터페이스 유형 :

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; 

Answer 3

당신은 SysUtils와의 Supports 기능을 사용할 수 있으며, 당신은 단지 정확한 목표 변수가 필요합니다