毕业设计做一个从图片识别汉字和图形的程序怎么样?难度大不大? 图形图像处理,汉字识别 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 google 开源ocrgoogle 模式识别 清华大学出版社 文字比较简单 微软有个文字识别控件 ocr mfc使用 很简单。 图像比较难 没思路 VERSION 5.00Begin VB.Form Form1 Caption = "VB实现OCR文字识别" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "识别" Height = 495 Left = 1800 TabIndex = 0 Top = 1320 Width = 1215 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Command1_Click()Dim strLayoutInfo As StringDim miDoc As ObjectDim modiLayout As Object '初始化并加载文档 Set miDoc = CreateObject("MODI.Document") '创建对象 miDoc.Create "c:\VBOCR\z.tif" '加载图片文件 Screen.MousePointer = vbHourglass '设置光标忙 '识别 miDoc.Images(0).OCR miLANG_CHINESE_SIMPLIFIED, True, True '有用的就此一句,识别为中文简体 Set modiLayout = miDoc.Images(0).Layout '读出数据 strLayoutInfo = _ "Language: " & modiLayout.Language & vbCrLf & _ "Number of characters: " & modiLayout.NumChars & vbCrLf & _ "Number of fonts: " & modiLayout.NumFonts & vbCrLf & _ "Number of words: " & modiLayout.NumWords & vbCrLf & _ "Beginning of text: " & Left(modiLayout.Text, 50) & vbCrLf & _ "First word of text: " & modiLayout.Words(0).Text Debug.Print modiLayout.Text MsgBox strLayoutInfo, vbInformation + vbOKOnly, "Layout Information" Set modiLayout = Nothing Set miDoc = Nothing Screen.MousePointer = vbDefaultEnd Sub MFC:这是什么错误啊?大家帮帮忙咧~~~~ 用ADO连数据库是,某条语句在VC中能用,在vs2008中不能用了 更深刻的讨论...指针 帮我看看下面代码的问题 谢谢 提词器对话框?急!!!!!!!!!!!!!!!! 请精通802.11和数据报截获的朋友进来 如何在对话框中使用滚动条? MFC中怎么得到控件中的值 MFC如何弹出一个对话框,指定位置。。 局域网里的服务器发送数据给客户端用什么协议比较好,UPD还是广播? 怪事,一个MFC程序离开了VC6的CTRL+F5则无法正常运行 vs2010+openv显示图片Debug运行成功而Release可以运行但不显示图片?
google 模式识别 清华大学出版社
图像比较难 没思路
Begin VB.Form Form1
Caption = "VB实现OCR文字识别"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "识别"
Height = 495
Left = 1800
TabIndex = 0
Top = 1320
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option ExplicitPrivate Sub Command1_Click()
Dim strLayoutInfo As String
Dim miDoc As Object
Dim modiLayout As Object '初始化并加载文档
Set miDoc = CreateObject("MODI.Document") '创建对象
miDoc.Create "c:\VBOCR\z.tif" '加载图片文件 Screen.MousePointer = vbHourglass '设置光标忙
'识别
miDoc.Images(0).OCR miLANG_CHINESE_SIMPLIFIED, True, True '有用的就此一句,识别为中文简体 Set modiLayout = miDoc.Images(0).Layout '读出数据
strLayoutInfo = _
"Language: " & modiLayout.Language & vbCrLf & _
"Number of characters: " & modiLayout.NumChars & vbCrLf & _
"Number of fonts: " & modiLayout.NumFonts & vbCrLf & _
"Number of words: " & modiLayout.NumWords & vbCrLf & _
"Beginning of text: " & Left(modiLayout.Text, 50) & vbCrLf & _
"First word of text: " & modiLayout.Words(0).Text
Debug.Print modiLayout.Text
MsgBox strLayoutInfo, vbInformation + vbOKOnly, "Layout Information"
Set modiLayout = Nothing
Set miDoc = Nothing
Screen.MousePointer = vbDefault
End Sub