１.　獲取網(wǎng)頁中的靜態(tài)圖片

　　網(wǎng)頁中的靜態(tài)圖片加載后會保存在IE緩存區(qū)內(nèi)，所以只要獲取圖片URL在IE緩存區(qū)中對應的本地文件名，就可以使用Win32API函數(shù)：CopyFile拷貝到指定的文件名就可以了，獲取URL對應本地文件名的函數(shù)如下：

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. 獲取網(wǎng)頁中的動態(tài)圖片

??? 網(wǎng)頁中動態(tài)生成的圖片有些并不保存在IE緩存區(qū)中，這種圖片只能使用TWebBrowser控件獲取，下面的代碼將網(wǎng)頁中的第一幅圖片復制到Windows剪貼板，并用Image1控件顯示：

uses?MsHtml, ActiveX, ClipBrd

procedure?TForm1.Button1Click(Sender: TObject);
var
? iIndex: Integer;
? Rang:IHTMLControlRange;
? ImgSel: IHTMLControlElement;
begin
? iIndex := 0;?//所需的圖片在網(wǎng)頁中出現(xiàn)的順序
? 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

總結

以上是生活随笔為你收集整理的Delphi保存网页中的图片的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。