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

procedure getAllLinks2(WB: TWebBrowser; var InnerText,Links: TStringList);
//needs unit as :shDocVw,Classes,MSHTML,variants
var
Htmldoc     : IHtmlDocument2;
AllLinks    : IhtmlElementCollection;
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;

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18