简单而又快速的获取一副真彩色图像实际使用的颜色数。

　　一副真彩色图像，最多可能使用的颜色数为256*256*256=16777216种，但是通常情况下绝对不会有如此之多，因为即使图像中每个像素颜色都不相同，也至少需要4096×4096大小的图，这么大小的图对目前的数码相机来说也不普遍。因此，在现实中一副颜色很丰富的彩色图像，其使用的不同颜色数一般都不会超过100万。本文介绍一种简单而又快速的统计这个数据的方法。

      一种最简单而又直接的方式就是定义一个含有16777216个元素的数组，然后循环整幅位图，对位图某处对应的颜色值，计算数组的索引，计算方式有很多种，比如：

      Index = Red + Green * 256 + Blue * 65536

      如果该位置的数组的值为0，则修改为1，同时计数器增加1；如果为1，说明图像中之前已经存在该颜色，不做任何处理，直接处理下一个像素。

      因为我们只需要记录0和1两种状态，因此布尔变量是比较合适的，不过有些语言，比如VB6，布尔类型是占用两个字节的。一般的编程语言中最小的数据类型都是Byte，即一个字节，因此，16777216个最少需要占用16MB的内存。简单示意代码如下：

 1     Dim Flag(16777215) As Byte
 2     For Y = 0 To m_Height - 1
 3         Speed = Y * m_Stride            '移动到下一行首个像素
 4         For X = 0 To m_Width - 1
 5             Index = ImageData(Speed + 2) + ImageData(Speed + 1) * 256& + ImageData(Speed) * 65536   '计算索引
 6             If Flag(Index) = 0 Then     '如果之前没有出现过该颜色值
 7                 Flag(Index) = 1         '该颜色值已经出现
 8                 Count = Count + 1       '计数加1
 9             End If
10             Speed = Speed + 3           '移动到下一个像素
11         Next
12     Next

      这个代码很简单，也很容易明白，不过令人不是很满意是16MB内存的占用，对于一副3000×4000的图像来说，也许没啥概念，可如果本身是一副300×400的图呢，这个内存比图本身占用的内存还大很多，因此，我们试图对这个方面进行适当的改良。

      改良的方式也是很简单，也许大家都能想得到：既然每种颜色只有0和1两种状态，那为何不用位来记录该颜色是否存在过呢。基于这个想法，我们的数组大小就可以修改成16777216/8=2097152字节，即2MB大小。
      这样做的好处内存占用量减少为原先的1/8,坏处就是访问位信息要比直接访问字节困难。不过有这么大的内存占用优势，困难是值得的。

      首先，我们要定位某个颜色值在我们新定义的数组中对应的索引BytePos，这个没有问题，直接除以8就可以了，8非常特殊，除以8可以优化为右移3位，右移是高效的运算符，很好。

      接着，我们要得到需要访问BytePos索引对应的字节的第几位。第几位，很简单，就是颜色值的原始索引（Index变量）对8进行取余运算而已，可惜，取余运算符是个耗时的运算符，但同样可幸，是对8取余，And运算符能帮我们解决。对8取余就是对7进行And运算： Index mod 8 == Index And 7 。 8我爱你。

      下一步，没啥好说的了，判断该位是否为0啊，这里我们还是借用And运算，用该位的位置对应的特殊数据进行按位和运算，如果运算后的结果为0，则表示该颜色没有存在过，改变状态，并且将其改为1，改为1的方式加上我们的特殊数据即可，同时计数器加1，；如果不为0（不用管他为多少），则不用做任何处理了。

      我们简单的看下实现的代码：

 1     Dim Flag(2097151)   As Byte
 2     Dim Pow2(7)         As Long
 3     Dim BitPos          As Long
 4     Dim BytePos         As Long
 5     For Y = 0 To 7
 6         Pow2(Y) = 2 ^ (7 - Y)
 7     Next
 8     For Y = 0 To m_Height - 1
 9         Speed = Y * m_Stride                                    '移动到下一行首个像素
10         For X = 0 To m_Width - 1
11             Index = ImageData(Speed + 2) + ImageData(Speed + 1) * 256& + ImageData(Speed) * 65536   '计算索引
12             BytePos = Index \ 8                                 '计算索引对应的字节位置
13             BitPos = Index And 7                                '计算索引对应的位的位置
14             If (Flag(BytePos) And Pow2(BitPos)) = 0 Then        '判断改位是否为1
15                 Flag(BytePos) = Flag(BytePos) + Pow2(BitPos)    '不为1，则修改为1
16                 Count = Count + 1                               '计数器增1
17             End If
18             Speed = Speed + 3                                   '移动到下一个像素
19         Next
20     Next

 

 　　注意，这里的列出的是VB的代码，实际上 ImageData(Speed + 1) * 256&这种表达式在勾选上高级优化时编译器会自动编译为左移8位的，而 Index \ 8则会优化为Index>>3，因此，速度上不会和其他有这些运算符的语言有差别。当然，如果直接用类似VC的语言，请直接使用这些运算符。

      关于那个Pow2数组的使用，我感觉我自己表达能力有限，为什么有那种效果，其实明白人还是一看就知道的。在这就不多言了。

      两种方式，在我自己的本机上编译后，居然是后一种算法的速度快一些，这个除了是分配内存时使用的使用的时间稍微少些外，其他的实在是不明白，也许和内存的访问之类有关吧，我对这方面了解粗浅，还烦请有兴趣的高手指点。