盒子论坛 v2.1

问题是这样的:我想把一个Image2的Picture从一个TMemoryStream的变量中读进来,按理论上是可以的,编译时也能通过,但实际运行时就是过不了,老是出现"Abstract error"的错误.请问有谁能帮我解决这个问题?

简略代码如下:
var
  memStream : TMemoryStream;
begin
  if not OpenPictureDialog1.Execute then exit;
  memStream := TMemoryStream.Create;
  try
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    Image1.Picture.Graphic.SaveToStream(memStream);
    Image2.Picture.Graphic.LoadFromStream(memStream);
  finally
    memStream.Free;
  end;
end;

编译能通过,但运行时出现错误.
----------------------------------------------
-

作者：

hedong (hedong)	★☆☆☆☆	-
	盒子活跃会员

2003/4/22 15:06:43

1楼：

var
  memStream : TMemoryStream;
begin
  if not OpenPictureDialog1.Execute then exit;
  memStream := TMemoryStream.Create;
  try
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    Image1.Picture.Graphic.SaveToStream(memStream);
    memStream.Position := 0;
    Image2.Picture.Bitmap.LoadFromStream(memStream) ;
  finally
    memStream.Free;
  end;
end;
----------------------------------------------
-

信息

登陆以后才能回复