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》。

    因水平有限，錯誤在所難免，歡迎指正和指導。郵箱地址：maozefa@hotmail.com

    這裡可訪問《Delphi影像處理 -- 文章索引》。