最近在实现一个内嵌浏览器的上传组建遇到了回调JS函数的问题。
首先我通过使用Webbrowser中的External对象可以实现JS向Delphi的交互。
通过External向JS暴露一个这样的接口
procedure UploadFile(FileName:String; Callback:Variant);
js通过调用
external.uploadfile('c:\test.txt',function(sentSize,totalSize){alert(sentSize)})
就可以直接触发上传,并实时接受上传的进度。
问题是在Delphi中Variant有如下限制:
var X:Variant;
begin
X:=Something;
X.Callback(1,2); //方法1,可以正常执行;
X(1,2); //方法2,编译都无法通过
end.
如果JS这样传来回调,即传来一个对象,而不是函数:
external.uploadfile('c:\test.txt',{ callback:function(sentSize,totalSize){alert(sentSize)}})
问题就会迎刃而解,按照之前的定义,JS传来的是匿名函数,而在Delphi中就意味着IDispatch或Variant类型,我们没办法直接在后面写括号,当作函数去调用。
我抱着研究的心态翻阅了COM对象的调用文档,得出如下方法用来调用JS传来的函数对象。
procedure DoCallback(Disp:Dispatch; Params: array of Variant);
var
I: Integer;
Ret: Variant;
Args: array of Variant;
DispParams: TDispParams;
begin
SetLength(Args, Length(Params));
for I := 0 to Length(Params) - 1 do
Args[Length(Params) - I - 1] := Params[I];
DispParams.cArgs := Length(Args);
if Length(Args) > 0 then
DispParams.rgvarg := @Args[0]
else
DispParams.rgvarg := nil;
DispParams.cNamedArgs := 0;
DispParams.rgdispidNamedArgs := nil;
Disp.Invoke(0, GUID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD,
DispParams, @Ret, nil, nil);
end;
Disp参数就是JS传来的函数对象,转化成IDispatch接口即可;
调用实例
DoCallback(Disp,[1,2,3]);