本文整理自网络，侵删。
无意中，在csdn论坛中看到关于“提取网页中的图片资源”的帖子，特摘抄之。
<a style="font: bold 12px/24px Helvetica, Tahoma, Arial, sans-serif; text-align: left; color: rgb(51, 90, 164); text-transform: none; text-indent: 0px; letter-spacing: normal; word-spacing: 0px; white-space: normal; orphans: 2; widows: 2; font-size-adjust: none; font-stretch: normal; background-color: rgb(239, 244, 251); -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;" href="http://my.csdn.net/simonhehe" target="_blank">simonhehe</a>提供相关代码如下：
procedure TfrmMain.DomImg2Image(wb:TWebBrowser);
var
i:Integer;
rang:IHTMLControlRange;
s:string;
begin
try
s := (IHTMLDocument2(wb.Document).images.item('pic',EmptyParam) as IHTMLElement).getAttribute('src',0);
rang:=((IHTMLDocument2(wb.Document).body as HTMLBody).createControlRange)as
IHTMLControlRange;
rang.add(IHTMLDocument2(wb.Document).images.item('pic',EmptyParam)as
IHTMLControlElement);
rang.execCommand('Copy',False,0);
image1.Picture.Assign(ClipBoard);
except
end;
end;
其中，网页中的图片对象ID为“pic”，通过剪贴板，复制到image1控件中。
以下是Delphi XE的单元文件：
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls;
type
TForm11 = class(TForm)
btn1: TButton;
img1: TImage;
wb1: TWebBrowser;
btn2: TButton;
mmo1: TMemo;
edt1: TEdit;
procedure FormCreate(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
uses ActiveX, wininet, mshtml, Clipbrd;
{$R *.dfm}
procedure DomImg2Image(id:string; wb:TWebBrowser; img:TImage );
var
rang:IHTMLControlRange;
begin
rang:=((IHTMLDocument2(wb.Document).body as HTMLBody).createControlRange)as
IHTMLControlRange;
rang.add(IHTMLDocument2(wb.Document).images.item(id,EmptyParam)as
IHTMLControlElement);
rang.execCommand('Copy',False,0);
img.Picture.Assign(ClipBoard);
end;
procedure TForm11.btn1Click(Sender: TObject);
var
i:Integer;
rang:IHTMLControlRange;
begin
//遍历图片元素, 在memo中显示Img的ID和src属性
mmo1.clear;
for i:= 0 to IHTMLDocument2(wb1.Document).images.length-1 do
begin
mmo1.lines.add((IHTMLDocument2(wb1.Document).images.item(i,EmptyParam)as
IHTMLElement).getAttribute('id',0));
mmo1.lines.add((IHTMLDocument2(wb1.Document).images.item(i,EmptyParam)as
IHTMLElement).getAttribute('src',0));
end;
end;
procedure TForm11.btn2Click(Sender: TObject);
begin
//edt1.Text是Img的ID值, webbrowse对象, TImage
DomImg2Image(edt1.Text, wb1, img1);
end;
procedure TForm11.FormCreate(Sender: TObject);
begin
wb1.Navigate('c:\aa.html');
end;
end.
相关阅读 >>
Delphi winapi: gettickcount - 获取系统已启动的时间
Delphi makeuniquefilename 创建文件名如果已经存在自动更改文件名
更多相关阅读请进入《Delphi》频道 >>
