今天终于完成了基于索引的二值图像…

1。没有相关的图像处理理论基础，在网上搜索学习。

最简单的是基于字典索引的3*3 模板细化，由于网上的都是C语言的，在转换代码是，忽略了应该多次循环直到没有点可以删除，所以效果一直不理想。

2。虽然这个方法有些毛刺，但是作为数字验证码识别基本上完成了（vb2008代码如下）

 Function ThiningDIB(ByVal sImage(,) As Boolean)

        '基于索引表的细化细化算法
        '功能：对图象进行细化
        '参数：sImage(,) ：代表图象的二维数组
        ' 返回值：细化处理后的二值二维数组

        Dim Image_W As Int16 = UBound(sImage, 1)   '图像宽       

       Dim Image_H As Int16 = UBound(sImage, 2)   '图像高
        Dim finished1, finished2 As Int16
        Dim x, y As Int16
        Dim nw, n, ne, w, e, sw, s, se As Boolean
        Dim sum As Integer
        Dim deletemark() As Boolean = { _
0, 0, 1, 1, 0, 0, 1, 1, _
1, 1, 0, 1, 1, 1, 0, 1, _
1, 1, 0, 0, 1, 1, 1, 1, _
0, 0, 0, 0, 0, 0, 0, 1, _
0, 0, 1, 1, 0, 0, 1, 1, _
1, 1, 0, 1, 1, 1, 0, 1, _
1, 1, 0, 0, 1, 1, 1, 1, _
0, 0, 0, 0, 0, 0, 0, 1, _
1, 1, 0, 0, 1, 1, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, _
1, 1, 0, 0, 1, 1, 0, 0, _
1, 1, 0, 1, 1, 1, 0, 1, _
0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 1, 1, 0, 0, 1, 1, _
1, 1, 0, 1, 1, 1, 0, 1, _
1, 1, 0, 0, 1, 1, 1, 1, _
0, 0, 0, 0, 0, 0, 0, 1, _
0, 0, 1, 1, 0, 0, 1, 1, _
1, 1, 0, 1, 1, 1, 0, 1, _
1, 1, 0, 0, 1, 1, 1, 1, _
0, 0, 0, 0, 0, 0, 0, 0, _
1, 1, 0, 0, 1, 1, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, _
1, 1, 0, 0, 1, 1, 1, 1, _
0, 0, 0, 0, 0, 0, 0, 0, _
1, 1, 0, 0, 1, 1, 0, 0, _
1, 1, 0, 1, 1, 1, 0, 0, _
1, 1, 0, 0, 1, 1, 1, 0, _
1, 1, 0, 0, 1, 0, 0, 0 _
}

        '索引表
        '去除边缘，应为边缘无法计算3*3邻居
        For y = 0 To Image_H
            sImage(0, y) = 0
            sImage(Image_W, y) = 0
        Next

        For x = 0 To Image_W
            sImage(x, 0) = 0
            sImage(x, Image_H) = 0
        Next
        '开始细化

        finished1 = False
        finished2 = False
        '水平扫描
        Try
            Do
                finished1 = 0

                For y = 1 To Image_H - 1
                    For x = 1 To Image_W - 1
                        If sImage(x, y) = True Then
                            w = sImage(x - 1, y)
                            e = sImage(x + 1, y)
                            '判断当前点是否边界点
                            If (w = True Or e = True) Then
                                nw = sImage(x - 1, y - 1)
                                n = sImage(x, y - 1)
                                ne = sImage(x + 1, y - 1)
                                sw = sImage(x - 1, y + 1)
                                s = sImage(x, y + 1)
                                se = sImage(x + 1, y + 1)
                                sum = Int(nw) + Int(n) * 2 + Int(ne) * 4 + Int(w) * 8 + Int(e) * 16 + Int(sw) * 32 + Int(s) * 64 + Int(se) * 128
                                If deletemark(sum) = True Then
                                    sImage(x, y) = False
                                    x += 1  '横向跳过下个邻点
                                    finished1 += 1
                                End If
                            End If
                        End If
                    Next
                Next
            Loop While finished1 > 0
            Do
                '垂直扫描
                finished2 = 0
                For x = 1 To Image_W - 1
                    For y = 1 To Image_H - 1
                        If sImage(x, y) = True Then
                            n = sImage(x, y - 1)
                            s = sImage(x, y + 1)
                            '判断当前点是否边界点
                            If (n = True Or s = True) Then
                                w = sImage(x - 1, y)
                                e = sImage(x + 1, y)
                                nw = sImage(x - 1, y - 1)
                                ne = sImage(x + 1, y - 1)
                                sw = sImage(x - 1, y + 1)
                                se = sImage(x + 1, y + 1)
                                sum = Int(nw) + Int(n) * 2 + Int(ne) * 4 + Int(w) * 8 + Int(e) * 16 + Int(sw) * 32 + Int(s) * 64 + Int(se) * 128
                                If deletemark(sum) = True Then
                                    sImage(x, y) = False
                                    y += 1   '纵向跳过下个邻点
                                    finished2 += 1
                                End If
                            End If
                        End If
                    Next
                Next
            Loop While finished2 > 0

              '删除孤立点，如果前期二值化做的好，就忽略下面这些           

            For x = 1 To Image_W - 1
                For y = 30 To Image_H - 1
                    If sImage(x, y) = True Then
                        n = sImage(x, y - 1)
                        s = sImage(x, y + 1)
                        w = sImage(x - 1, y)
                        e = sImage(x + 1, y)
                        nw = sImage(x - 1, y - 1)
                        ne = sImage(x + 1, y - 1)
                        sw = sImage(x - 1, y + 1)
                        se = sImage(x + 1, y + 1)
                  sum = Int(nw) + Int(n) + Int(ne) + Int(w) + Int(e) + Int(sw) + Int(s) + Int(se)
                        If sum = 0 Then
                            sImage(x, y) = False '删除孤立点
                        End If
                    End If
                Next
            Next
        Catch ex As Exception
            Exit Try
        End Try
        Return sImage
    End Function
End Module