Delphi图像处理 -- 图像合成

最新推荐文章于 2023-04-06 09:52:35 发布
最新推荐文章于 2023-04-06 09:52:35 发布
阅读量9.9k 收藏 5
点赞数 7
分类专栏： Delphi Delphi图像处理 文章标签： ARGB BASM basm delphi Delphi DELPHI gdi+ GDI+ mixer
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/maozefa/article/details/4743336
版权

阅读提示：

    《Delphi图像处理》系列以效率为侧重点，一般代码为PASCAL，核心代码采用BASM。

    《C++图像处理》系列以代码清晰，可读性为主，全部使用C++代码。

    尽可能保持二者内容一致，可相互对照。

   本文代码必须包括文章《Delphi图像处理 -- 数据类型及公用过程》中的ImageData.pas单元。

 

    在图像处理过程中，图像的合成操作是使用频率最高的，如图像显示、图像拷贝、图像拼接以及的图层拼合叠加等。

    图像合成，其实也就是图像像素颜色的混合，在Photoshop中，颜色混合是个很复杂的东西，不同的混合模式，将产生不同的合成效果，如果将之全部研究透彻，估计就得写一本书。因此，本文只谈谈最基本的图像合成，也就是Photoshop中的正常混合模式。

    只要接触过图像处理的，都知道有个图像像素混合公式：

    1）dstRGB = srcRGB * alpha + dstRGB * (1 - alpha)

    其中，dstRGB为目标图像素值；srcRGB为源图像素值；alpha为源图像素值混合比例（不透明度，范围0 - 1）。

    其实，这个像素混合公式有很大局限性，只适合不含Alpha信息的图像。

    要处理包括带Alpha通道图像（层）的混合，其完整的公式应该是：

    2-1）srcRGB = srcRGB * srcAlpha * alpha / 255      （源图像素预乘转换为PARGB）

    2-2）dstRGB = dstRGB * dstAlpha / 255    （目标图像素预乘转换为PARGB）

    2-3）dstRGB = dstRGB + srcRGB - dstRGB * srcAlpha * alpha / 255    （源图像素值与目标图像素值混合）

    2-4）dstAlpha = dstAlpha + srcAlpha * alpha - dstAlpha * srcAlpha * alpha / 255    （混合后的目标图Alpha通道值）

    2-5）dstRGB = dstRGB * 255 / dstAlpha    （混合后的目标图像素转换为ARGB）

    其中，dstRGB为目标图像素值；srcRGB为源图像素值；dstAlpha为目标图Alpha通道值；srcAlpha为源图Alpha通道值；dstARGB为含Alpha目标图像素值；alpha为源图像素值混合比例（不透明度，范围0 - 1）。

    将公式2中的2-1式代入2-3式，简化可得：

    3-1）dstRGB = dstRGB * dstAlpha / 255

    3-2）dstRGB = dstRGB +  (srcRGB - dstRGB) * srcAlpha * alpha / 255

    3-3）dstAlpha = dstAlpha + srcAlpha * alpha - dstAlpha * srcAlpha * alpha / 255

    3-4）dstRGB = dstRGB * 255 / dstAlpha

    当dstAlpha=srcAlpha=255时，公式3中3-1式、3-3式和3-4式没有意义，3-2式也变化为：

   4）dstRGB = dstRGB +  (srcRGB - dstRGB) * alpha

    不难看出，公式4是公式1的变形。因此，公式1只是公式3（或者公式2）在目标图和源图都不含Alpha信息（或者Alpha=255）情况下的一个特例而已。

    当公式4中的alpha=1时，目标图像素等于源图像素，所以，本文前面说图像拷贝其实也是图像合成的范畴。

    通过上面较详细的分析，可以看出，即使是最基本正常图像混合模式也是很复杂的。其实，上面还不是完整的分析，因为按照目标图Alpha信息、源图Alpha信息以及源图合成比例等三个要素的完全的排列组合，最多可以派生8个公式。

    下面就按正常混合模式的全部8种情况（有2项重合，实际为7种情况）来分别进行代码实现，也可完善和补充上面的文字叙述：

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Gdiplus, ImageData, Jpeg;

{$R *.dfm}

procedure _SetMixerMM;
asm
    pxor        mm7, mm7
    mov         eax, 1011h
    movd        mm6, eax
    pshufw      mm6, mm6, 0
    mov         eax, 8
    movd        mm5, eax
    pshufw      mm5, mm5, 0
end;

// --> mm7 4 * word = 0
// --> mm6 4 * word = 0x1101
// --> mm5 4 * word = 4
// --> eax source alpha
// --> esi source pixel (ARGB)
// --> edi dest pixel (ARGB)
// <-- eax dest alpha !!!
// <-- mm0 dest pixel
procedure _PARGBMixer(srcAlpha: Integer);
asm
    push      edx
    movd      mm0, [esi]
    movd      mm1, [edi]
    punpcklbw mm0, mm7
    punpcklbw mm1, mm7

    // dest.rgb = dest.rgb * dest.alpha / 255
    movzx     edx, [edi].TARGBQuad.Alpha
    pmullw    mm1, qword ptr ArgbTab[edx*8]
    pmulhuw   mm1, mm6
    paddusw   mm1, mm5
    psrlw     mm1, 4

    // dest.rgb = (dest.rgb * 255 + (source.rgb - dest.rgb) * sourec.alpha) / 255
    psubw     mm0, mm1
    pmullw    mm0, qword ptr ArgbTab[eax*8]
    pmullw    mm1, qword ptr ArgbTab[255*8]
    paddw     mm0, mm1
    pmulhuw   mm0, mm6
    paddusw   mm0, mm5
    psrlw     mm0, 4

    // dest.alpha += (source.alpha - (dest.alpha * source.alpha + 127) / 255)
    push      eax
    add       [esp], edx
    imul      eax, edx
    add       eax, 127
    mul       dword ptr DivTab[255*4]
    pop       eax
    sub       eax, edx

    // dest.rgb = dest.rgb * 255 / dest.alpha
    movq      mm1, mm0
    psllw     mm0, 8
    psubw     mm0, mm1
    pmulhuw   mm0, qword ptr MMDivTab[eax*8]
    packuswb  mm0, mm7
    pop       edx
end;

// --> mm7 4 * word = 0
// --> eax source alpha
// --> esi source pixel (ARGB)
// --> edi dest pixel (ARGB)
// <-- mm0 dest pixel (RGB)
procedure _ARGBMixer(srcAlpha: Integer);
asm
    movd      mm0, [esi]
    movd      mm1, [edi]
    punpcklbw mm0, mm7
    punpcklbw mm1, mm7
    psubw     mm0, mm1
    pmullw    mm0, qword ptr ArgbTab[eax*8]
    psllw     mm1, 8
    paddw     mm0, mm1
    psrlw     mm0, 8
    packuswb  mm0, mm0
end;

procedure _DoMixer(var Dest: TImageData; const Source: TImageData; Alpha: Integer);
var
  dstOffset, srcOffset:Integer;
  alphaI: Integer;
  dst: PImageData;
asm
    push      esi
    push      edi
    push      ebx
    mov       dst, eax
    mov       alphaI, ecx
    shr       ecx, 8
    movzx     ebx, [eax].TImageData.AlphaFlag
    shl       ebx, 1
    or        ecx, ebx
    movzx     ebx, [edx].TImageData.AlphaFlag
    shl       ebx, 2
    or        ecx, ebx
    push      ecx
    call      _SetCopyRegs
    mov       srcOffset, eax
    pop       eax
    jmp       dword ptr [@@jmpTable+eax*4]

@@jmpTable:
    dd @@mixer0, @@mixer1, @@mixer2, @@mixer3, @@mixer4, @@mixer5, @@mixer6, @@mixer7

// src = 0, dst = 0, alpha = 0
@@mixer0:
    mov       eax, alphaI
    movq      mm2, qword ptr ArgbTab[eax*8]
    mov       eax, srcOffset
    pxor      mm7, mm7
@@yLoop0:
    push      ecx
@@xLoop0:
    movd      mm0, [esi]
    movd      mm1, [edi]
    punpcklbw mm0, mm7
    punpcklbw mm1, mm7
    psubw     mm0, mm1
    pmullw    mm0, mm2
    psllw     mm1, 8
    paddw     mm0, mm1
    psrlw     mm0, 8
    packuswb  mm0, mm0
    movd      [edi], mm0
    mov       [edi].TARGBQuad.Alpha, 255
    add       esi, 4
    add       edi, 4
    loop      @@xLoop0
    add       esi, eax
    add       edi, ebx
    pop       ecx
    dec       edx
    jnz       @@yLoop0
    jmp       @@End

// src = 0, dst = 0, alpha = 1
@@mixer1:
// src = 0, dst = 1, alpha = 1
@@mixer3:
    mov       eax, srcOffset
@@yLoop1:
    push      ecx
    rep       movsd
    pop       ecx
    add       esi, eax
    add       edi, ebx
    dec       edx
    jnz       @@yLoop1
    jmp       @@End
    mov       eax, dst
    mov       [eax].TImageData.AlphaFlag, False
    jmp       @@Exit

// src = 0, dst = 1, alpha = 0
@@mixer2:
    call      _SetMixerMM
    mov       eax, alphaI
    imul      eax, 255
    shr       eax, 8
@@yLoop2:
    push      ecx
@@xLoop2:
    push      eax
    call      _PARGBMixer
    movd      [edi], mm0
    mov       [edi].TARGBQuad.Alpha, al
    pop       eax
    add       esi, 4
    add       edi, 4
    loop      @@xLoop2
    add       esi, srcOffset
    add       edi, ebx
    pop       ecx
    dec       edx
    jnz       @@yLoop2
    jmp       @@End

// src = 1, dst = 0, alpha = 0
@@mixer4:
    mov       dstOffset, ebx
    mov       ebx, alphaI
    pxor      mm7, mm7
@@yLoop4:
    push      ecx
@@xLoop4:
    movzx     eax, [esi].TARGBQuad.Alpha
    imul      eax, ebx
    shr       eax, 8
    jz        @@Next4
    call      _ARGBMixer
    movd      [edi], mm0
    mov       [edi].TARGBQuad.Alpha, 255
@@Next4:
    add       esi, 4
    add       edi, 4
    loop      @@xLoop4
    add       esi, srcOffset
    add       edi, dstOffset
    pop       ecx
    dec       edx
    jnz       @@yLoop4
    jmp       @@End

// src = 1, dst = 0, alpha = 1
@@mixer5:
    pxor      mm7, mm7
@@yLoop5:
    push      ecx
@@xLoop5:
    movzx     eax, [esi].TARGBQuad.Alpha
    call      _ARGBMixer
    movd      [edi], mm0
    mov       [edi].TARGBQuad.Alpha, 255
    add       esi, 4
    add       edi, 4
    loop      @@xLoop5
    add       esi, srcOffset
    add       edi, ebx
    pop       ecx
    dec       edx
    jnz       @@yLoop5
    jmp       @@End

// src = 1, dst = 1, alpha = 0
@@mixer6:
    mov       dstOffset, ebx
    mov       ebx, alphaI
    call      _SetMixerMM
@@yLoop6:
    push      ecx
@@xLoop6:
    movzx     eax, [esi].TARGBQuad.Alpha
    imul      eax, ebx
    shr       eax, 8
    jz        @@Next6
    call      _PARGBMixer
    movd      [edi], mm0
    mov       [edi].TARGBQuad.Alpha, al
@@Next6:
    add       esi, 4
    add       edi, 4
    loop      @@xLoop6
    add       esi, srcOffset
    add       edi, dstOffset
    pop       ecx
    dec       edx
    jnz       @@yLoop6
    jmp       @@End

// src = 1, dst = 1, alpha = 1
@@mixer7:
    call      _SetMixerMM
@@yLoop7:
    push      ecx
@@xLoop7:
    movzx     eax, [esi].TARGBQuad.Alpha
    call      _PARGBMixer
    movd      [edi], mm0
    mov       [edi].TARGBQuad.Alpha, al
    add       esi, 4
    add       edi, 4
    loop      @@xLoop7
    add       esi, srcOffset
    add       edi, ebx
    pop       ecx
    dec       edx
    jnz       @@yLoop7

@@End:
    emms
@@Exit:
    pop       ebx
    pop       edi
    pop       esi
end;

procedure ImageMixer(var Dest: TImageData; const Source: TImageData; Alpha: Single);
var
  alphaI: Integer;
begin
  alphaI := Round(Alpha * 256);
  if alphaI < 0 then Exit;
  if alphaI > 256 then alphaI := 256;
  _DoMixer(Dest, Source, alphaI);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  source, dest: TGpBitmap;
  g: TGpGraphics;
  src, dst: TImageData;
begin
  source := TGpBitmap.Create('..\..\media\Apple.png');
  dest := TGpBitmap.Create('..\..\media\xmas_011.png');
  g := TGpGraphics.Create(Canvas.Handle);
  g.DrawImage(dest, 0, 0);
  g.DrawImage(source, dest.Width, 0);
  src := LockGpBitmap(source);
  dst := LockGpBitmap(dest);
  ImageMixer(dst, src, 0.75);
  UnlockGpBitmap(dest, dst);
  UnlockGpBitmap(source, src);
  g.DrawImage(dest, dst.Width + src.Width, 0);
  g.Free;
  dest.Free;
  source.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  source: TGpBitmap;
  dest: TBitmap;
  tmp: TJpegImage;
  g: TGpGraphics;
  src, dst: TImageData;
begin
  dest := TBitmap.Create;
  tmp := TJpegImage.Create;
  tmp.LoadFromFile('..\..\media\IMG_9440_mf.jpg');
  dest.Assign(tmp);
  tmp.Free;
  source := TGpBitmap.Create('..\..\media\xmas_011.png');
  g := TGpGraphics.Create(Canvas.Handle);
  Canvas.Draw(0, 0, dest);
  g.DrawImage(source, dest.Width, 0);
  dst := GetBitmapData(dest);
  src := LockGpBitmap(source);
  ImageMixer(dst, src, 1);
  UnlockGpBitmap(source, src);
  Canvas.Draw(dst.Width + src.Width, 0, dest);
  g.Free;
  dest.Free;
  source.Free;
end;

end.

    上面是一个完整Delphi程序，在_DoMixer过程中，定义了7个图像合成子过程，以满足全部8种排列组合的图像合并。除了@@Mixer0和@@Mixer1子过程外，其余子过程分别调用了 _ARGBMixer和_PARGBMixer过程，其实@@Mixer0中的处理代码与 _ARGBMixer过程基本是相同的，也就是说，7个子过程分别使用了三种处理方式：

    一是@@Mixer1的完全拷贝方式；

    二是目标图不含Alpha信息，将源图按像素的Alpha信息或者给定的不透明度混合到目标图的_ARGBMixer过程，该过程使用的是前面公式1或公式4的简化公式。

    三是目标图为带Alpha信息的处理形式 _PARGBMixer，该过程使用前面的公式3。

    如果嫌7个子过程太多，也可简化代码，只保留满足上述3种情况的子过程，即@@Mixer1、@@Mixer4和@@Mixer6，对处理效率影响不大。

    上面程序中包含2个例子，前一个是用GDI+位图打开2张png图片后进行处理，这个处理调用的是@@Mixer6。运行效果截图如下：

    后一个例子是对GDI+位图和VCL位图的混合处理，其中VCL位图是JPEG格式文件，这是没有Alpha信息的，这个例子运行效果截图如下：

 

    《Delphi图像处理》系列使用GDI+单元下载地址和说明见文章《GDI+ for VCL基础 -- GDI+ 与 VCL》。

    因水平有限，错误在所难免，欢迎指正和指导。邮箱地址：maozefa@hotmail.com

    这里可访问《Delphi图像处理 -- 文章索引》。

 

阿发伯
关注
  • 7
    点赞
  • 踩
  • 5
    收藏
    觉得还不错? 一键收藏
  • 8
    评论
专栏目录
delphi 两张图片叠加
05-17
delphi 两张图片叠加 delphi 两张图片叠加 delphi 两张图片叠加
Delphi图像处理 -- 文章索引
热门推荐
闲人阿发伯的业余编程心得
01-09 1万+
本文对已发布《Delphi图像处理》系列文章进行索引链接，以方便阅读和查找。    《Delphi图像处理 -- 数据类型及公用过程》。提供GDI+位图TGpBitmap和VCL位图TBitmap的转换过程以及几个最基本的通用过程。所有其它文章代码，包括例子代码，对必须包括该文章所介绍的ImageData.pas单元。    《Delphi图像处理 -- 平面几何变换类》。介绍图像平面几何变换类T
Delphi图像处理
u012401470的专栏
10-11 476
《Delphi图像处理》系列以效率为侧重点，一般代码为PASCAL，核心代码采用BASM。 《C++图像处理》系列以代码清晰，可读性为主，全部使用C++代码。 尽可能保持二者内容一致，可相互对照。 本文代码必须包括文章《Delphi图像处理 -- 数据类型及公用过程》中的ImageData.pas单元。
Delphi图像处理单元
01-03
**Delphi图像处理单元**是基于Delphi编程环境中用于图像操作和处理的组件或库。这个单元集成了GDI+（Graphics Device Interface Plus）技术，提供了丰富的图像处理功能，包括但不限于图像加载、显示、保存、裁剪、...
Delphi 数字图像处理及高级应用+源代码
06-27
《Delphi数字图像处理及高级应用》是一本深入探讨如何在Delphi环境下进行数字图像处理技术的书籍。这本书结合了理论与实践，提供了丰富的源代码示例，旨在帮助读者掌握图像处理的核心概念，并能将其应用于实际项目中...
Delphi图像处理小程序
09-16
本压缩包“Delphi图像处理小程序”集合了20个用Delphi编写的图像处理程序，这些程序展示了如何在Delphi环境下进行图像的读取、显示、编辑和特效处理等操作。 1. **图像读取与显示**：Delphi提供了如VCL（Visual ...
Delphi数字图像处理及高级应用 光盘
11-04
《Delphi数字图像处理及高级应用》光盘包含了一系列关于使用Delphi进行图像处理和高级应用的资源。这个光盘的焦点在于教导开发者如何利用Delphi的强大功能来处理和分析数字图像，从而实现各种视觉效果或者专业级的...
图像动画系统-delphi图片调试程序
05-18
摘要:Delphi源码,图形处理,图像动画,图片调试　图像动画系统-delphi图片调试程序，将一图像序列载入合成动画，可编辑图像序列，不过这些序列需要你事先准备好的，找不到序列的情况下，打开程序如上图所示。
DELPHI多图片合成一图片
09-29
DELPHI多合成一源代码，绝对可编译。
delphi图像处理
10-14
delphi图像处理
Delphi 中图像的处理
01-17
Delphi 中图像的处理，包括了Delphi 程序图像处理过程中的开发技巧
delphi合成图片.rar
06-16
delphi 合成图片，可以合成任何类型的图片最后生成bmp图片，适合初学者学习图片转换，还有位图合成等。
Delphi实现三张图片合成
路漫漫... ...,但是它终究有终点
08-17 3694
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls,StrUtils,Qt,Zlib,JPEG,Math, FileCtrl,initialize; procedure TF_tphc.Button1Click(Sender
delphi 如何将两张图片合并成一张
zzflover的专栏
09-05 6881
有两张图片，我想通过程序把他合并成一张，然后另存为一张新图 var        DestRect,SrcRect:TRect;    begin        DestRect:=Rect(0,0,Image2.Width,Image2.Height);        SrcRect  :=DestRect;        Image2.Canvas.CopyMode:=cmSrcAnd
delphi 图片jpg多张拼接到一张jpg
最新发布
qq_39951605的博客
04-06 469
【代码】delphi 图片jpg多张拼接到一张jpg。
Delphi图像处理 -- 色相/饱和度调整
闲人阿发伯的业余编程心得
11-06 5004
阅读提示：    《Delphi图像处理》系列以效率为侧重点，一般代码为PASCAL，核心代码采用BASM。    《C++图像处理》系列以代码清晰，可读性为主，全部使用C++代码。    尽可能保持二者内容一致，可相互对照。    本文代码必须包括文章《Delphi图像处理 -- 数据类型及公用过程》中的ImageData.pas单元。     本文是基于《GDI+在Delphi程序的应用 –
Delphi使用API进行图像处理：ExtractIcon函数详解
"Delphi版的API图像函数主要涉及Windows API中的图像处理，特别是与提取图标相关的函数。这些函数允许开发者从可执行文件（EXE）、动态链接库（DLL）或图标文件（ICO）中获取图标资源。" 在Delphi编程中，`WinAPI:...
评论 8
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值