HTTP返回的图象如何LOAD到TIMAGE控件中去？(100分)

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-02

• #1

如题，向WEB服务器下的一个CGI程序发一个HTTP请求，它会向我返回一个图象。
（我用TWebBrowser已经能够成功的显示了。）
但我需要把这个返回LOAD到Timage控件中去，而不用TWebBrowser。怎么办？

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-02

• #2

好象每到周末，就没人答题。
都去找MM啦？？？？？？？？ ：）

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-02

• #3

源码：
var
Form1: TForm1;
b : TMemoryStream;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
b := TMemoryStream.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
NMHTTP1.Get('http://61.143.243.98/185pic/yued.gif');
end;

procedure TForm1.NMHTTP1PacketRecvd(Sender: TObject);
begin
NMHTTP1。captureStream(b,这里不知如何填);
b.SaveToFile('a.gif');
end;

end.

 

C

cactus123456

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-02

• #4

上班以后高诉你

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-03

• #5

既然已经保存到a.gif
TImage.Picture.LoadFromFile('a.gif')

TImage对jpg不好办，gif则可以

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-03

• #6

问题是：
保存后的A。GIF 不正确，显示不出来。

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-04

• #7

我现在是直接找GIF的路径。如果换成找能返回图象的CGI的路径呢？

 

C

cactus123456

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-04

• #8

NMHTTP1.InputFileMode:=true;
NMHTTP1.OutputFileMode:=false;
NMHTTP1.Body:='peter.gif' //前面的名字随便，但后缀必须与你
//下载文件后缀一至
NMHTTP1.Get('http://61.143.243.98/185pic/yued.gif');
NMHTTP1.OnSuccessʼþ
begin
image1.Picture.LoadFromFile(nmhttp2.body);
image1.Picture.SaveToFile('earth2.gif'); //如果存盘则加入此行
end;
另外gif动画显是构件可在此下载
http://home4u.china.com/arts/graphics/hqtv/delphi/delphi.html

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-04

• #9

cactus123456: 谢谢。可如果我GET的是一个CGI的程序，用您的方法，也能得到图象吗？

 

C

cactus123456

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-04

• #10

如果 用TWebBrowser已经能够成功的显示了
那么 NMHTTP.get也应没问题，试一试吧,
如果不行再想别的办法

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-08

• #11

多人接受答案了。

 

C

cactus123456

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-08

• #12

特别补充！！！
gif动画显是构件经过我的测试有问题，请换别的构件!