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 递归算法遍历文件

Delphi url取得文件名

Delphi button 实现下拉列表

Delphi 程序员的反攻－－－－打击p2p

Delphi 进程之间传递cmd参数

Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段？

Delphi clipboard 截图后将图片数据复制到剪贴板

Delphi怎样读取excel表的所有字段名

Delphi excel表格数据导入数据库

Delphi 使richedit中的链接可以点击

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

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