delphi 获取网络上的图片

[zhongqian1_6]

比如说直接获取http://www.fjwater.gov.cn/fangxun_fj/index.jsp这个页面上的数据，然后显示到delphi上去， 这要怎么做啊？要用什么控件 啊，，我只知道用idhttp呢！

[zhongqian1_6]

额，我是这样写的，可是读出来的东西很奇怪，就只有一小段东西，给你们看看程序啊 ，
str := IdHTTP1.Get('http://www.fjwater.gov.cn/fangxun_fj/yuntu_photo/2011090214.00I');
Memo1.Lines.Add(str);
AssignFile(mytext,'e:/teat.jpg');
Rewrite(mytext);
Writeln(mytext,str); 这样我能读取到图片，可是这页面上的图片是会变化的，

http://hi.csdn.net/space-2078587-do-album-picid-907744.html这个链接是图片，这样显示，，，

[小哥哥]

那你用时钟去控制啊

[zhongqian1_6]

可是上面那个功能我实现不了啊，各位大侠能不能帮帮忙呢？谢谢啦

[bdmh]

pic是图片的id

var
  i:Integer;
  rang:IHTMLControlRange;
  s:string;
begin
  try
  s := (IHTMLDocument2(wb.Document).images.item('pic',EmptyParam) as IHTMLElement).getAttribute('src',0);
  //showmessage(s);
      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;

[haitao]

分析页面，得到里面的img的src，再取此src到流或临时文件，再显示此内容