如何遍历网页内图片

     以前做邮件客户端时，收发Html邮件情况下需要将内嵌图片枚举，当时Google了一遍，没有找到可用的资料，都是些不全或错误代码。为了赶工，只有采用笨办法：通过查找网页源码的办法枚举内嵌图片。
     后来，查了一阵MSDN啃了其中干巴巴的英文，并度了N次，找到了想要的方法。
在窗体上放WebBrowser、Memo、按钮，下面是源码，如果有什么疑问请查阅MSDN。
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;