Delphi 从 TWebBrowser中获得当前输入处的链接

最新推荐文章于 2020-09-11 23:57:55 发布

原创最新推荐文章于 2020-09-11 23:57:55 发布 · 826 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#TWebBrowser #delphi

Delphi 同时被 2 个专栏收录

53 篇文章

订阅专栏

TWebBrowser

4 篇文章

订阅专栏

本文提供了一个使用VBA处理HTML中链接元素的示例代码，通过选取当前选中的文本范围并判断其父元素是否为链接标签来进行进一步操作。

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

var unsubscribeStr : string;
    ovSelection: OleVariant;
    innerDom, ovTextRange, nnode: OleVariant;
begin
       ovSelection := Edit.doc.selection; //获得选择对象
       ovTextRange := ovSelection.createRange; // create a TextRange from the current selection
       if SameText(ovTextRange.parentElement.tagName, 'a') then
       begin
         //是链接，在这里进行处理
         ovTextRange.parentElement.outerHtml;  //链接的完整 HTML 
       end;
end;