以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图片中的条形码能识别吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78665)

--  作者:newsun2k
--  发布时间:2015/12/14 17:07:00
--  图片中的条形码能识别吗?
如题
我要处理大量的图片,其中固定位置有条形码。我想把该位置的条形码剪切出来,系统能否识别呢?

--  作者:大红袍
--  发布时间:2015/12/14 17:10:00
--  

只要清晰度足够,就能识别。

 

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

 


--  作者:客人
--  发布时间:2015/12/15 11:09:00
--  
引发类型为“com.google.zxing.ReaderException”的异常。
完全不知道怎么处理,谢谢。

--  作者:大红袍
--  发布时间:2015/12/15 11:10:00
--  
上传实例。
--  作者:大红袍
--  发布时间:2015/12/15 11:12:00
--  
识别不了就报错,这个是正常的。肯定是你的图片有问题。
--  作者:newsun2k
--  发布时间:2015/12/15 11:13:00
--  
已上传
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目31.foxdb

图片点击可在新窗口打开查看此主题相关图片如下:b1.jpg
图片点击可在新窗口打开查看


--  作者:newsun2k
--  发布时间:2015/12/15 11:15:00
--  
图片应该怎么改呢?
谢谢

--  作者:大红袍
--  发布时间:2015/12/15 11:24:00
--  

你图片的问题,我测试可以识别。你图片的清晰度要足够啊。或者你用扫描枪试试能不能识别。

 

Dim img As Image = Image.FromFile("d:\\code.jpg") \'图片地址哦!
Dim bmap As Bitmap
bmap = New Bitmap(img)
Dim source As New RGBLuminanceSource(bmap, bmap.Width, bmap.Height)
Dim bitmap As com.google.zxing.BinaryBitmap = New com.google.zxing.BinaryBitmap(New com.google.zxing.common.GlobalHistogramBinarizer(source))
Dim asd As new com.google.zxing.MultiFormatReader
Dim result As com.google.zxing.Result = asd.decode(bitmap)
MessageBox.Show(result.Text)


--  作者:newsun2k
--  发布时间:2015/12/15 11:46:00
--  
确实是清晰度的问题,多试几张有通过的。
不过我这是扫描件,这个清晰度实在也没有办法再怎么要求了。
有其他的解决方案?

--  作者:大红袍
--  发布时间:2015/12/15 11:50:00
--  

清晰度不够自然扫不了,你用扫描枪也扫不了。

 

如果不想报错,你加上try catch  http://www.foxtable.com/help/topics/2070.htm