如何单击JavaScript按钮WebBrowser Delphi

时间:2014-03-03 22:06:21

标签: javascript delphi button click twebbrowser

<tr>
  <td colspan="2" style="text-align: center;">
    <a href="javascript:start_form_submit('SUBMIT');">
      <imgsrc="graphics/proceed_confirm.gif" width="251" height="27" alt="Proceed to Confirmation" border="0">
    </a>
  </td>
</tr>

如何使用delphi单击此按钮?

2 个答案:

答案 0 :(得分:3)

从严格意义上讲,这不是一个按钮。它只是一个可点击的超链接内的图像。

在任何情况下,HTML元素都没有指定nameid,因此您可以为自己的工作做好准备。您必须首先查询WebBrowser.Document IHTMLDocument2接口,然后根据需要浏览浏览器的DOM接口,查找您感兴趣的<a>元素,然后调用它{ {1}}方法。

答案 1 :(得分:1)

感谢兄弟,我正在使用

功能

procedure ExecuteScript(doc: IHTMLDocument2; script: string; language: string);
begin
  if doc <> nil then
  begin
    if doc.parentWindow <> nil then
      doc.parentWindow.ExecScript(script, Olevariant(language)) ;
  end;
end;

并使用button1

script := 'javascript:start_form_submit("SUBMIT");';
ExecuteScript(webbrowser1.Document as IHTMLDocument2, script, 'javascript');