Delphi 怎样把TParams 或 record写到流里面

最新推荐文章于 2024-09-04 12:02:18 发布

转载最新推荐文章于 2024-09-04 12:02:18 发布 · 1.9k 阅读

delphi 专栏收录该内容

54 篇文章

订阅专栏

本文介绍了一种使用Delphi实现的通过内存流在应用程序中传递字符串与图片的方法。具体实现了将图片保存到内存流中，再从内存流读取图片并显示的过程。此方法适用于需要在内存中高效传递多媒体数据的应用场景。

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;