Delphi新手求助：如何从C数组原始像素数据加载TPicture

阿华AIGC实验室

2026-5-14

直接从原始像素数组生成TPicture的解决方案

作为Delphi新手，你遇到的问题很典型——TPicture.LoadFromStream需要的是标准图像文件格式的数据流（比如BMP、PNG的完整文件结构），而不是裸像素数组。所以正确的思路是：把DLL返回的原始像素数据直接写入TBitmap（或对应格式的图像对象），再把这个TBitmap赋值给TPicture。

下面是具体的实现步骤和代码示例，我会针对常见的像素格式（比如RGBA32、RGB24）展开，你可以根据你的ImageFormat枚举做调整：

步骤1：匹配TBitmap的像素格式

首先需要把DLL_Image.Format映射到Delphi TBitmap.PixelFormat，对应关系参考：

RGBA32格式 → pf32bit
RGB24格式 → pf24bit
8位灰度格式 → pf8bit（需额外设置灰度调色板）

步骤2：逐行复制像素数据

Delphi的TBitmap扫描线是按4字节对齐的，而DLL返回的像素数据通常是连续无对齐的，所以不能直接一次性复制整个数据块，必须逐行处理，避免对齐问题导致的图像错位。

完整代码示例

假设你的ImageFormat包含ifRGBA32和ifRGB24两种常见格式，以下是可直接复用的函数：

function DLLImageToTPicture(const ImagePtr: DLL_PImage): TPicture;
var
  Bitmap: TBitmap;
  RowBytesDLL: Integer;
  RowBytesBitmap: Integer;
  Y: Integer;
  SourceRow: PByte;
  DestRow: PByte;
begin
  Result := TPicture.Create;
  try
    if not Assigned(ImagePtr) then Exit;

    Bitmap := TBitmap.Create;
    try
      Bitmap.Width := ImagePtr^.Width;
      Bitmap.Height := ImagePtr^.Height;

      // 根据DLL图像格式设置Bitmap像素格式
      case ImagePtr^.Format of
        ifRGBA32:
          Bitmap.PixelFormat := pf32bit;
        ifRGB24:
          Bitmap.PixelFormat := pf24bit;
        // 其他格式可以在这里扩展，比如灰度图、RGB565等
        else
          raise Exception.Create('不支持的图像格式');
      end;

      // 计算每行的字节数
      case ImagePtr^.Format of
        ifRGBA32: RowBytesDLL := ImagePtr^.Width * 4;
        ifRGB24: RowBytesDLL := ImagePtr^.Width * 3;
        else RowBytesDLL := 0;
      end;
      RowBytesBitmap := Integer(Bitmap.ScanLine[1]) - Integer(Bitmap.ScanLine[0]); // 获取Bitmap每行的实际字节数（含对齐）

      // 逐行复制像素数据
      SourceRow := ImagePtr^.Data;
      for Y := 0 to Bitmap.Height - 1 do
      begin
        DestRow := Bitmap.ScanLine[Y];
        // 复制当前行的有效像素数据，忽略Bitmap的对齐padding
        Move(SourceRow^, DestRow^, RowBytesDLL);
        Inc(SourceRow, RowBytesDLL); // 移动到DLL数据的下一行
      end;

      // 将Bitmap赋值给TPicture
      Result.Assign(Bitmap);
    finally
      Bitmap.Free;
    end;
  except
    Result.Free;
    raise;
  end;
end;

关键注意事项

内存有效性：确保在调用这个函数时，DLL返回的ImagePtr^.Data指针是有效的，没有被DLL提前释放。如果DLL需要你手动释放像素数据，记得在复制完成后调用对应的DLL释放函数。
格式扩展：如果你的ImageFormat还有其他类型（比如RGB565、灰度图），需要单独处理：
- 对于RGB565，需要把每个16位像素转换为24位或32位后写入Bitmap；
- 对于8位灰度图，需要给TBitmap创建一个256阶的灰度调色板，再复制数据。
Alpha通道处理：如果是RGBA32格式，pf32bit的TBitmap会自动处理Alpha通道，如果需要透明显示，确保TBitmap的Transparent属性设置正确。