मैं कैसे जांचूं कि एक इंटरफेस्ड ऑब्जेक्ट किसी अन्य इंटरफ़ेस को लागू करता है या नहीं?

Question

मैं इन इंटरफेस घोषणाओं है:

IListener = interface 
    procedure HandleEvent(AEvent: TMyEvent); 
end; 

IExtendedListener = interface(IListener) 
    ['{85A3456A-D5E5-4F37-ABDD-A75A7B3B494C}'] // required by GetInterface 
    procedure HandleExtendedEvent(AExtendedEvent: TMyExtendedEvent); 
end; 

कुछ है कि IListener लागू करता है के लिए एक इंटरफेस संदर्भ, मैं कैसे जांच कर सकते हैं कि क्या यह भी लागू करता IExtendedListener को देखते हुए? मैं नीचे कोड कोड का उपयोग कर रहा हूं क्योंकि यह if Listener is IExtendedListener then ... जैसे कुछ करने के लिए एक संकलित समय त्रुटि है।

TSomeClass.Notify(AEvent: TMyExtendedEvent); 
var 
    Listener: IListener; 
    ExtListener: IExtendedListener; 
    Obj: TObject; 
begin 
    for Listener in FListeners do 
    begin 
    // works but smells funny 
    Obj := Listener as TObject; 
    Obj.GetInterface(IExtendedListener, ExtListener); 
    if Assigned(ExtListener) then 
     ExtNotifyee.HandleExtendedEvent(AEvent); 
    end; 
end; 

Answer 1

आप एक विशेष इंटरफ़ेस

uses 
    SysUtils; 

TSomeClass.Notify(AEvent: TMyExtendedEvent); 
var 
    Listener : IListener; 
    ExtListener : IExtendedListener; 
begin 
    for Listener in FListeners do 
    if Supports(Listener, IExtendedListener, ExtListener) then 
     ExtListener.HandleExtendedEvent(AEvent); 
end;