请问将下面方法转换成delphi的该怎么写,主要是IHTMLWindow2的用法,请用过的朋友帮助。

Seeko0 2005-07-19 09:28:57
请问将下面方法转换成delphi的该怎么写,主要是IHTMLWindow2的用法,请用过的朋友帮助。private void GotoLink(string script)
{

mshtml.IHTMLDocument2 doc=(mshtml.IHTMLDocument2)axWebBrowser2 .Document ;
mshtml.IHTMLWindow2 win =(mshtml.IHTMLWindow2)doc.parentWindow ;

//调用javascript脚本还是很爽的

win.execScript(script,"javascript");
}

...全文
179 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
Seeko0 2005-07-19
  • 打赏
  • 举报
回复
主要问题是先必须确保document对象存在,否则会出错,总之谢谢两位。
TechnoFantasy 2005-07-19
  • 打赏
  • 举报
回复
你引用了MSHTML没有
Seeko0 2005-07-19
  • 打赏
  • 举报
回复
晕忽忽,感谢两位大侠相助
YiYanXiYin 2005-07-19
  • 打赏
  • 举报
回复
var
doc : IHTMLDocument2;
win : IHTMLWindow2;
begin
axWebBrowser2.Navigate('about:blank');//这里必须先加载一个页面(我用空页代替),否则下面会访问非法
doc := axWebBrowser2.Document as IHTMLDocument2;
win := doc.parentWindow as IHTMLWindow2;
win.execScript('alert(1)','javascript');
end;
Seeko0 2005-07-19
  • 打赏
  • 举报
回复
感谢冰儿马甲,实际上代码不能执行。
TechnoFantasy 2005-07-19
  • 打赏
  • 举报
回复
var
doc : IHTMLDocument2;
win : IHTMLWindow2;
begin
doc := axWebBrowser2.Document as IHTMLDocument2;
win := doc.parentWindow as IHTMLWindow2;
win.execScript(script,'javascript');
end;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧