procedure TForm1.Button1Click(Sender: TObject);
var imgList:IHTMLElementCollection;
img:IHTMLImgElement;
i:Integer;
begin
imgList:=(WebBrowser1.Document as IHTMLDocument2).images;
for I:=0 to imgList.length-1 do
begin
img:=imglist.Item(I,'') as IHTMLimgElement;
NmHTTP1.InputFileMode:=True;
NmHTTP1.Body:=Format('c:/%d%s',[I,ExtractFileExt(img.href)]);
NMHTTP1.Get(img.href);
end;
end;
光说不练不行。给你一个实现,是用NMHTTP做的。
存下来的文件在C:。自己试吧。
有些计数器用Post,那你自己分析Form吧,MSHTML用起来很容易,呵呵!