这到底是怎么回事啊？

代码：  
  var   AStream:   TMemoryStream;  
  begin  
  image1.picture.bitmap.savetostream(astream);  
  image2.picture.bitmap.loadformstream(astream);  
  end;  
  我执行后出现以下错误：  
  Error  
  project   project1.exe   raised   exception   class   eaccessviolation   with   message   'access   violation   at   address   4131ff4d   in   module   'vcl30.dpl'.   read   of   address   ffffffff'.   process   stopped.   use   step   or   run   to   continue.  
  不知道如何解决？？？  
  问题点数：20、回复次数：4Top

1 楼lwm8246（lwm8246）回复于 2001-01-30 16:21:00 得分 20

var   AStream:   TMemoryStream;  
  begin  
    AsStream:=TMemorStream.create;//创建即可  
  image1.picture.bitmap.savetostream(astream);  
  image2.picture.bitmap.loadformstream(astream);  
  AsStream.Free;//无用后释放  
  end;  
  Top

2 楼kiss2（）回复于 2001-01-30 16:29:00 得分 0

如果这样做，就会出现Constructing   instance   of   'TMemoryStream'   containing   abstract   methods错误Top

3 楼lwm8246（lwm8246）回复于 2001-01-30 16:54:00 得分 0

test   ok  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var   AStream:   TMemoryStream;  
  begin  
  AStream:=TMemoryStream.create;//创建即可  
  image1.picture.bitmap.savetostream(astream);  
  image2.picture.bitmap.LoadFromStream(astream);  
  AStream.Free;//无用后释放  
  end;  
  Top

4 楼kiss2（）回复于 2001-01-30 21:02:00 得分 0

看来真的是我的delphi有毛病，只能重装了Top

相关问题

• astream
• tmemorystream
• savetostream
• picture
• bitmap
• image
• var

• 帖主：kiss2
• lwm8246

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载