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; 

相关阅读 >>

Delphi datasnap 2009的简单使用

Delphi 字符串加密解密(不支持中文)

Delphi b编码以及bt种子文件分析

Delphi api �c multibytetowidechar的用法

Delphi 下载整个网站图片例子

Delphi读写xml的技巧

Delphi获取本机或者网关的互联网ip地址

Delphi kbmmemtable的简单应用（增删改查示例）

Delphi unidac 连接mdb access 数据库

Delphi jpeg压缩的两种方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取某个页面所有的链接