Delphi图像处理 -- 设置阈值

阅读提示：
《Delphi图像处理》系列以效率为侧重点，一般代码为PASCAL，核心代码采用BASM。
《C++图像处理》系列以代码清晰，可读性为主，全部使用C++代码。
尽可能保持二者内容一致，可相互对照。 本文代码必须包括文章《Delphi图像处理 -- 数据类型及公用过程》中的ImageData.pas单元。

GDI+的TGpImageAttributes类提供了设置图像阈值的功能，下面是使用TGpImageAttributes设置图像阈值的代码：

var
  Image: TGpBitmap;
  g: TGpGraphics;
  Attr: TGpImageAttributes;
  r: TGpRect;
begin
  Image := TGpBitmap.Create('..\..\media\20041001.bmp');
  g := TGpGraphics.Create(Handle, False);
  r := GpRect(0, 0, Image.Width, Image.Height);
  g.DrawImage(Image, r);
  Attr := TGpImageAttributes.Create;
  Attr.SetThreshold(0.5);  // 设置阈值0.5，相当于RGB值128 
  g.TranslateTransform(0, 210);
  g.DrawImage(Image, r, r.X, r.Y, r.Width, r.Height, utPixel, Attr);
  Attr.Free;
  g.Free;
  image.Free;
end;

运行效果图：




对图像设置阈值后，图像最多只存在8种颜色，即红、黄、绿、青、蓝、紫及黑与白。如果是灰度图，设置阈值后，只有黑白2种颜色，即通常所说的二值图，原理及测试例子可见《GDI+ for VCL基础 -- 图像显示辅助类ImageAttributes》一文。
上面的设置阀值方法只是用来显示，如果要保存阈值图，必须建立新位图，然后画上去，而且也不能直接设置Delphi的TBitmap图像。
下面是设置图像阈值过程和一个使用VCL位图TBitmap类型的例子代码：

procedure ImageSetThreshold(var Data: TImageData; Value: LongWord);
asm
    push        edi
    push        ebx
    dec         edx
    and         edx, 0ffh
    movq        mm2, qword ptr ArgbTab[edx*8]
    pxor        mm7, mm7
    call        _SetDataRegs
@@yLoop:
    push        ecx
@@xLoop:
    mov         al, [edi].TARGBQuad.Alpha
    movd        mm0, [edi]
    punpcklbw   mm0, mm7
    pcmpgtw     mm0, mm2
    packsswb    mm0, mm0
    movd        [edi], mm0
    mov         [edi].TARGBQuad.Alpha, al
    add         edi, 4
    loop        @@xLoop
    pop         ecx
    add         edi, ebx
    dec         edx
    jnz         @@yLoop
    emms
@@Exit:
    pop         ebx
    pop         edi
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  bmp: TBitmap;
  data: TImageData;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('..\media\20041001.bmp');
  Canvas.Draw(0, 0, bmp);
  data := GetBitmapData(bmp);
  ImageSetThreshold(data, 128);
  Canvas.Draw(0, bmp.Height, bmp);
  bmp.Free;
end;

测试效果与前面利用TGpImageAttributes设置阈值的效果图完全一样。

《Delphi图像处理》系列使用GDI+单元下载地址和说明见文章《GDI+ for VCL基础 -- GDI+ 与 VCL》。
因水平有限，错误在所难免，欢迎指正和指导。邮箱地址：maozefa@hotmail.com
这里可访问《Delphi图像处理 -- 文章索引》。