Cách lưu trữ và định vị nhiều loại giao diện trong một Delphi TInterfaceList

Question

Tôi đang lưu trữ các giao diện nhỏ từ một loạt các đối tượng vào một cửa hàng 'TInterfaceList' duy nhất với mục đích cung cấp danh sách các loại giao diện cụ thể cho người dùng cuối. giao diện sẽ hiển thị hàm 'GetName' nhưng tất cả các phương thức khác là duy nhất cho loại giao diện đó. Ví dụ ở đây là hai giao diện:

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

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

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

tôi đặt một số các giao diện vào một TInterfaceList đơn và sau đó tôi muốn quét danh sách cho một loại giao diện cụ thể (ví dụ như 'IMeasureTemperature') xây dựng một danh sách các con trỏ cho các đối tượng xuất các giao diện đó. Tôi muốn không đưa ra giả định về vị trí của các đối tượng đó, một số có thể xuất nhiều hơn một loại giao diện. Tôi biết tôi có thể làm điều này với một hệ thống phân cấp lớp bằng cách sử dụng một cái gì đó như:

If FList[I] is TMeasureTemperature then .. 

nhưng tôi muốn làm điều gì đó tương tự với loại giao diện, Có thể không?

Answer 1

Tôi đoán rằng có thể đáp ứng nhu cầu của bạn.

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

Tôi không chắc chắn bao hàm sẽ cư xử khi INTF và ExpectedIntf được thừa hưởng từ người khác, nhưng điều này sẽ trả về TRUE trong trường hợp INTF là một kết hợp chính xác của ExpectedIntf.

Trong ví dụ của bạn, IMeasureHumidity sẽ không trả lại đúng trên IMeasureTemperature, nhưng tôi không chắc nó sẽ phản ứng như thế nào với IBase. Theo thử nghiệm sơ bộ, nó cũng sẽ trả về FALSE trên IBase.

Answer 2

Chỉ cần sử dụng Hỗ trợ, như thế này:

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

Answer 3

Bạn có thể sử dụng Supports chức năng trong SysUtils, họ là khá an toàn (trừ khi bạn thử chúng trên bộ nhớ unitialized) và bạn chỉ cần một biến mục tiêu của chính xác loại giao diện bạn cố gắng truyền tới:

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;