请问如何访问本程序里webbrowser里javascript的函数?
比如点击button1 激活 webbrowser里网页javascript的函数?谢谢

解决方案 »

  1.   

    webbrowser1.OleObject.Document.all.item('ButtonLogin').Click;//引号里改成html里相应的button的名字。
      

  2.   

    可以直接调用javascript函数不? 我不想在里面建立隐藏的button 去点击. 谢谢
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Document : Variant;
      Script,r : Variant;
      ArrLen   : Variant;
    begin
      Document := WebBrowser1.Document;
      Script := Document.Script;
      r := Document.Script.GetArrayItem(Script.arr,0);
      ShowMessage(r.value); 
    end;
    以下是Web页中的内容
    <script language=javascript>
    function GetArrayItem(AArray,ItemIndex){
    return AArray[ItemIndex];
    }
    function SetArrayItem(AArray,ItemIndex,NewValue){
    AArray[ItemIndex] = NewValue;
    }
    </script>
    //arr是Web页中的一个Array.
      

  4.   

    (WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript(strScript,'javascript'