一个Twain扫描模块很实用

JosephTan · 发表于 2012-1-14 13:57:53

例子：
1. 200DPI 全屏灰度扫描不打开对话框

lRtn = mdlTwain.TransferWithoutUI(200, GREY, 0, 0, 0, 0, _
                                    "noui_grey.bmp")

2. 黑白 300DPI 位置为扫描器玻璃的(左=1, 上=1, 右=2, 下=5 英寸) 不打开对话框
   Dim lRtn As Long

lRtn = mdlTwain.TransferWithoutUI(300, BW, 1, 1, 2, 5, _
                                    "noui_mono.bmp")

3. 打开对话框扫描
   Dim lRtn As Long

lRtn = mdlTwain.TransferWithUI("ui.bmp")

4. 选择扫描器:
   Dim lRtn As Long

lRtn = mdlTwain.PopupSelectSourceDialog()

购买主题 已有 17 人购买 本主题需向作者支付 2 点金钱 才能浏览

JosephTan · 发表于 2012-1-20 11:58:32

本帖最后由 JosephTan 于 2012-1-20 12:23 编辑

如果有識別的code, ocr是可以識別出來的.我有識別條碼的code,我的條碼可以識別出來.

JosephTan · 发表于 2012-1-20 21:29:53

本帖最后由 JosephTan 于 2012-1-20 21:30 编辑

代碼可以是模塊像本貼的附件,也可以是類文件cls,可以是鏈接庫文件dll,ocx.清華紫光確實有ocr軟件,不清楚是否能在vb引用.你自己可以去google.我的轉載的掃描模塊可以掃描掃描器上的某個位置,這樣或許增加你對這些文字識別率.希望對你有幫助.

JosephTan · 发表于 2012-1-25 14:44:03

掃描字的話,我懷疑它的可靠性,條碼的話,行就行,不行就不行,比較可靠.所以我還是不考慮用掃描的方法來輸入數據.

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

JosephTan JosephTan 当前离线技术点技术点 V币点积分 1591 IP卡狗仔卡	电梯直达 1^# 发表于 2012-1-14 13:57:53 \| 显示全部楼层 \|倒序浏览 \|阅读模式例子： 1. 200DPI 全屏灰度扫描不打开对话框 lRtn = mdlTwain.TransferWithoutUI(200, GREY, 0, 0, 0, 0, _ "noui_grey.bmp") 2. 黑白 300DPI 位置为扫描器玻璃的(左=1, 上=1, 右=2, 下=5 英寸) 不打开对话框 Dim lRtn As Long lRtn = mdlTwain.TransferWithoutUI(300, BW, 1, 1, 2, 5, _ "noui_mono.bmp") 3. 打开对话框扫描 Dim lRtn As Long lRtn = mdlTwain.TransferWithUI("ui.bmp") 4. 选择扫描器: Dim lRtn As Long lRtn = mdlTwain.PopupSelectSourceDialog() 购买主题已有 17 人购买本主题需向作者支付 2 点金钱才能浏览
	分享到: QQ好友和群 QQ空间腾讯微博腾讯朋友收藏1 分享淘帖0 订阅
	回复使用道具举报提升卡置顶卡沉默卡喧嚣卡变色卡抢沙发千斤顶显身卡

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 一个Twain扫描模块很实用

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)