- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何解析图片中的二维码？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193313)
-- 发布时间：2024/9/4 11:04:00
-- 如何解析图片中的二维码？
老师好！我有一个带二维码的图片，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:黑白图片0006.zip |
需要利用程序解析出二维码中的信息？如何编写相关代码呢？
-- 发布时间：2024/9/4 11:12:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=138257&skin=0
-- 发布时间：2024/9/4 11:17:00
--
怎样调用zxing.dll文件？
-- 发布时间：2024/9/4 11:18:00
--
参考：http://www.foxtable.com/webhelp/topics/1936.htm
-- 发布时间：2024/9/4 11:19:00
--
我想用代码调用和执行zxing.dll，不知道怎样写代码？
-- 发布时间：2024/9/4 11:23:00
--
2楼例子里不就有现成的代码吗
-- 发布时间：2024/9/4 11:29:00
--
我将代码写到按钮click事件中，运行时出现下图
请老师帮助解决
代码：
Dim img As Image = Image.FromFile("C:\\Users\\Administrator\\Desktop\\b1.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)
[此贴子已经被作者于2024/9/4 11:29:53编辑过]
-- 发布时间：2024/9/4 14:07:00
--
1、可能没有引用这个库
2、如果引用了， 可能RGBLuminanceSource这个类型在某个命名空间中，你需要
Dim source As New 命名空间名称.RGBLuminanceSource(bmap, bmap.Width, bmap.Height)
-- 发布时间：2024/9/4 15:36:00
--
谢谢，我先按照您的指导做做