type TRec=Record msg:string; pic:TMemoryStream; end; procedure TForm2.BitBtn1Click(Sender: TObject); var ms:TMemoryStream; Rec1,Rec2:TRec; cc:tmemorystream; jpg:TJPEGImage; begin Rec1.msg:='Hello World'; Rec1.pic := tmemorystream.Create; image1.Picture.Graphic.SavetoStream( Rec1.pic ); Rec1.pic.Position := 0; ms:=TMemoryStream.Create; ms.Write(Rec1,SizeOf(Rec1)); ms.Position:=0; ms.Read(Rec2,SizeOf(Rec2)); ms.Free; ShowMessage(Rec2.msg); jpg := tjpegimage.Create; jpg.LoadFromStream(Rec2.pic); image2.Picture.Assign(jpg) //image2.Picture.Graphic.LoadFromStream( Rec2.pic ); end;
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。