@会网络的老鼠

涂飞平的博客空间

解决了一个问题

9 年前 0

最近在忙于一个技术开发,涉及到了Variant接口的调用,由于采用Variant调用的接口必须是由IDispatch接口继承的,原来开发的时候没有遇到问题,昨天写一个测试接口的时候,却突然出现"Variant method calls not supported",后来查看了源代码,才发现了问题所在。现在逐步解析一下,避免以后大家出现我一样的问题。
所有的通过Variant调用接口都会通过IDispatch的GetIDsOfNames,通过名字来获取ID(至于怎么通过名字来访问,因为编译器为接口中的每个方法生成一个静态的TCallDesc结果,如果你知道某个方法的TCallDesc结构地址,你可以通过这行代码就知道显示的是什么了,ShowMessage(pchar(@PCallDesc($4873f4)^.ArgTypes[1])) ,然后通过ID来调用Invoke方法。在delphi内部有一个包装过程,最后通过的是Variant单元的_DispInvoke方法来转发这个过程,下面是_DispInvoke的核心代码:

if Assigned(VarDispProc) then
VarDispProc(PVariant(LDestPtr), Variant(Source), CallDesc, @Params);
VarDispProc是一个全局的函数指针,在单元初始化的时候是一个错误函数接口赋值给它(这个错误的字符串信息就是臭名昭著的"Variant method calls not supported")。VarDispProc := @_DispInvokeError;开始我以为真正的代码是由delphi编译器自动加入的,毕竟见得太多类似的“魔法”了 但后来发现自己的接口连脚本也运行不了,最后只得在delphi的Source里面搜索VarDispProc了(这里我推荐大家使用“百度硬盘搜索”,真是太方便了),马上发现了端倪:在ComObj单元的初始化中有这么一句:VarDispProc := @VarDispInvoke;
再看看VarDispInvoke代码,正是真正的派发函数 ,在开发的接口单元uses部分加入ComObj,完全OK了,后来自己觉得不爽,写了一个函数,在没有引用ComObj单元的情况下发现也可以很好的运行了o(∩_∩)o...。
下面是我自己实现的一个简单的派发接口,在一般情况下也够用了
 
procedure MyDispatch(Dest: PVariant; const Source: Variant;
CallDesc: PCallDesc; Params: Pointer); cdecl;
var
IDisp:IDispatch;
pDispid,wcharlen:integer;
pwc:pwidechar;
pc:pchar;
begin
if TVarData(Source).VType=varDispatch then
begin
IDisp:=IDispatch(TVarData(Source).VDispatch);
pc:=pchar(@callDesc^.ArgTypes[callDesc^.ArgCount]);
wcharlen:=MultiByteToWideChar(0,0,pc,strlen(pc),nil,0);
pwc:=allocMem(wcharlen*2+2);
MultiByteToWideChar(0,0,pc,strlen(pc),pwc,wcharlen);
IDisp.GetIDsOfNames(GUID_NULL,pointer(@pwc),calldesc^.NamedArgCount,0,@pDispid);
FreeMem(pwc);
IDisp.Invoke(pDispid,GUID_NULL,0,0,Params,nil,nil,nil);
end
else
raise exception.Create('Variant method calls not supported');//我也发出这个语句
end;
在初始化和终止化的时候替换原来的地址就可以了,
initialization
Old:=Variants.VarDispProc;
Variants.VarDispProc:=@MyDispatch;
finalization
Variants.VarDispProc:=Old;
end.
上面代码经过delphi7的测试,没有uses ComObj也可以正常派发接口调用。

编写评论