如何利用VFP 来对JPG 图片 进行识别

http://bbs.csdn.net/topics/391053201

如图 是学生没有填涂的空图，如果现在有学生填涂了，想识别出来，考生填涂的字母及对应的位置。请问如何实现，最好有例子或关键程序段。

回复于： 2015-06-14 11:17:52

vfp 不太适合做这种事情，给一个简单的测试例，已提供思路

PUBLIC oform1

oform1=NEWOBJECT("form1")

oform1.Show

RETURN

**************************************************

*-- Form:         form1 (d:\amp\web\vfp\ocr.scx)

*-- 父类:  form

*-- 基类:    form

*

DEFINE CLASS form1 AS form

Top = 0

Left = 0

Height = 361

Width = 433

DoCreate = .T.

Caption = "Form1"

Name = "Form1"

ADD OBJECT command1 AS commandbutton WITH ;

Top = 336, ;

Left = 168, ;

Height = 25, ;

Width = 48, ;

Caption = "加载", ;

Name = "Command1"

ADD OBJECT label1 AS label WITH ;

AutoSize = .T., ;

BackStyle = 0, ;

Caption = "Label1", ;

Height = 16, ;

Left = 228, ;

Top = 340, ;

Width = 38, ;

Name = "Label1"

PROCEDURE MouseMove

LPARAMETERS nButton, nShift, nXCoord, nYCoord

Local c,r,g,b

c = ThisForm.Point(nXCoord, nYCoord)

c = ((c % 256) + (int(c/256)%256) + (int(c/256/256))) /3

*c = IIF(c < 128, 1, 0)

ThisForm.Label1.Caption = IIF(c < 64, '有', '无')

*WAIT WINDOW TRANSFORM(nXCoord) +',' + TRANSFORM(nYCoord) + ':' + TRANSFORM(c) NOWAIT

ENDPROC

PROCEDURE command1.Click

thisform.picture="ocr001.bmp"

ENDPROC

ENDDEFINE

*

*-- 结束定义: form1

**************************************************

探索左侧和右下角的定位块并计算出答题框的坐标，遍历就可以