为什么数据库中图像显示不出来？(10分)

本人又有问题了.
Image1中的图像通过已经成功存入Access数据库，但为什么image2不显示图形，你们可以试一试：
procedure TForm1.Button2Click(Sender: TObject);
var
stream:Tmemorystream;
str:string;
begin
table1.Open;
Table1.First;
try
stream:=TmemoryStream.Create;
TBlobField(table1.FieldByName('image')).SaveToStream(stream);
Image2.Picture.Bitmap.LoadFromStream(stream);
Image2.Refresh;
finally
stream.Free;
end;
end;

下面是类似的问题：
procedure TForm1.FormCreate(Sender: TObject);
var stre:tmemorystream;
begin
image1.Canvas.Ellipse(50,50,200,200);
stre:=tmemorystream.Create;
image1.Picture.Bitmap.SaveToStream(stre);
image2.Picture.Bitmap.LoadFromStream(stre);
image2.Update ;
image2.Refresh ;
end;

用的都是Image控件。

ACCESS就是不好，用图像的话太麻烦了

试试
var
stream:Tmemorystream;
str:string;
begin
table1.Open;
Table1.First;
try
stream:=TmemoryStream.Create;
TBlobField(table1.FieldByName('image')).SaveToStream(stream);
Stream.Position := 0;
^^^^^^^^^^^^^^^^^^^^^
Image2.Picture.Bitmap.LoadFromStream(stream);
Image2.Refresh;
finally
stream.Free;

谢谢！

接受答案了.