请问如何访问本程序里webbrowser里javascript的函数? 谢谢 请问如何访问本程序里webbrowser里javascript的函数?比如点击button1 激活 webbrowser里网页javascript的函数?谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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' 如何ImageEnDBView中的内容,用代码实现. 我在一个软件中看到他的版本信息中包含了作者:×××..这个是怎么弄的啊。 请问如何做漂亮的仿XP界面? ★★★《资料收集器》开源,详细下载地址请进★★★ 有谁知道有什么第三方控件可以读取BIOS的信息的控件!谢谢! 一个简单的问题 控件大虾请进? 高新技术问题? 提供一个用Delphi编写屏幕保护的程序?谢谢! 大家来看!我发的帖子明明有回复你第一次看帖子却看不到任何有关别人的回复,只有你回复以后才能看到别人的回复,嘿嘿……CSDN就是有意思…… 过分迷恋Delphi = 死 没分提问了,哪位大哥给捐赠点.感谢 多个线程调用问题
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.