Delphi图像处理 -- 模糊

阅读提示：

    《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    emmsend;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》。

    因水平有限，错误在所难免，欢迎指正和指导。邮箱地址：[e-mail]

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