Delphi保存网页中的图片

WEBBrowser已经打开了URL 
    V     =   WEBBrowser.Document.body.createControlRange(); 
    V1   =   WEBBrowser.Document.images.Item(0,0);                 //这里是一个图片 <img   ...> 
    V.add(V1); 
    V.execCommand('SaveAs'   ,   False   ,   'E:\dd.bmp');         //最后这里保存不了图片
如果用V.execCommand('Copy');可以把该图片复制到粘贴板上。 

 

１.　获取网页中的静态图片

　　网页中的静态图片加载后会保存在IE缓存区内，所以只要获取图片URL在IE缓存区中对应的本地文件名，就可以使用Win32API函数：CopyFile拷贝到指定的文件名就可以了，获取URL对应本地文件名的函数如下：

uses WinInet

 function GetLocalFileNameFromIECache(url:string; var LocalFileName:string):DWORD;
var
  D: Cardinal;
  T: PInternetCacheEntryInfo;
begin
  result := S_OK;
  D := 0;
  T:=nil;
  GetUrlCacheEntryInfo(PChar(Url), T^, D);
  Getmem(T, D);
  try
    if (GetUrlCacheEntryInfo(PChar(Url), T^, D)) then
      LocalFileName:=T^.lpszLocalFileName
    else
      Result := GetLastError;
  finally
    Freemem(T, D);
  end;
end;

2. 获取网页中的动态图片


    网页中动态生成的图片有些并不保存在IE缓存区中，这种图片只能使用TWebBrowser控件获取，下面的代码将网页中的第一幅图片复制到Windows剪贴板，并用Image1控件显示：




uses MsHtml, ActiveX, ClipBrd


procedure TForm1.Button1Click(Sender: TObject);
var
  iIndex: Integer;
  Rang:IHTMLControlRange;
  ImgSel: IHTMLControlElement;
begin
  iIndex := 0; //所需的图片在网页中出现的顺序
  Rang := ((IHTMLDocument2(WebBrowser1.Document).body as HTMLBody).createControlRange) as IHTMLControlRange;
  ImgSel := IHTMLDocument2(WebBrowser1.Document).images.item(iIndex,EmptyParam)as IHTMLControlElement;
  Rang.add(ImgSel);
  Rang.execCommand('Copy', False, 0);
  Image1.Picture.Assign(ClipBoard);
end;


initialization
  OleInitialize(nil);
finalization
  OleUninitialize;


end.



3. 将Image1控件中的图像保存为BMP文件




procedure TForm1.Button2Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  if not SaveDialog1.Execute then Exit;
  bmp := TBitmap.Create;
  bmp.Width := Image1.Width;
  bmp.Height := Image1.Height;
  bmp.Canvas.Draw(0, 0, Image1.Picture.Graphic);
  bmp.SaveToFile(SaveDialog1.FileName);
  bmp.Free;
end