delphi 获取某个页面所有的链接


USER  MSHTML
procedure TfrmWebEmail.btn5Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
  Len: Integer;
  item: OleVariant;
  all: IHTMLElementCollection;
  I: Integer;
begin
  Doc :=  ebdwbWeb.Document as  IHTMLDocument2;
  all := Doc.links;
  Len := all.length;
  for I :=  0 to Len -1 do
  begin
   item := all.item(I, EmptyParam);
   mm1.Lines.Add(item.href) ;
  end;
end;
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678