請問如何訪問本程序里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‘
|
|
