Как проверить, содержит ли OleVariant интерфейс

Question

Одной из неприятных вещей при работе с Excel через интерфейс автоматизации является слабый набор.
Возвращаемое значение может содержать что угодно разных типов.
Как проверить, соответствует ли вариант, возвращаемый caller интерфейсом ExcelRange?

function TAddInModule.InBank: boolean; 
var 
    ExcelAppAsVariant: OleVariant; 
    test: string; 
    Caller: OleVariant; 
begin //Exception handling omitted for brevity. 
    Result:= false; 
    ExcelAppAsVariant:= ExcelApp.Application; 
    Caller:= ExcelApp.Application.Caller[EmptyParam, 0]; 
    if IDispatch(Caller) is ExcelRange then begin //E2015 Operator not applicable 
    Result:= lowercase(Caller.Parent.Name) = 'bank' 
    end; 
end; 

(достаточно Strangly оператор as работает (IDispatch(Caller) as ExcelRange).Parent; компилируется нормально).

Следующий код работает, но кажется слишком многословным:

if VarIsType(Caller, varDispatch) then begin 
    IUnknown(Caller).QueryInterface(ExcelRange, ICaller) 
    if Assigned(ICaller) then ICaller...... 

Там также нет встроенной функции VarIsInterface(Variant, Interface).
Как проверить, что OleVariant содержит данный интерфейс?

Смотрите также: How to cast OleVariant to IDispatch derived?

EDIT
Спасибо всем, я использовал следующие сделать тестирование, потому что Excel смешивает интерфейсы и OleStrings в качестве возможных возвращаемых значений.

if VarIsType(Caller, varDispatch) and Supports(Caller, ExcelRange) then begin 

Answer 1

я бы, вероятно, использовать Supports для этого:

if Supports(Caller, ExcelRange) then 
    .... 

Это решает тот же код, что и @Stijn, но вызов Supports является скорее более кратким.

Answer 2

код действительно, regretably, многословен, но близко к тому, что я обычно использую:

if IUnknown(Caller).QueryInterface(ExcelRange, ICaller)=S_OK then 

Answer 3

System.Variants блок имеет VarSupports() функции для тестирования/извлечения интерфейса из (Ole)Variant:

function VarSupports(const V: Variant; const IID: TGUID; out Intf): Boolean; overload; 
function VarSupports(const V: Variant; const IID: TGUID): Boolean; overload; 

Например:

Caller := ExcelApp.Application.Caller[EmptyParam, 0]; 
if VarSupports(Caller, ExcelRange) then 
    Result := LowerCase(Caller.Parent.Name) = 'bank'; 

if VarSupports(Caller, ExcelRange, ICaller) then 
    ICaller.DoSomething;