【图像处理高级编程】-BMPtoTxt-BMP转TXT

大龙软件研发

于 2024-05-13 05:26:16 发布

阅读量877

点赞数 28

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

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

版权

本文介绍了一种将BMP图像文件转换为TXT格式的方法，通过DELPHI编程实现。提供了`BitmapToRGBValues`核心源码，读取BMP文件并保存像素值到TXT，同时包含`TxtToBitmap`函数，可将TXT文件恢复为BMP图像。通过ButtonReadBMP和ButtonReadTXT按钮实现文件转换操作。

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

文章目录

- BMPtoTxt
- 核心源码

BMPtoTxt

提示：这里可以添加技术概要

请添加图片描述

核心源码

procedure BitmapToRGBValues(const BMPFilename: string;
const DataFilename: string);
var
Bitmap: TBitmap;
DataFile: TextFile;
i: INTEGER;
j: INTEGER;
row: pRGBTripleArray;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(BMPFilename);

    Bitmap.PixelFormat := pf24bit;
    // 24bit位图
    Assignfile(DataFile, DataFilename);
    REWRITE(DataFile);
    //打开文本文件
    WRITELN(DataFile, FileSignature);
    //写入文件签名
    WRITELN(DataFile, Bitmap.Width, ' ', Bitmap.Height);
    //文件大小

    for j := 0 to Bitmap.Height - 1 do
    begin
        row := Bitmap.Scanline[j];

        WRITE(DataFile, 'R ');
        for i := 0 to Bitmap.