如何得到一个页面下的所有超链接？

Question

用webbrowser可以实现吗？或者用别的方法

Answer 1

请参考这个：
http://community.csdn.net/Expert/topic/4201/4201284.xml?temp=.5381281

Answer 2

//引用单元OleCtrls, SHDocVw, MSHTML
//在窗体上放一个TWebBrowser，当TWebBrowser下载完网页后用以下的代码就可以获得所有的连接地址和连接文本
var
  sDoc: IHTMLDocument2;
  sLinks: IHTMLElementCollection;
  sItem: OleVariant;
  iLen: integer;
  sLinkName,sLink: WideString;
begin
  sDoc := WebBrowser.Document as IHTMLDocument2;
  sLinks := sDoc.Links;
  iLen := sLinks.Length;
  for iLoop := 0 to iLen - 1 do
  begin
    sItem := sLinks.item(iLoop, varEmpty);
    sLink := Trim(sItem.Href);                    //链接地址
    sLinkName := Trim(sItem.InnerText);           //链接标题
  end;
end;