本文整理自网络，侵删。
１. 获取网页中的静态图片
网页中的静态图片加载后会保存在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
相关阅读 >>
Delphi firemonkey在画布上绘制 imagelist图像
更多相关阅读请进入《Delphi》频道 >>
