|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2011/7/15 23:43:54 |
标题: |
请问 WebBrowser 如何和 Delphi 做交互呢 |
浏览:10776 |
|
加入我的收藏 |
楼主: |
C# 中,C# 调用 WebBrowser 的 JS 函数很简单: webBrowser1.Document.InvokeScript("messageBox", objects);
但是经测试, Delphi 的 WebBrowser 不支持 InvokeScript
同样 JS 可以使用 window.external.MyMessageBox('javascript访问C#代码'); 调用 C# 函数方法代码,C#部分只需加一两句声明。Delphi 中找了很久也没有一个明晰的解决方案,讨论的资料太少了,因此来高手们比较多的盒子论坛来请教各位~
如何在 Delphi 中 WebBrowser 与 Delphi 阻碍交互呢,谢谢
----------------------------------------------
- |
作者: |
|
2011/7/16 9:42:01 |
1楼: |
WebBrowser1.OleObject.document.parentWindow.execScript('函数名()','JavaScript'); //HTML-Js
----------------------------------------------
Delphi,C#,Android企业管理、即时通信、系统优化、方案设计
|
作者: |
|
2011/7/16 10:08:07 |
2楼: |
@qnaqbgss 这个确实厉害,谢谢,如果是JS调用Delphi的方法呢,有时需要相互通知
----------------------------------------------
-
|
作者: |
|
2011/7/16 18:13:58 |
3楼: |
我发现在Delphi中实现太难了,网上也都很多是不了了之的,等待牛人。
----------------------------------------------
-
|
作者: |
ivvn (奔腾的心) |
★☆☆☆☆ |
-
|
普通会员 |
|
2011/7/16 19:19:10 |
4楼: |
http://hi.baidu.com/rarnu/blog/item/b2976f609383eb43eaf8f80f.html
另外InvokeScript效率不算高啊,execute效率不比InvokeScript差
----------------------------------------------
-
|
作者: |
|
2011/7/16 20:35:48 |
5楼: |
这个其实不难,Delphi里调用JS代码如果是IE的话,利用IHTMLDocument这些接口就行!JS里调用Delphi代码和C#一样,通过window.external.... 只不过Delphi首先需要注册并实现一个自动化对象而已!
不过你用TChrome的话,估计就会简单很多! 你可以去这个博客上看这方便的文章! http://www.neugls.info
----------------------------------------------
http://mengxi.me
|
作者: |
|
2011/7/17 16:22:15 |
6楼: |
我用 EmbeddedWB 控件,研究了半天不知道怎么用,GetExternal 函数总出错,官方的例子在 XE 下也问题一堆,TChrome 的话,是 Webkit 那个吗,不是做浏览器,那个太大了
----------------------------------------------
-
|
作者: |
|
2011/7/17 23:48:28 |
7楼: |
EmbeddedWB 介绍的太少了,没有XE、2010、2009的人用 EmbeddedWB 的 GetExternal
----------------------------------------------
-
|
作者: |
|
2011/7/18 18:35:24 |
8楼: |
高手云集的盒子怎么没人知道呢,顶起来。
----------------------------------------------
-
|
作者: |
|
2011/7/18 19:27:26 |
9楼: |
我与楼主同顶,我也需要这个。
请楼主如果有方法,一定要通知我一声
----------------------------------------------
-
|
作者: |
ivvn (奔腾的心) |
★☆☆☆☆ |
-
|
普通会员 |
|
2011/7/19 0:05:41 |
10楼: |
EmbeddedWB 的 GetExternal 写个你看看
----------------------------------------------
-
|
作者: |
ivvn (奔腾的心) |
★☆☆☆☆ |
-
|
普通会员 |
|
2011/7/19 0:06:29 |
11楼: |
ewb调用js就不用我说了吧
----------------------------------------------
-
|
作者: |
|
2011/7/19 14:46:50 |
12楼: |
@ivvn 厉害,不过我发现 ExecScript 可以执行但没返回值,ExecScriptEx 返回的是函数体代码但不是真正返回值,函数也没有被执行。是我这里的问题吗,还是都是这个情况呢
----------------------------------------------
-
|
作者: |
ivvn (奔腾的心) |
★☆☆☆☆ |
-
|
普通会员 |
|
2011/7/19 15:54:32 |
13楼: |
这个好久没搞了,忘记了,貌似可以返回的吧!忘记了
----------------------------------------------
-
|
作者: |
|
2011/7/19 16:41:23 |
14楼: |
@ivvn 是吧,我一直没搞出来,网上也没资料,官方也没说明,郁闷~
----------------------------------------------
-
|
作者: |
|
2011/7/19 19:59:01 |
15楼: |
貌似4楼的那个代码可以实现,我看后面有人留言说成功了。 可惜我看不懂。 楼主可否研究一下
----------------------------------------------
-
|
作者: |
|
2011/7/19 22:11:19 |
16楼: |
其实 EmbeddedWB 应该已经有封装了,就是没有文档。 而且从 Delphi 中 执行 JS 代码也无法获取返回值。
----------------------------------------------
-
|
作者: |
ivvn (奔腾的心) |
★☆☆☆☆ |
-
|
普通会员 |
|
2011/7/20 0:23:25 |
17楼: |
好吧,我试了一下,可以返回的
----------------------------------------------
-
|
作者: |
|
2011/7/20 7:59:25 |
18楼: |
@ivvn 确实出来了,经测试,必须要传一个值,要不然返回函数体。 万飞感谢ivvn高手的辛苦
----------------------------------------------
-
|
作者: |
|
2011/7/20 8:15:28 |
19楼: |
中文传值只有一半,加上 AnsiString 就OK了~
----------------------------------------------
-
|
作者: |
ivvn (奔腾的心) |
★☆☆☆☆ |
-
|
普通会员 |
|
2011/7/20 8:41:57 |
20楼: |
好像是ansistring和utf8string都可以
----------------------------------------------
-
|
作者: |
|
2011/7/21 19:19:46 |
21楼: |
这几天有点忙没研究,似乎确实还是需要用到tlb,EmbeddedWB 似乎没有实现(但是看官方文档介绍貌似实现了,不用建tlb,可惜没有XE的,只有Delphi5的示例),4楼得方法似乎可行,ivvn 的例子非常棒
----------------------------------------------
-
|
作者: |
|
2013/8/13 11:38:49 |
23楼: |
两种都实现过的飘过,自己水平不行不要说 Delphi 控件做不好
----------------------------------------------
-
|
作者: |
|
2013/8/13 13:37:57 |
24楼: |
楼上说的对,自己水平不够然后这种语气来表达 不就是想激别人帮你回答吗? 别人不是傻子
----------------------------------------------
武稀松http://www.raysoftware.cn
|
作者: |
|
2013/10/9 18:08:41 |
27楼: |
深圳蚂蚁搬家http://www.jzfbq.cn 深圳搬家公司http://www.szhqbq.cn 深圳搬家公司http://www.jzfbj.com 广州搬家公司http://www.dzbj369.com 深圳搬家公司http://www.jzfbc.com 东莞搬运公司http://www.szjcbj.cn 深圳装修公司http://www.lgjzfzx.com 深圳南山装修公司http://www.jzfftzx.com 东莞装修公司http://www.dgcxzx.com 广州装修公司http://www.psjzfzx.com 深圳空调安装http://www.snktaz.com 深圳空调清洗http://www.snktaz.net 深圳空调保养http://www.snktby.com 深圳空调加雪种http://www.snktby.net
此帖子包含附件:
大小:12.0K |
----------------------------------------------
-
|
作者: |
|
2013/11/18 3:17:51 |
28楼: |
新乡搬家www.xxmove.net www.mayimove.net www.xxfybj.com www.xxzsbj.com
----------------------------------------------
-
|
作者: |
|
2013/11/18 3:18:48 |
29楼: |
新乡搬家http://www.xxmove.net/ http://www.mayimove.net/ http://www.xxfybj.com/ http://www.xxzsbj.com/
----------------------------------------------
-
|
作者: |
|
2014/4/7 14:40:29 |
30楼: |
濮阳婚纱摄影http://www.pyzmxn.com/ 股票k线战法http://www.huaguetf.com/
----------------------------------------------
-
|
作者: |
|
2014/4/18 1:36:03 |
31楼: |
濮阳搬家http://www.pybjw.com/
----------------------------------------------
-
|
作者: |
|
2014/6/25 8:36:31 |
33楼: |
标记一下
----------------------------------------------
-
|
作者: |
|
2014/10/27 11:32:20 |
35楼: |
为什么不用tidhttpserver?
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
|
作者: |
dadn (dadn) |
▲▲▲△△ |
-
|
普通会员 |
|
2016/3/2 10:32:29 |
36楼: |
22
----------------------------------------------
-
|
作者: |
dadn (dadn) |
▲▲▲△△ |
-
|
普通会员 |
|
2016/3/2 10:33:42 |
37楼: |
2007年12月,世方皮革公司进驻大陆,总部设于佛山,成为华南地区首家装饰面料商;地处全球最大的“家居制造重镇”“家具材料重镇“广东佛山市顺德区龙江镇,是华南地区唯一一家只专注于高档酒店装饰面料的制造商。
公司旗下品牌为“锐龙·芬迪”,供应产品为装饰皮革和装饰布艺,质量达到欧美国家行业标准,同时,品种款式多样,风格独树一格。产品广泛用于酒店、酒吧工程以及家居装修等。
世方坚持“追求共赢”“实现价值”的商业理念,满足客户,成就自我;做到“人无我有,人有我优,人优我特”,致力成为高端装饰面料的优质制造商。
世方经营理念与核心价值观:
高尚的经营道德和诚实的态度是我们信誉的保证。所有员工都应遵守相关的法律法规和国际准则,并以令人信任的方式履行其义务。我们必须在所有的业务活动中坚持诚实和公平的作风,并期待我们的合作伙伴同样如此。
使命------向客户提供优质、可靠、环保和色彩缤纷的绿色产品,装饰美化人类居所,促进行业发展,为所有的利益相关方创造平衡的价值。客户的满意于成功是度量我们工作成绩最重要的标尺。
人本------员工是公司最重要的财富,员工素质及专业知识水平的提高就是公司财富的增长,我们为员工提供主动参与,发挥、拓展知识和潜能的舞台,创造健康、安全和优美的工作环境,使员工的职业能力、薪酬福利与公司同步发展。
创新------创新无限精彩,我们秉承“人无我有,人有我优,人优我特”的创新理念,推进科技进步和科学管理,为产品、服务和过程带来富有意义的变革,不断创新的产品将是公司发展的轨迹。
质量------“追求卓越,创造经典”是我们的理想。我们要培育和实践全面质量的理念,全面抓好产品和服务质量、过程和工作质量、经营管理质量,建立协调一致。融为一体的全面质量管理体系。并确保质量管理体系的有效运转。以一流的产品、合理的价位和优质服务,赢得顾客满意和忠诚,成就我们的事业。
----------------------------------------------
-
|
作者: |
|
2016/3/3 10:27:02 |
39楼: |
这么多广告,什么情况!
----------------------------------------------
my computer
|
作者: |
|
2018/2/4 19:57:14 |
40楼: |
好啊
----------------------------------------------
北京私家侦探 上海搬家公司
|
作者: |
|
2018/2/5 22:59:10 |
41楼: |
建議可以參考一下這個
https://bitbucket.org/freeonterminate/scriptgate
可以直接系統browser連動
----------------------------------------------
-
|
|