请问如何访问本程序里webbrowser里javascript的函数? 比如点击button1 激活 webbrowser里网页javascript的函数? 谢谢
 |
webbrowser1.OleObject.Document.all.item(‘ButtonLogin‘).Click;//引号里改成html里相应的button的名字。
|
|
可以直接调用javascript函数不? 我不想在里面建立隐藏的button 去点击. 谢谢
|
|
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.
|
|
(WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript(strScript,‘javascript‘
|
|
