delphi 跟 WebBrowser 中JS 交互思路

 

2016年10月03日 09:12:39 qq_30289577 阅读数：4261

最近才接触delphi  在其他语言中跟WebBrowser 中JS交互很轻松,可在delphi  中交互却并不容易

问题有：

 wb1.OleObject.Document.parentWindow.execScript('setData(1)', 'javascript');

以上代码可以调用网页JS 但delphi 得不到返回的js的返回值。

解决办法：

JS代码：

var result=''; //申明一个全局的返回变量值

function setData(s){
result='OK接收了数据';
}

delphi 代码：

wb1.OleObject.Document.parentWindow.execScript('setData(1)', 'javascript');

wb1.OleObject.Document.parentWindow.result

比如WebBrowser想主动调用delphi 似乎则无可下手。

完美解决方法网上有但问题依然太多。

我想起了10年前接触编程所使用Flash跟JS通信的一个案例。

利用修改网页标题来得到所传递的参数返回值。

但在delphi 中此方法并不是很好。网页标题会出现259的文字长度限制

只能另辟新方法：改变WebBrowser的URL获取当前的URL值。从中获得参数,

可是此方法似乎也是问题多多。也并不完美。行不通还得再换方法。

最终解决方法：监听WebBrowser的onBeforeNavigate2 事件 获得post的数据 这样就能解决 WebBrowser主动调用delphi  函数。而且支持大数据的传递

procedure TForm2.e(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool);
var
  i: integer;
  postStr: string;
  postAry: array of byte;
begin


  if Headers<>'' then
  begin
    postAry := PostData;
    for i := 0 to Length(postAry) do
      postStr := postStr + chr(postAry[i]);
    ShowMessage(postStr);


  end;
end;