Delphi 怎样 把TParams 或 record写到流里面
发布时间：2020-12-15 10:03:44 所属栏目：大数据 来源：网络整理
导读：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 := t
|
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;
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |