【汉化任务简报】#27 图片交集像素抽出程序

shane007

现在假设有100张BMP图片，这些图片宽高互相之间都彼此相同，当然每张的宽和高都不一样。
2 r/ d% I- M: \; Q( v2 j图片的背景都不同，但是上面都用一种颜色写着一个汉字，比如是黄色。
要求抽出一些像素，这些像素满足以下条件
% w% L( A9 z+ k' ~
1. 颜色都相同是黄色
2.在图片中的位置x,y都相同
3.这些点在每张图片中都出现
: C- g1 v* o1 c" l( N/ k
要求程序能对应24bit  bmp 和32bit bmp

把所有满足条件的点的x,y都输出到一个文本文件就行。
8 a' u0 U* b9 t0 @6 r- D3 |& e这个程序主要是用来做图像识别的预处理。

肥牛

查找像素的问题不难，难的是识别成文本文件。OCR的技术还是比较困难的。对于英文字体来说，26个字母+数字+符号可以生成码表查找，但是存在几个问题：
) K- k2 h  j+ b5 i3 s- k1 [; s1、每个字符的宽度不同，这样在获取的时候有一定困难；
2 @& c- t0 Q' S9 h/ c- c6 _" ^! M/ f2、文字字体假如不同，就需要建立不同的对码表；
2 |: \  P! m) S3 O2 b  M, p3、如果是汉字，那需要的码表就更复杂了
# e; U7 }) L$ |4 a暂时只想到这些。

shane007

引用第1楼肥牛于2009-06-03 20:13发表的  :
查找像素的问题不难，难的是识别成文本文件。OCR的技术还是比较困难的。对于英文字体来说，26个字母+数字+符号可以生成码表查找，但是存在几个问题：
1、每个字符的宽度不同，这样在获取的时候有一定困难；
3 t/ ]: L! c: u- ?, u& [8 f2、文字字体假如不同，就需要建立不同的对码表；
3、如果是汉字，那需要的码表就更复杂了
$ v3 L) F8 y0 m2 z暂时只想到这些。

% V  C1 g( x( I$ C% j& V9 i
- k) x, \9 B% y3 r, r呵呵。这些问题我早就想到了。
) H8 O$ p0 S3 O* b$ N9 F0 ?) ^办法都有了，就是最近这几天的事情。
! n5 u7 h+ ?5 K+ ~7 g8 D只是还来不及详细写出来。
你先看看我最近的帖子。
等等，我来解释。。。

shane007

你先看看这个帖子
$ O* R, C, p# P3 ^https://www.chinaavg.com/read.php?tid=17369
* X! W* |9 A' b9 m) v! I; ~8 J( Q
/ U5 p4 ~4 a. B& z; R- `9 @( U9 N其实对你的问题都有回答了，
字符的宽度和高度肯定要调整，通过修改xml和tga来调整。
7 s$ _* O. q: D7 x% h: K6 W' }7 t我识别的不是字体，是色块和像素。
也就是我说的变型条形码和2维码。
的确要建立码表。
& O, {; X8 K% Q# R
8 _, R* I/ V% W% a$ }: O3 {2 y! e需要进一步解释吗？

firendless

VB,DELPHI都有一种异或笔刷,可以试一试~
C的话调用GDI进行XOR应该可以,我先试一试去~

firendless

补个VB CODE..

- b, ^/ B( M  c3 T+ a) r这个意思？

shane007

引用第5楼firendless于2009-06-04 21:50发表的  :
6 W; l# i4 u) a; N" }+ E# A) p补个VB CODE..
. l- p$ o( K8 {5 y  s
& x- B# n& N/ n  a- y3 I, ^这个意思？

你把代码放出来吧。
光测试看不出对不对。

firendless

别说丑...种子扫描算法..[就是平推]

1. Option Explicit
2. Private Declare Function GetPixel _
3.                 Lib "gdi32" (ByVal hdc As Long, _
4.                              ByVal x As Long, _
5.                              ByVal y As Long) As Long
7. Private Sub cmdText_Click()
9.     With picBox
10.         .Cls
11.         .ForeColor = vbYellow
12.         picBox.Print "This is a test."
13.     End With
15. End Sub
17. Private Sub cmdWork_Click()
19.     Dim x      As Single, y As Single, w As Single, h As Single
21.     Dim strOut As String, strTmp As String, lngTmp As Long
23.     With picBox
24.         w = .Width
25.         h = .Height
26.     End With
28.     strOut = ""
29.     strTmp = ""
31.     For x = 0 To w
33.         For y = 0 To h
35.             lngTmp = GetPixel(picBox.hdc, x, y)
37.             If lngTmp = 0 Then
39.                 strTmp = "x:" & x & " y:" & y & vbNewLine
41.                 strOut = strOut & strTmp
42.    
43.             End If
44.    
45.         Next
46.    
47.     Next
49.     txtOut = strOut
51. End Sub
53. Private Sub cmdXor_Click()
55.     With picBox
56.         .DrawMode = vbXorPen
57.         picBox.Line (0, 0)-(.Width, .Height), vbYellow, BF
58.     End With
60. End Sub

复制代码

shane007

放着，以后可能会有用。

这个事情不难，我给你写个小程式~
6 m; @6 s. z4 _' C0 o就是取一个图片，把图片中所有的指定颜色的XY坐标集输出到TXT中对吧？