求助：有没有简洁的方法获取网页中的所有链接？？

Question

有没有一种简洁的方法，像Fast Browser一样能把一个网页的所有链接分析出来？？？

Answer 1

对于网页中的连接，大多数都是如下格式<a href='网址'>连接名</a>你可以分析格式，得到所有的连接。

Answer 2

是用WebBrowser吗？是的话见下面例子：
uses mshtml;
procedure TForm1.Button1Click(Sender: TObject);
var
  elem: IHTMLElement;
  coll: IHTMLElementCollection;
  i: integer;
  url: string;
begin
  coll := (WebBrowser1.Document as IHTMLDocument2).all;
  coll := (coll.tags('a') as IHTMLElementCollection);
  for i := 0 to coll.Length - 1 do begin  // 循环取出每个url
    elem := (coll.item(i, 0) as IHTMLElement);
    url := Trim(string(elem.getAttribute(WideString('href'), 0)));
    ShowMessage(url);
  end;
end;