- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于弧表识别二维码的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127087)
-- 发布时间：2018/11/5 11:39:00
-- [求助]关于弧表识别二维码的问题
在论坛上看到一个帖子，提到识别二维码的方法
可是我用弧表生成的QRCODE 为什么识别出来是乱码呢，说明上说可以支持中文的。
Dim img As Image = Image.FromFile("C:\\Users\\cxw\\Desktop\\1.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)
此主题相关图片如下：1.jpg
-- 发布时间：2018/11/5 12:13:00
--
你生成二维码的时候，尝试改成utf8格式，比如
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "桂AT1234"
Bar.QuietZoneWidth = 2
Bar.QRCodeByteEncodingName = "utf-8"
Bar.SaveImage("文件名")
-- 发布时间：2018/11/5 22:02:00
--
好了。多谢了
-- 发布时间：2018/11/6 11:43:00
--
如果图片识别不了，能不能有个提示，而不是报错呢。这个应该如何写呀。
-- 发布时间：2018/11/6 11:56:00
--
Dim bmap As Bitmap = Image.FromFile("d:\\test.jpg")
try
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)
catch ex As exception
msgbox(ex.message)
msgbox(123)
bmap.dispose
End try
-- 发布时间：2022/9/5 13:36:00
--
如果识别的不是图片，而是PDF文件 Bitmap 这里怎么修改啊
-- 发布时间：2022/9/5 13:49:00
--
改不了，这个只能使用图片。先把pdf文件转换为图片