delphi验证码识别学习之图像的灰度化、二值化及反色

原作者: [db:作者] 来自: [db:来源] 收藏邀请

图像的灰度化、二值化和反色是些较简单的图像像素处理过程，我在《GDI+ 在Delphi程序的应用 -- ColorMatrix与图像灰度化》和《GDI+ 在Delphi程序的应用 -- 图像二值化》二篇文章中讲了如何利用GDI+的ColorMatrix实现图像灰度化和二值化，但是那种处理只适合GDI+的图像类，本文的方法同时适用于GDI+图像和Delphi的TGraphic图像。

过程定义：

  // 图像求反
  procedure ImageInvert(var Data: TImageData);
  // 灰度化图像
  procedure ImageGray(var Data: TImageData);
  // 灰度统计。GrayData为灰度统计结构；缺省统计彩色图灰度，
  procedure ImageGrayStat(const Data: TImageData; var GrayData: TGrayStatData;
    IsGrayImage: Boolean = False);
  // 二值化图像。Threshold阀值，需要32位灰度图数据
  procedure ImageTwoValues(var Data: TImageData; Threshold: LongWord = 127);
  // 动态阀值(子图灰度平均值)二值化图像，SubSize子图大小，需要32位灰度图数据
  procedure ImageDynamTwoValues(var Data: TImageData; SubSize: Integer);

实现代码：

procedure ImageInvert(var Data: TImageData);
asm
    push    edi
    push    ebx
    call    IsValid32
    jc      @@Exit
    call    SetDataRegs32
    mov     eax, 0ffffffh
@@yLoop:
    push    ecx
@@xLoop:
    xor     [edi], eax
    add     edi, 4
    loop    @@xLoop
    pop     ecx
    add     edi, ebx
    dec     edx
    jnz     @@yLoop
@@Exit:
    pop     ebx
    pop     edi
end;

procedure ImageGray(var Data: TImageData);
asm
    push    ebp
    push    esi
    push    edi
    push    ebx
    call    IsValid32
    jc      @@Exit
    call    SetDataRegs32
@@yLoop:
    push    ecx
@@xLoop:
    movzx   eax, [edi].TARGBQuad.Blue
    movzx   esi, [edi].TARGBQuad.Green
    movzx   ebp, [edi].TARGBQuad.Red
    imul    eax, 117        // blue   0.114 * 1024
    imul    esi, 601        // green  0.587 * 1024
    imul    ebp, 306        // red    0.299 * 1024
    add     eax, esi
    add     eax, ebp
    add     eax, 512        // Rounding
    shr     eax, 10         // eax = Round((R * 306 + G * 601 + B * 117) / 1024)
    mov     [edi].TARGBQuad.Red, al
    mov     [edi].TARGBQuad.Green, al
    mov     [edi].TARGBQuad.Blue, al
    add     edi, 4
    loop    @@xLoop
    pop     ecx
    add     edi, ebx
    dec     edx
    jnz     @@yLoop
@@Exit:
    pop     ebx
    pop     edi
    pop     esi
    pop     ebp
end;

procedure GrayStat(const Data: TImageData; var GrayData: TGrayStatData; IsGrayImage: Boolean);
asm
    push    ebp
    push    esi
    push    edi
    push    ebx
    mov     edi, edx        // edi = GrayData
    mov     edx, ecx
    mov     esi, [eax].TImageData.Scan0
    mov     ecx, [eax].TImageData.Width
    mov     ebx, [eax].TImageData.Height
    mov     ebp, [eax].TImageData.Stride
    mov     eax, ecx
    shl     eax, 2
    sub     ebp, eax            // ebp = offset
    mov     eax, ecx
    imul    eax, ebx
    push    eax                 // Total pixel count
    push    ecx                 // init Grays
    push    edi
    mov     ecx, 256
    xor     eax, eax
    rep     stosd
    pop     edi
    pop     ecx
    cmp     edx, TRUE
    je      @@yGrayLoop
    // 建立彩色图的灰度数组
@@yLoop:
    push    ecx
@@xLoop:
    movzx   eax, [esi].TARGBQuad.Blue
    movzx   edx, [esi].TARGBQuad.Green
    imul    eax, 117            // blue   0.114 * 1024
    imul    edx, 601            // green  0.587 * 1024
    add     edx, eax
    movzx   eax, [esi].TARGBQuad.Red
    imul    eax, 306            // red    0.299 * 1024
    add     eax, edx
    add     eax, 512            // Rounding
    shr     eax, 10             // eax = Round((R * 306 + G * 601 + B * 117) / 1024)
    inc     dword ptr [edi].TGrayStatData.Grays[eax*4]// grayData.Grays[eax] ++
    add     esi, 4              // esi += 4
    loop    @@xLoop
    pop     ecx
    add     esi, ebp
    dec     ebx
    jnz     @@yLoop
    jmp     @@SumStart
    // 建立灰度图的灰度数组
@@yGrayLoop:
    push    ecx
@@xGrayLoop:
    movzx   eax, [esi].TARGBQuad.Blue// eax = Gray = *esi
    inc     dword ptr [edi].TGrayStatData.Grays[eax*4]// grayData.Grays[eax] ++
    add     esi, 4              // esi +=4
    loop    @@xGrayLoop
    pop     ecx
    add     esi, ebp
    dec     ebx
    jnz     @@yGrayLoop
    // 计算总的灰度值、最大灰度值及最小灰度值
@@SumStart:
    push    edi
    xor     eax, eax            // edx:eax = 0 (GrayData.Total)
    xor     edx, edx
    mov     esi, edi            // esi = ebx = &GrayData.Grays[0]
    mov     ebx, edi
    xor     ecx, ecx            // for (index = 0; index < 256; index ++)
@@SumLoop:                      // {
    mov     ebp, [edi]
    cmp     [esi], ebp
    jae     @@1
    mov     esi, edi            //   if (*esi < *edi) esi = edi
@@1:
    cmp     [ebx], ebp
    jbe     @@2
    mov     ebx, edi            //   if (*ebx > *edi) ebx = edi
@@2:
    imul    ebp, ecx            //   ebp = *edi * index
    add     eax, ebp            //   edx:eax += ebp
    adc     edx, 0
    add     edi, 4              //   edi += 4
    inc     ecx
    cmp     ecx, 255
    jle     @@SumLoop           // }
    pop     edi
    sub     ebx, edi
    shr     ebx, 2              // ebx = (ebx - &GrayData.Grays[0]) / 4
    mov     [edi].TGrayStatData.MinGray, ebx// GrayData.MinGray = ebx
    sub     esi, edi
    shr     esi, 2              // esi = (esi - &GrayData.Grays[0]) / 4
    mov     [edi].TGrayStatData.MaxGray, esi// GrayData.MaxGray = esi
    pop     ebx
    mov     [edi].TGrayStatData.Count, ebx // GrayData.Count = data.Width * data.Height
    mov     dword ptr [edi].TGrayStatData.Total, eax // GrayData.Total = edx:eax
    mov     dword ptr [edi].TGrayStatData.Total+4, edx
    mov     ecx, ebx
    shr     ecx, 1
    add     eax, ecx
    adc     edx, 0
    idiv    ebx
    // GrayData.Average = (GrayData.Total + GrayData.Count / 2) / GrayData.Count)
    mov     [edi].TGrayStatData.Average, eax
@@Exit:
    pop     ebx
    pop     edi
    pop     esi
    pop     ebp
end;

procedure ImageGrayStat(const Data: TImageData;
  var GrayData: TGrayStatData; IsGrayImage: Boolean);
begin
  if not ImageEmpty(Data) then
    GrayStat(Data, GrayData, IsGrayImage);
end;

procedure TwoValues(var Data: TImageData; Threshold: LongWord);
asm
    push    ebp
    push    esi
    push    edi
    push    ebx
    push    edx
    call    SetDataRegs32
    pop     eax
    mov     esi, 000ffffffh
    mov     ebp, esi
    not     ebp
@@yLoop:
    push    ecx
@@xLoop:
    cmp     [edi], al
    jb      @@1
    or      [edi], esi
    jmp     @@2
@@1:
    and     [edi], ebp
@@2:
    add     edi, 4
    loop    @@xLoop
    pop     ecx
    add     edi, ebx
    dec     edx
    jnz     @@yLoop
@@Exit:
    pop     ebx
    pop     edi
    pop     esi
    pop     ebp
end;

procedure ImageTwoValues(var Data: TImageData; Threshold: LongWord);
begin
  if not ImageEmpty(Data) then
    TwoValues(Data, Threshold);
end;

procedure ImageDynamTwoValues(var Data: TImageData; SubSize: Integer);
var
  Sub: TImageData;
  GrayData: TGrayStatData;
  x, y: Integer;
begin
  if ImageEmpty(Data) then Exit;
  if SubSize <= 0 then
  begin
    GrayStat(Data, GrayData, True);
    TwoValues(Data, GrayData.Average);
    Exit;
  end;
  y := 0;
  while y < Data.Height do
  begin
    x := 0;
    while x < Data.Width do
    begin
      Sub := GetSubData(Data, x, y, SubSize, SubSize);
      GrayStat(Sub, GrayData, True);
      TwoValues(Sub, GrayData.Average);
      Inc(x, SubSize);
    end;
    Inc(y, SubSize);
  end;
end;

灰度化过程还是依照大多数图像灰度处理惯例，计算YUV颜色空间的Y分量作为灰度图，公式为：

Y = 0.299 * R + 0.587 * G + 0.114 * B

本文灰度过程使用了定点数处理，将上面公式中的常数乘上1024，加快了处理过程，伪代码为：

Y = (306 * R + 601 * G + 117 * B + 512) >> 10

代码中的+512是做四舍五入，右移10位等于除以1024。

图像灰度统计过程和图像灰度化过程采用了相同的原理和计算过程，只不过没有改变图像，而是以计算结果作为256色灰度阶数组的下标，增加该灰度阶的个数而已。所有图像灰度统计指标都存放在TGrayStatData类型的结构中。见《Delphi图像处理 -- 数据类型及内部过程》。

图像二值化过程是在图像灰度处理基础上进行的，由于R、G、B三个分量相等，所以只要把任何其中一个与阀值比较即可：大于阀值为255，否则为0。因灰度图像素格式是32位的，所以过程中直接以0x00FFFFFF或RGB三个分量为255，以0xFF000000与RGB三个分量为0，图像二值化的黑白效果取决于阀值的大小。

因有些图像的灰度分布不太均匀，为了加强图像的二值特征，本文尝试写了一个图像动态分组二值化过程ImageDynamTwoValues，即将图像分组为一定大小的子图，对各子图分别进行灰度统计后，以该子图的灰度平均值为阀值进行子图的二值化，不过在测试过程中，发现如果子图尺寸确定的不合适，各子图之间有很明显的区别，这对图像的二值分析显然是不利的。

至于图像的反色处理更简单，直接用0xFFFFFF和RGB异或就成。

图像动态分组二值化例子：

var
  jpg: TJPEGImage;
  Data: TImageData;
  GrayData: TGrayStatData;
begin
  jpg := TJPEGImage.Create;
  jpg.LoadFromFile('D:\VclLib\GdiplusDemo\Media\20041001.jpg');
  Canvas.Draw(0, 0, jpg);
  Data := GetImageData(jpg);
  ImageGray(Data);
//  ImageTwoValues(Data);
  ImageDynamTwoValues(Data, 128);
  ImageDataAssignTo(Data, jpg);
  Canvas.Draw(0, 0, jpg);
  FreeImageData(Data);
  jpg.Free;
end;

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

用Matlab实现CGNR算法发布时间：2022-07-18

matlab解方程学习——rref函数发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：19072|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9956|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8310|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8680|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8618|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9630|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8602|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：7984|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8626|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7523|2022-11-06

客服电话

电子邮件

delphi验证码识别学习之图像的灰度化、二值化及反色

请发表评论

全部评论

上一篇：

下一篇：

lidong1665/AndroidRapidLibrary: Android

TanKode/fivem-lua-sdk: This is a LUA SDK

srctips/time-tracker: Java (Maven) appli

ZzzM/HostsX: A lightweight macOS App for

kimonoki/tg-mstdn: Toot on mastodon usin

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053