Bir Delphi içinde birden çok arabirim türü saklamak ve bulmak için TInterfaceList

Question

Son kullanıcı için belirli arabirim türlerinin listesini sunma amacıyla, bir dizi nesneden küçük arabirimleri tek bir TInterfaceList 'store' içine saklıyorum. Arabirim bir 'GetName' işlevini gösterecektir, ancak diğer tüm yöntemler bu arabirim türüne özgüdür. Örneğin burada iki arayüzleri:

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

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

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

Ben tek TInterfaceList içine bu ara yüzlerin birkaç koyun ve sonra ben (örneğin 'IMeasureTemperature') işaretçileri başka bir liste bina belirli bir arabirim türü için listeyi taramak istiyorum Bu arayüzleri ihraç eden nesnelere. Bu nesnelerin yerleri hakkında herhangi bir varsayım yapmak istemiyorum, bazıları birden fazla arayüz türünü ihraç edebilir.

If FList[I] is TMeasureTemperature then .. 

ancak bir arayüz türüyle simliar bir şey yapmak istiyorum, bu mümkün mü: Ben gibi bir şey kullanarak bir sınıf hiyerarşisi ile bu yapabileceğini biliyor musunuz? (Eğer unitialized bellek bunları deneyin sürece) onlar oldukça güvenlidir,

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

Answer 1

Ben senin ihtiyaçlarını karşılamak olabilir sanırım: arayüz türü yayın yapmak için çalışıyoruz.

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

Ben intf ve ExpectedIntf birbirinden devralan zaman fonksiyonu nasıl davranacağını emin değilim, ama bu intf ExpectedIntf tam bir eşleşme durumunda DOĞRU dönecektir.

Örnek olarak, IMeasureHumidity, IMeasureTemperature'da true olarak geri dönmeyecektir, ancak IBase'e nasıl tepki vereceğinden emin değilim. Ön testlere göre, aynı zamanda IBase üzerinde FALSE döndürecektir.

Answer 2

Bunun gibi, desteler kullanmak

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

Sen SysUtils içinde Supports işlevini kullanabilir ve yalnızca tam bir hedef değişkeni gerekir: