上一篇:Delphi发送邮件
下一篇:ADSL拨号控件—DLL版

Delphi保存网页中的图片

发布于: 2012/12/15 14:20:39   |  发布在: Delphi文章   |  点击:

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

  网页中的静态图片加载后会保存在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


TWebBrowser图片网页