如何通过Delphi测试OleVariant变量是否嵌入接口对象？

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

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

javascriptfunction InBank(): boolean { var ExcelAppAsVar: any; // 假设这里有一些代码用于获取Excel应用程序实例 // ...

// 检查返回值是否为ExcelRange类型 return typeof ExcelAppAsVar==='object' && ExcelAppAsVar !==null && 'getRange' in ExcelAppAsVar;}

通过其自动化界面使用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调用更简洁.