Question

请教：如何在Delphi 的 Webbrowser 里 调用或执行 JS 带参 函数或过程？

<div name="dyjc1" val="50E13DA0-728B-455E-89EC-18B71477C47E" class="jcztmr dj_zx_dy_jc_mr xhx djwwc" onclick="zbxxcx("50E13DA0-728B-455E-89EC-18B71477C47E")">HXD1C-6060</div>
上面是我截取的部分代码，想执行 zbxxcx("50E13DA0-728B-455E-89EC-18B71477C47E") 如何实现呀

Answer 1

在 delphi 里，使用 WebBrowser 执行 js 代码，参阅以下示例：

procedure TForm1.btn1Click(Sender: TObject);  
var  
  doc:olevariant;  
  str:string;  
begin  
    doc:=wb1.Document;  
    //执行js  
    wb1.OleObject.document.parentWindow.execScript('zbxxcx("50E13DA0-728B-455E-89EC-18B71477C47E")','JavaScript');  
end;