主题：图片中的条形码能识别吗？

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

 

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

 

上传实例。

识别不了就报错，这个是正常的。肯定是你的图片有问题。

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

 

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)

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

 

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

 

1、你用ps调整以后看能否识别啊；

 

2、http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=65446

 

截取test.jpg，从坐标(20,30)开始截取，截取50*50的大小

 

Dim bmp As new Bitmap(50, 50)
Dim g = graphics.fromimage(bmp)
Dim img = getimage("d:\test.jpg")
g.DrawImage(img, new Rectangle(0, 0, img.Width, img.Height), new Rectangle(20, 30, img.Width, img.Height), GraphicsUnit.Pixel)
bmp.Save("d:\test05.jpg")
bmp.dispose

16楼代码无论执行多少次都没问题。

 

贴出完整代码。

哦，要这样做

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图片文件|*.jpg" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Else
Return
End If

Dim bmap As Bitmap
bmap = New Bitmap(dlg.FileName)
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)
bmap.dispose
MessageBox.Show(result.Text)

删除要这样写

 

If filesys.FileExists( strPath & "\tmp.jpg" ) Then filesys.DeleteFile( strPath & "\tmp.jpg", 2, 2 )