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


本文整理自网络,侵删。

 
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;

相关阅读 >>

Delphi消息发送字符串

Delphi编程之显示桌面分辨率

Delphi vcl 的 tpagecontrol 控件,实现对页签的拖动

Delphi tms web core webmemo 横竖滚动条

Delphi 让窗体自适应屏幕显示

Delphi 读取图像文件base64编码加载到image组件显示图片

Delphi 对提交参数编码

Delphi 获取当前目录下的.txt文本不要带后缀扩展名

Delphi 读取全网站链接

Delphi socket connect timeout 套字节链接超时设置

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...