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》。
因水平有限，错误在所难免，欢迎指正和指导。邮箱地址：[email protected]
这里可访问《Delphi图像处理 -- 文章索引》。