Delphi图像处理 -- 模糊

最新推荐文章于 2024-09-16 13:53:52 发布

阿发伯

最新推荐文章于 2024-09-16 13:53:52 发布

阅读量5k

点赞数 1

分类专栏： Delphi图像处理 Delphi

本文链接：https://blog.csdn.net/maozefa/article/details/8496634

版权

Delphi 同时被 2 个专栏收录

74 篇文章 9 订阅

订阅专栏

Delphi图像处理

43 篇文章 14 订阅

订阅专栏

阅读提示：

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

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

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

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

Photoshop的模糊滤镜似乎使用的不多，大多数情况下都是使用高斯模糊。

Photoshop模糊处理很简单，就是对图像做一个卷积，其卷积模板为：

0 1 0

1 4 1

0 1 0

可以用《Delphi图像处理 -- 图像卷积》中的通用卷积过程进行处理，不过，使用专门的处理过程应该还是快些，所以，写了一个图像模糊处理过程贴在下面：

procedure DoBlur(var Dest: TImageData; const Source: TImageData);
asm
    push      ebp
    push      esi
    push      edi
    push      ebx
    mov       ebp, [edx].TImageData.Stride
    call      _SetCopyRegs
    pxor      mm7, mm7
    pcmpeqw   mm5, mm5
    psrlw     mm5, 15
    psllw     mm5, 2
@@yLoop:
    push      ecx
@@xLoop:
    // dest.argb = (center * 4 + up + down + left + right + 4) / 8
    movd      mm2, [esi+4]      // up
    movd      mm1, [esi+ebp]    // left
    movd      mm0, [esi+ebp+4]  // center
    movd      mm3, [esi+ebp+8]  // right
    movd      mm4, [esi+ebp*2+4]// down
    punpcklbw mm0, mm7
    punpcklbw mm1, mm7
    punpcklbw mm2, mm7
    punpcklbw mm3, mm7
    punpcklbw mm4, mm7
    psllw     mm0, 2
    paddw     mm0, mm1
    paddw     mm0, mm2
    paddw     mm0, mm3
    paddw     mm0, mm4
    paddw     mm0, mm5
    psrlw     mm0, 3
    packuswb  mm0, mm7
    movd      [edi], mm0
    add       esi, 4
    add       edi, 4
    loop      @@xLoop
    pop       ecx
    add       esi, eax
    add       edi, ebx
    dec       edx
    jnz       @@yLoop
    pop       ebx
    pop       edi
    pop       esi
    pop       ebp
    emms
end;

procedure ImageBlur(var Data: TImageData);
var
  src: TImageData;
begin
  if Data.AlphaFlag then
    ArgbConvertPArgb(Data);
  src := _GetExpandData(Data, 1);
  DoBlur(Data, src);
  if Data.AlphaFlag then
    PArgbConvertArgb(Data);
  FreeImageData(src);
end;

下面是个调用模糊过程的简单例子：

procedure TForm1.Button3Click(Sender: TObject);
var
  bmp: TGpBitmap;
  g: TGpGraphics;
  data: TImageData;
begin
  bmp := TGpBitmap.Create('..\..\media\source.bmp');
  data := LockGpBitmap(bmp);
  ImageBlur(data);
  UnlockGpBitmap(bmp, data);
  g := TGpGraphics.Create(Canvas.Handle);
  g.DrawImage(bmp, 0, 0);
  g.Free;
  bmp.Free;
end;

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

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

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