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

最新推荐文章于 2022-05-24 14:04:48 发布

Microblue

最新推荐文章于 2022-05-24 14:04:48 发布

阅读量2.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： DELPHI VS PASCAL 文章标签： delphi integer user

本文链接：https://blog.youkuaiyun.com/yanjiaye520/article/details/7987650

DELPHI VS PASCAL 专栏收录该内容

88 篇文章

订阅专栏

该程序段展示了如何使用Delphi通过HTML文档对象模型（DOM）来获取网页中的所有链接。具体步骤包括获取Web文档对象、读取其中的链接集合，并逐个输出每个链接的URL。这段代码适用于需要抓取页面链接的Web爬虫或浏览器扩展等应用场合。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;