主题：图片文字识别和提取 有简单的完整实例吗？思路、参考请指教！

1、office组件

Dim doc = CreateObject("MODI.Document") 
doc.Create("d:\test.jpg")
doc.OCR(2052, True, True)
Dim layout = doc.images(0).Layout
msgbox(layout.text)

2、百度api

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=132900&skin=0