两张BMP图片叠加

最新推荐文章于 2022-12-25 20:06:03 发布

qq_43466604

最新推荐文章于 2022-12-25 20:06:03 发布

阅读量1.6k

点赞数

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/qq_43466604/article/details/85610560

版权

本文介绍了如何将两张BMP格式的图片进行叠加处理，详细阐述了图片读取、像素合并以及保存结果的步骤，包括使用RGB颜色模型进行像素级别的操作，并提供了相关代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure BlendImage(BackBmp, ForeBmp: TBitmap; TransColor: TColor; Alpha: Integer);

type
  TRGBArray = array[0..32767] of TRGBTriple;
  PRGBArray = ^TRGBArray;

var
  X, Y, OffX, OffY: Integer;
  BackRect, ForeRect: TRect;
  BackRGB, ForeRGB: PRGBArray;
  BackR, BackG, BackB: Byte;
  ForeR, ForeG, ForeB: Byte;
begin
  if not Assigned(BackBmp) then exit;
  if not Assigned(ForeBmp) then exit;
  if BackBmp.PixelFormat <> pf24bit then Exit;
  if ForeBmp.PixelFormat <> pf24bit then Exit;
  if (BackBmp.Empty) or (ForeBmp.Empty) then Exit;
  BackRect := BackBmp.Canvas.ClipRect;
  ForeRect := ForeBmp.Canvas.ClipRect;
  DockRect(ForeRect, BackRect);
  OffX := ForeRect.Left - BackRect.Left;
  OffY := ForeRect.Top - BackRect.Top;
  for Y := 0 to BackBmp.Height - 1 do
  begin
    if (Y > ForeRect.Bottom - 1) or
      (Y < ForeRect.Top) then Continue;
    BackRGB := BackBmp.ScanLine[Y];
    ForeRGB := ForeBmp.ScanLine[Y

最低0.47元/天解锁文章