Delphi中如何测试OleVariant是否包含接口的复杂条件判断？

本文共计308个文字，预计阅读时间需要2分钟。

通过其自动化界面使用Excel的一个令人抓狂的事情是处理弱类型。返回值可能包含任何不同类型。如何测试调用者返回的变量是否为ExcelRange接口？

function InBank(): boolean; var ExcelAppAsVar: Excel.Application; // 代码逻辑end function

通过其自动化界面使用Excel的一个令人烦恼的事情是弱类型.
返回值可以包含任何不同类型.
如何测试调用者返回的变量是否为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;

(讽刺的是as运算符的工作原理(IDispatch(Caller)作为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?

编辑
谢谢大家,我使用以下方法进行测试,因为Excel将接口和OleStrings混合为可能的返回值.

if VarIsType(Caller, varDispatch) and Supports(Caller, ExcelRange) then begin 我可能会使用 Supports：

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

这解析为@Stijn给出的相同代码,但Supports调用更简洁.