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 如何从dll中检索导出函数的列表

Delphi tms web core 复制内容到剪切板

Delphi 数组定义

Delphi线程的创建、挂起、激活与终止

Delphi 隐藏任务栏程序，取消自动对齐和网格对齐

Delphi链接自己的主页和邮件

Delphi文本文件的写操作

Delphi 操作系统时间与web标准时间校正

Delphi 根据数据库结构生成treeview

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

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