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

2017-03-31 20:46:22来源:CSDN作者:webouse人点击

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;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台