获取网上某一指定的图片,并将其显示在窗体中... ( 积分: 100 )

如题...

比如..我想把http://www.delphibbs.com/delphibbs/dfwlogo.gif 这张图片显示在窗体中..这样应该怎么实现...
希望能够给出源码....谢谢了...

如题...

比如..我想把http://www.delphibbs.com/delphibbs/dfwlogo.gif 这张图片显示在窗体中..这样应该怎么实现...
希望能够给出源码....谢谢了...

nit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, ExtCtrls;

type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Buffer: TMemoryStream;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Buffer:=TmemoryStream.Create;
IdHttp1.Port:=80;
IdHttp1.Get('http://www.delphibbs.com/delphibbs/dfwlogo.gif',Buffer);
ShowMessage(inttostr(Buffer.Size));
Buffer.SaveToFile('c:/a.gif');
//Image1.Picture.Graphic.LoadFromStream(Buffer);
end;

end.

用IdHttp组件的Get方法
IdHttp1.Port:=80;这句是多余的
由于默认的Image组件不支持gif,我把它直接存盘了

Image1.Picture.Graphic.LoadFromStream(Buffer); 这句出错？？？

我太菜。。不知道怎么改呀。。请指教。。。-_//

up 上去。。。毕竟。。菜鸟需要帮忙呀。。。。-_//

不是那句出错了
是因为没有加过补丁的TImage不能识别Gif格式的图片
你可以去找一个TGifImage补丁
现在还有支持更全的图片显示类，到DelphiSuperPage, Torry.ru等地方去看看吧
我以前看到过一个组在做

不是，，我试过bmp 但是显示不出来 []

请指教啦。。
var
Buffer: TMemoryStream;
.........
.........
Buffer := TMemoryStream.Create;
idHTTP1.Get('http://bbs.dvbbs.net/UploadFile/2005-5/200551112421378643.bmp', Buffer);
Image1.Picture.Bitmap.LoadFromStream(Buffer);

这样获取不到。。[]

请指教啦。。。不知道是否正确..

ok 问题解决了。。换了个思路。。。

另接受答案。。。