请教TStream流的用法

[xman109]

正在学习使用流，写了2句简单的代码，把image1中的图像存入流，再用image2从流中读出图像，不知道这思路有没有问题。
TMemoryStream *pms=new TMemoryStream();
Image1->Picture->Graphic->SaveToStream(pms);
Image2->Picture->Graphic->LoadFromStream(pms);
delete pms;
运行不成功，错误在image2这一行，请教。

[xman109]

谢谢余粮，运行ok
但是我要显示jpg图片怎么办啊

[ydlchina]

Image2->Picture->LoadFromFile("3-31.jpg");

[xman109]

TMemoryStream *pms=new TMemoryStream();
TJPEGImage *myJPEG=new TJPEGImage();
Image1-> Picture-> Graphic-> SaveToStream(pms);
pms->Position=0;
myJPEG->LoadFromStream(pms);
Image2-> Picture->Assign(myJPEG);
delete pms;
呵呵，自己解决了，不是那个意思的
给分了

[ydlchina]

TMemoryStream *pms=new TMemoryStream();
Image1->Picture->Bitmap->SaveToStream(pms);//?Bitmap
pms->Position=0;
Image2->Picture->Bitmap->LoadFromStream(pms);//?Bitmap
delete pms;