【图像处理高级编程】-bmp存取到流中

最新推荐文章于 2024-09-28 21:20:29 发布

大龙软件研发

最新推荐文章于 2024-09-28 21:20:29 发布

阅读量680

点赞数 20

分类专栏：图像处理高级编程文章标签：图像处理 DELPHI 笔记开发语言

本文链接：https://blog.csdn.net/reson100/article/details/138740487

版权

这篇博客介绍了如何使用Delphi进行BMP图像的流读写操作，包括将BMP保存到流中和从流加载BMP，提供`SaveBitmapToStream`和`LoadBitmapFromStream`两个关键过程，并通过实际示例演示了读写过程。

摘要由CSDN通过智能技术生成

文章目录

- bmp存取到流中
- 核心源码

bmp存取到流中

提示：这里可以添加技术概要
请添加图片描述

核心源码

procedure SaveBitmapToStream(aBitmap: TBitmap; aStream: TStream);
var
ms: TMemoryStream;
size: Integer;
begin
Assert(Assigned(aBitmap));
Assert(Assigned(aStream));
ms := TMemoryStream.Create;
try
aBitmap.SaveToStream(ms);
ms.position := 0;
size := ms.Size;
aStream.WriteBuffer(size, Sizeof(size));
aStream.CopyFrom(ms, size);
finally
ms.free
end;
end;

procedure LoadBitmapFromStream(aBitmap: TBitmap; aStream: TStream);
var
ms: TMemoryStream;
size: Integer;
begin
Assert(Assigned(aBitmap));
Assert(Assigned(aStream));
ms := TMemoryStream.Create;
try
aStream.ReadBuffer(size, Si