怎样把一个网页的全部链接列表出来呢？？

Question

如何像Fastbrowser一样，把当前网页的全部链接列表出来，大家帮帮忙，在线等待中、、、、、、、、、、

Answer 1

最容易的方法是,用个webbrowser控件把这个文件浏览一下，注意get_links就是获得所有的链接
var
doc: IHTMLDocument2;
all: IHTMLElementCollection;
item: OleVariant;
len, i: integer;
begin
  doc := wb.Document as IHTMLDocument2;
  all := doc.Get_links; //doc.Links亦可
      len := all.length;
      for i := 0 to len - 1 do
      begin
        item := all.item(i, varempty); //EmpryParam亦可
        listitem := OpenAllLinkForm.ListView_link.Items.Add;
        listitem.Caption := item.href;
        listitem.SubItems.Add(item.innertext);
        end;
      end; //end for
end; 

Answer 2

doc := IHtmlDocument2(ie.Document);
  for i := 0 to doc.links.length - 1 do
  begin
    v := doc.links.item(i,0);
  end;