如何解析图片中的二维码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何解析图片中的二维码？

共有1373人关注过本帖树形打印复制链接主题：如何解析图片中的二维码？

33chyh

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：137 积分：1307 威望：0 精华：0 注册：2015/12/27 21:01:00

如何解析图片中的二维码？ 发帖心情

Post By：2024/9/4 11:04:00 [只看该作者]

老师好！我有一个带二维码的图片，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:黑白图片0006.zip

需要利用程序解析出二维码中的信息？如何编写相关代码呢？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/9/4 11:12:00 [只看该作者]

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

33chyh

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：137 积分：1307 威望：0 精华：0 注册：2015/12/27 21:01:00

Post By：2024/9/4 11:17:00 [只看该作者]

怎样调用zxing.dll文件？

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/9/4 11:18:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/1936.htm

33chyh

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：137 积分：1307 威望：0 精华：0 注册：2015/12/27 21:01:00

Post By：2024/9/4 11:19:00 [只看该作者]

我想用代码调用和执行zxing.dll，不知道怎样写代码？

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/9/4 11:23:00 [只看该作者]

2楼例子里不就有现成的代码吗

33chyh

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：137 积分：1307 威望：0 精华：0 注册：2015/12/27 21:01:00

Post By：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编辑过]

狐狸爸爸

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2024/9/4 14:07:00 [只看该作者]

1、可能没有引用这个库

2、如果引用了，可能RGBLuminanceSource这个类型在某个命名空间中，你需要

Dim source As New 命名空间名称.RGBLuminanceSource(bmap, bmap.Width, bmap.Height)

33chyh

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：137 积分：1307 威望：0 精华：0 注册：2015/12/27 21:01:00

Post By：2024/9/4 15:36:00 [只看该作者]

谢谢，我先按照您的指导做做

下一主题 >> << 上一主题

主题：如何解析图片中的二维码？