delphi WebBrowser1遍历网页中的图片

本文整理自网络，侵删。

 
var
  doc: IHtmlDocument2;
  i: Integer;
  s: String;
begin
  //iFile := WebBrowser1.Document as IPersistFile;
  //iFile.Save('F:\tt.mht', False);
  doc := WebBrowser1.Document as IHtmlDocument2;
  if doc.images.length = 0 then exit;
  Memo1.Clear;
  for i := 0 to doc.images.length-1 do
    with (doc.images.item(i,null) as IHTMLImgElement) do begin
      s := name;
      s := s + ';' + href;
      s := s + ';' + src;
      s := s + ';' + mimeType;
      s := s + ';' + dynsrc;
      s := s + ';' + vrml;
      Memo1.Lines.Add(s);
    end;
end; 
 

相关阅读 >>

Delphi 调用相应程序打开网址

Delphi 计算一个路径相对于另一路径的相对路径

Delphi 获得父目录�c指定级父目录

Delphi 获得idhttp redirect后的url

Delphi获得系统当前时间日期和格式化时间

Delphi idhttp友好错误信息的捕获

Delphi获取系统默认的useragent的方法

Delphi加载驱动的代码演示

settimer函数用法

Delphi webbroker 输出图片的问题

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

转载请注明出处：木庄网络博客 » delphi WebBrowser1遍历网页中的图片