在Excel中使用开源的Ocr引擎tesseract-ocr识别文字和验证码[20120718更新]

laneagle007

liucqa 发表于 2012-7-8 17:38
2013年10月20日更新安装文件，带中文字库
http://ishare.iask.sina.com.cn/f/62883049.html
Tesseract 3. ...

老大，那个爱问共享资料的网站打不开了，还能从哪卸载这个封装了tesseract的com组件呢

appleftg

学习下了，感谢楼主 ，。，

appleftg

mark   感谢楼主，，，学习啦

短歌行

谢谢 学习一下，看能不能解决证书扫描上的数字识别

jim681259

绝世好贴！

kaisidinasi

楼主，您好！为何2990的例子能行，换成我的图片就“Ocr出错”了？

我就安装了“MyOcrServer-v100 v3.03-988.exe”后调用的，

是不是图片有要求，还是参数设置错了？

liucqa

kaisidinasi 发表于 2015-10-24 11:24
楼主，您好！为何2990的例子能行，换成我的图片就“Ocr出错”了？

我就安装了“MyOcrServer-v100 v3.03- ...

你的图片和原来的不是一个字库吧

kaisidinasi

liucqa 发表于 2015-10-24 11:56
你的图片和原来的不是一个字库吧

liucqa老师：
您好！
      好像跟字库没关系，图片预处理后，我用SavePicture保存成*.jpg会报错“Ocr出错”，但用画图另存就能识别了，或者用ActiveSheet.Pictures.Insert、Chart.Export之后也能识别。我找了一个PNG格式的图片试了一下也会报“Ocr出错”，我把代码贴上，麻烦帮我看一下吧，太感谢了！

1. Sub main123()
   
2. 
   
3. 
   
4. For i = 1 To 1
   
5. 
   
6. Dim url$, tt$, cookie$, str() As String
   
7. 
   
8.     url = "https://supplier.rt-mart.com.cn/php/checkstr.php"
   
9. 
   
10. 
    
11.     Dim ayrHttpBody() As Byte, localFilename As String
    
12.     localFilename = "F:\MyImg"
    
13. 
    
14.     With CreateObject("WinHttp.WinHttpRequest.5.1")   'Microsoft.XMLHTTP")
    
15.         .Open "GET", url, True
    
16. '        .SetRequestHeader "Cookie", cookie
    
17.         .Send
    
18.         .WaitForResponse
    
19. 
    
20. 
    
21.         If .Status = 200 Then
    
22.             ayrHttpBody() = .ResponseBody
    
23.             Open localFilename For Binary As #1
    
24.             Put #1, , ayrHttpBody()
    
25.             Close #1
    
26. 
    
27.         Else
    
28.             MsgBox "验证码下载失败"
    
29.         End If
    
30. 
    
31.     End With
    
32.    
    
33.     ActiveSheet.Pictures.Insert (localFilename)     '插入图片
    
34.     Kill localFilename
    
35. 
    
36.     localFilename = "F:\MyPicture"
    
37.     For Each p In ActiveSheet.Shapes
    
38.         p.CopyPicture
    
39.         With ActiveSheet.ChartObjects.Add(0, 0, p.Width, p.Height).Chart
    
40.             .Paste
    
41.             .Export localFilename, "JPG"   '导出jpg图片
    
42.             .Parent.Delete
    
43.         End With
    
44.         p.Delete
    
45.     Next
    
46. 
    
47.     Dim pic As image
    
48.     Set pic = New image
    
49.     pic.Picture = LoadPicture(localFilename)
    
50.     Kill localFilename
    
51. 
    
52. 
    
53.     pic.Picture = Convert(pic.Picture, qubiankuang)
    
54. 
    
55.     pic.Picture = Convert(pic.Picture, GrayScale)
    
56. 
    
57.     pic.Picture = Convert(pic.Picture, BlackWhite, 50)
    
58. 
    
59.     pic.Picture = Convert(pic.Picture, quzaodian)
    
60. 
    
61. localFilename = "D:\TTTT\Myjpg" & i & ".jpg"
    
62. stdole.SavePicture pic.Picture, localFilename
    
63. 
    
64. Set pic = Nothing
    
65. 
    
66. 
    
67. 
    
68. ActiveSheet.Pictures.Insert (localFilename)     '插入图片
    
69.     Kill localFilename
    
70. 
    
71.     For Each p In ActiveSheet.Shapes
    
72.         p.CopyPicture
    
73.         With ActiveSheet.ChartObjects.Add(0, 0, p.Width - 1, p.Height - 1).Chart
    
74.             .Paste
    
75.             .Export localFilename, "JPG"   '导出jpg图片
    
76.             .Parent.Delete
    
77.         End With
    
78.         p.Delete
    
79.     Next
    
80. 
    
81. 
    
82. Dim FMyFuns As Object
    
83.     Dim MyStr As String
    
84.     Set FMyFuns = CreateObject("MyOcrServer.MyOcrServerCom")
    
85.     MyStr = FMyFuns.TsOcr("D:\TTTT\Myjpg" & i & ".jpg", "", "", "", "chi_sim")
    
86. 
    
87.     MsgBox MyStr
    
88.     Set FMyFuns = Nothing
    
89. 
    
90. 
    
91. Next
    
92. 
    
93. 
    
94.    
    
95.     End Sub

复制代码

liucqa

kaisidinasi 发表于 2015-10-26 14:29
liucqa老师：
您好！
      好像跟字库没关系，图片预处理后，我用SavePicture保存成*.jpg会报错“Ocr ...

不知道，代码不是我写的，你可以问楼主

luanjinling

正在寻找，发现了本贴，谢谢楼主！
正在学习