如何获取TWebBrowser控件的超级链接

页面导航:首页 > 软件编程 > Delphi > 如何获取TWebBrowser控件的超级链接

如何获取TWebBrowser控件的超级链接

来源: 作者: 时间:2016-02-05 11:47 【

procedure getAllLinks2(WB: TWebBrowser; var InnerText,Links: TStringList);//needs unit as :shDocVw,Classes,MSHTML,variantsvarHtmldoc : IHtmlDocument2;AllLinks

procedure getAllLinks2(WB: TWebBrowser; var InnerText,Links: TStringList);
//needs unit as :shDocVw,Classes,MSHTML,variants
var
Htmldoc     : IHtmlDocument2;
AllLinks    : IElementCollection;
Len,I   : Integer;
//HtmlItem2    : Olevariant;
HtmlItem: IHTMLElement;

begin
 HtmlDoc := WB.document as Ihtmldocument2;
// AllLinks := HtmlDoc.get_links;
 AllLinks := HtmlDoc.links;
 Len := AllLinks.length ;
 Links.BeginUpdate;
 Innertext.BeginUpdate;
 For I :=0 To Len-1 do
 begin
 //HtmlItem2 := AllLinks.item(I,emptyparam);
 HtmlItem := AllLinks.item(I,emptyparam) as IHTMLElement;
 //StringList.Add(Htmlitem2.href);    //this is also a way to get the link


 {if trim(HtmlItem.innerHTML)<> then
 begin
 Links.Add(trim(HtmlItem.ToString));
 InnerText.Add(trim(HtmlItem.innerHTML));
 end;
 }

 if trim(HtmlItem.innerText)<> then
 begin
 Links.Add(trim(HtmlItem.ToString));
 InnerText.Add(trim(HtmlItem.Innertext));
 end;

 end;
 Links.EndUpdate;
 InnerText.EndUpdate;
end;

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <