两张图片：一个bmp，一个Mask的绘制方法

最新推荐文章于 2024-09-20 21:17:07 发布

xiuzhentianting

最新推荐文章于 2024-09-20 21:17:07 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/xiuzhentianting/article/details/48289835

delphi 专栏收录该内容

68 篇文章

订阅专栏

本文介绍如何利用PS蒙板和代码技术实现图像融合，详细解释了图像像素映射、颜色通道处理及代码实现过程，适用于图像处理与计算机视觉领域的专业人士。

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

可以用ps蒙板来实现，用代码也可以：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, PngImage;

type

TForm1 = class(TForm)

ImageBmp: TImage;

ImageBmpMask: TImage;

procedure FormPaint(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

FBuffPng: TPNGObject;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

I, J: Integer;

LSourceAlphaAry: pByteArray;

begin

FBuffPng := TPNGObject.Create;

SetPngSize(ImageBmp.Width, ImageBmp.Height, FBuffPng);

for J := 0 to FBuffPng.Height - 1 do

begin

LSourceAlphaAry := FBuffPng.AlphaScanline[J];

if Assigned(LSourceAlphaAry) then

begin

for I := 0 to FBuffPng.Width - 1 do

begin

FBuffPng.Pixels[I, J] := ImageBmp.Canvas.Pixels[I, J];

LSourceAlphaAry[I] := (ImageBmpMask.Canvas.Pixels[I, J] and $FF);

end;

end;

end;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

FreeAndNil(FBuffPng);

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

Canvas.Draw(0, 0, FBuffPng);

end;

end.