如何保存网页中所有的图片

Question

在打开一个网页后如何能够一次性将所有的图片保存于硬盘上,请指教

Answer 1

var
  FDoc:IHTMLDocument2;
  FImg:IHTMLImgElement;
  FWebBrowser:IWebbrowser2;
  FStrings:TStrings;
  i:integer;
begin
  //如FWebBrowser:=WebBrowser1.DefaultInterface as IWebBrowser2;
  FDoc:=FWebbrowser.Document as IHTMLDocument2;
  if assigned(FDoc)then
  begin
    for i:=0 to FDoc.images.length -1 do
    begin
      FImg:=FDoc.images.item(i,0) as IHTMLImgElement;
        //遍历获得FImg.src;
      FImg.
    end;
  end;
end;利用TClientSocket和TThread来进行多线程下载,速度绝对不差!