流处理问题(10分)

无

无忧鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #1

var filestream:tfilestream;
begin
try
if open.Execute then
begin
filestream.Create(open.filename,fmopenread);
image1.Picture.Bitmap.LoadFromStream(filestream);
end;
finally
filestream.free;
end;
以上代码出错，信息为：stream1.exe write of address BFB74215
流处理高手解答

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #2

var filestream:tfilestream;
begin
try
if open.Execute then
begin
filestream.Create(open.filename,fmopenread);
image1.Picture.Bitmap.LoadFromStream(filestream);
end;
finally

end;filestream.free;

 

无

无忧鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #3

上面那位兄弟，我把你代码一字不改的copy过去，还是出现同样的错误！！
求救啊！！！

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #4

var filestream:tfilestream;
begin
try
if open.Execute then
begin
filestream:=tfilestream.Create(open.filename,fmopenread);//应为这样
image1.Picture.Bitmap.LoadFromStream(filestream);
end;
finally
filestream.free;
end;
可惜分少了 给分吧

 

G

GZCYP

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #5

var filestream:tfilestream;
begin
try
if open.Execute then
begin
filestream:=tfilestream.Create(open.filename,fmopenread);
image1.Picture.Bitmap.LoadFromStream(filestream);
end;
finally
filestream.free;
end;
end; //原少了一个end

 

无

无忧鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #6

to:chshanghai
如何我上面的image改用olecontianer则该怎么办，而且要存入SQL数据库，如果赚分少,到这里来随便贴个贴子
那两百亩都给你！！！http://www.delphibbs.com/delphibbs/dispq.asp?lid=735213

 

无

无忧鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #7

接受答案了.