回调Webbrowser中的JS函数

 

最近在实现一个内嵌浏览器的上传组建遇到了回调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]);