Win 10下 Twebbrowser无法通过pasteHTML插入Mailto 链接

最新推荐文章于 2017-06-12 11:51:50 发布

李正己

最新推荐文章于 2017-06-12 11:51:50 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi TWebBrowser 文章标签： TWebBrowser

本文链接：https://blog.youkuaiyun.com/webouse/article/details/68924746

Delphi 同时被 2 个专栏收录

53 篇文章

订阅专栏

TWebBrowser

4 篇文章

订阅专栏

本文介绍了一个关于IE11中使用pasteHTML函数无法正确插入mailto链接的问题。该问题在Win10某些版本中出现，表现为mailto链接被自动移除。文中提供了一种临时解决方案，即先插入一个http链接再进行替换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var unsubscribeStr : string;
    ovSelection: OleVariant;
    innerDom, ovTextRange, nnode: 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>

以上代码在win 10以前的操作系统都可以正常使用，而且在win 10的早期版本也能正常使用，后来经过测试，pasteHTML函数可以插入 <A href="http://www.***">**</A>，也就是可以插入http, https, ftp, telnet连接，但是无法插入mailto, news连接。当插入mailto链接时，将会自动mailto链接，只留下了<A>***</A>

微软说是浏览器设置的问题，官方解释 https://social.msdn.microsoft.com/Forums/zh-CN/330a9484-80f3-416a-9b86-aea5e27fb430/ie-11pastehtmlmailto?forum=267

但经验证，跟浏览器安全无关。

临时的解决方法，在插入的时候不插入mailto链接，随便插入一个链接，例如<A href="http://unsubscribetag1and1eadww">***</a>，最后修改源码将 http://unsubscribetag1and1替换成mailto.