请问如何访问本程序里webbrowser里javascript的函数? 谢谢

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

谢谢

	erhan	06年9月9日

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

	bitbugs	06年9月9日

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

	lovejlj	06年9月11日

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.

	suchenming	06年9月11日

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