delphi 获取网络上的图片

Question

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

Answer 1

pic是图片的idvar
  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;

Answer 2

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

Answer 3

额，我是这样写的，可是读出来的东西很奇怪，就只有一小段东西，给你们看看程序啊 ，
  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这个链接是图片，这样显示，，，