我在用TWebBrowser实现对网页的编辑,下面是源码,是在内容中插入源码var unsubscribeStr : string;
ovSelection: OleVariant;
ovTextRange: OleVariant;ovSelection := Edit.OleObject.Document.selection; //获得选择对象
ovSelection.Clear;
ovTextRange := ovSelection.createRange; // create a TextRange from the current selection
ovTextRange.pasteHTML(unsubscribeStr); //插入源码, unsubscribeStr 的内容是 <A href="mailto:*** 因为隐私原因删除电子邮件地址 ***>***</A>以上版本在IE 11以前的版本可以,在win 10刚刚推出时的IE 11版本中也可以,最近将win 10升级到了最新版,IE 11也升级到了最新版,上面的代码就无效了。后来经过测试,pasteHTML函数可以插入 <A href="http://www.***">**</A>,也就是可以插入http, https, ftp, telnet连接,但是无法插入mailto, news连接。 当插入mailto链接时,将会自动mailto链接,只留下了<A>***</A>
ovSelection: OleVariant;
ovTextRange: OleVariant;ovSelection := Edit.OleObject.Document.selection; //获得选择对象
ovSelection.Clear;
ovTextRange := ovSelection.createRange; // create a TextRange from the current selection
ovTextRange.pasteHTML(unsubscribeStr); //插入源码, unsubscribeStr 的内容是 <A href="mailto:*** 因为隐私原因删除电子邮件地址 ***>***</A>以上版本在IE 11以前的版本可以,在win 10刚刚推出时的IE 11版本中也可以,最近将win 10升级到了最新版,IE 11也升级到了最新版,上面的代码就无效了。后来经过测试,pasteHTML函数可以插入 <A href="http://www.***">**</A>,也就是可以插入http, https, ftp, telnet连接,但是无法插入mailto, news连接。 当插入mailto链接时,将会自动mailto链接,只留下了<A>***</A>
解决方案 »
- 为什么ShellExecute,WinExec无法打开外部程序?
- 不同系统的API用法
- 如何使自定义的组件在组件面板上可见或不可见。
- 求:从一个字符串列表(TStrings)中滤除另一TStrings所包含字符串的快速算法!
- 有谁用过DBGridEh?
- 有谁可以告知使用Delphi开发的为人所知的一些软件系统?
- 请问关于输出报表到不同的打印机的问题
- 各位高手,请问如何用TextOutW()在英文Windows中显示中文汉字!
- 怎么让一Form上创建的PageControl中的几个TabSheet都响应...
- 求教:UDP怎么样将服务器接收的TStream转成Byte数组
- 关于delphi连接oracle数据库
- DELPHI有关MSCOMM的问题
IE6和其它版本正常。安全性OR IE11的BUG?