- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 图片识别提取文字 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133865)
-- 发布时间：2019/4/22 14:48:00
-- 图片识别提取文字
窗口有个图片浏览器控件，在控件中加入图片
我想添加一个识别按钮，点击就能提取出图片中的文字
请假老师如何能实现此功能
-- 发布时间：2019/4/22 15:06:00
--
试试
Dim doc = CreateObject("MODI.Document")
doc.Create("d:\\test.jpg")
doc.OCR(2052, True, True)
Dim layout = doc.images(0).Layout
msgbox(layout.text)
-- 发布时间：2019/4/23 9:37:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
麻烦老师帮忙处理下，谢谢！
-- 发布时间：2019/4/23 10:51:00
--
参考和测试代码
Dim doc = CreateObject("MODI.Document")
doc.Create("d:\\test.jpg")
doc.OCR(2052, True, True)
Dim layout = doc.images(0).Layout
msgbox(layout.text)
-- 发布时间：2019/4/23 13:17:00
--
M命令报错
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
无法创建 ActiveX 组件。
-- 发布时间：2019/4/23 15:17:00
--
以下是引用qinlao666在2019/4/23 13:17:00的发言：
M命令报错
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
无法创建 ActiveX 组件。
你需要安装完整版的ms office，才可以用到2楼的代码。
-- 发布时间：2019/4/24 8:12:00
--
老师，有ms office sp补丁的下载地址吗？
-- 发布时间：2019/4/24 9:28:00
--
以下是引用qinlao666在2019/4/24 8:12:00的发言：
老师，有ms office sp补丁的下载地址吗？
老师，有ms office sp补丁的下载地址吗？
建议重新安装完整版 ms office 2010
https://dl.pconline.com.cn/html_2/1/82/id=8870&pn=0.html
破解，参考
http://www.onlinedown.net/soft/578494.htm