delphi - インターフェイス化されたオブジェクトが別のインターフェイスを実装しているかどうかを確認するにはどうすればよいですか?

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

Sysutils.Supports特別なインターフェイスを確認するために使用する必要があります

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;