将图像扫描生成二进制文件的问题

Question

将一个图片框中的图像进行扫描，如果当前点的颜色值小于中间色则用“1”表示，否则用“0”表示，然后将这些信息写进二进制文件中，生成一个二进制文件。请问有源代码吗？谢谢
一般的生成的二进制文件是不是以.dat为扩展名的

Answer 1

//一般的生成的二进制文件是不是以.dat为扩展名的
扩展名倒无所谓,是按二进制写的就可以,再帮你顶一下吧

Answer 2

Public Function Get2Value (ByVal Colr As Long) As Long
' Takes a long integer color value,
' returns an equivalent grayscale value
' between 0 and 255
Dim R As Long, G As Long, B As Long
' Break up long color into r, g, b
R = Colr Mod 256
Colr = Colr \ 256
G = Colr Mod 256
Colr = Colr \ 256
B = Colr Mod 256
' Find equivalent grayscale value
Get2Value = IIf((77 * R + 150 * G + 28 * B) / 255 > 127, 1, 0)
End Function

Answer 3

谢谢上面两位，是将Get2Value在存入文件中吗？