哪里可以找到呢?谢谢大家
解决方案 »
- 怎么用API函数向注册写入如下键值??
- 小弟想放一幅大图片到Picture,因为图太大,无法看全小弟想放一个垂直滚动条,但不知道如何和图片框绑定,请大家指点.
- ADO控件,出错信息“存储器不足,无法完成此操作”
- 送分题 !!!!!!!!!!!!!!!
- 高人帮忙写一个VB+access信息系统
- 关于c作用域的问题,个人认为有难度。
- 使用ADO打开ACCESS数据库,如何取库中所有表及查询的名称呢?
- 如何移动一个没有标题栏的窗体
- 请问karma(无为) 在吗?(其他高手也请看看,拜托)
- pgif.ocx控件哪位大侠有?
- 讨论winsock控件接收数据原理,不知道大家有没有遇到过?
- 怎样把exe文件转换为frm文件和vbp文件?
原理: 利用微软OCR控件, 只需要不到10行代码就能够实现自已的OCR文字识别软件.
1. 添加控件,需要安装office2003, 没有安装office2003的可以从别人机子上拷贝相关文件,注册regsvr32.exe mdivwctl.dll,
控件一般在这个目录下:C:\Program Files\Common Files\Microsoft Shared\MODI\11.0, 只需要相关的几个文件就可以了, 此文件夹全部文件大概在21M左右.
工程->部件->添加这个控件:Microsoft Office Document Imaging 11.0 Type Library2.在按钮的Click事件里:
Dim strLayoutInfo As String, strLPN As String '初始化并加载文档
Set miDoc = CreateObject("MODI.Document") '创建对象
miDoc.Create "D:\未命名.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
MsgBox strLayoutInfo, vbInformation + vbOKOnly, "Layout Information"
Set modiLayout = Nothing
Set miDoc = Nothing
Screen.MousePointer = vbDefault3. OK了, 是不是很简单