| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- bitmap可以保存为图片吗？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129584) |
| -- 作者：colink -- 发布时间：2019/1/2 9:30:00 -- bitmap可以保存为图片吗？ 论坛里有一个识读二维码的例子，如下。其中bitmap是图片吗？怎样把它保持为文件？
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)
|
| -- 作者：有点甜 -- 发布时间：2019/1/2 12:44:00 -- bitmap.save("d:\\test.wmf") |
| -- 作者：colink -- 发布时间：2019/1/2 13:00:00 -- 报错：“save”不是“com.google.zxing.BinaryBitmap”的成员 |
| -- 作者：colink -- 发布时间：2019/1/2 13:51:00 -- 有其他办法吗？ |
| -- 作者：有点甜 -- 发布时间：2019/1/2 15:08:00 -- 为什么要保存为图片？你不是直接读取某一个文件的图片的吗？
Dim img As Image = Image.FromFile("C:\\Users\\cxw\\Desktop\\1.jpg") \'图片地址哦! |
| -- 作者：colink -- 发布时间：2019/1/2 15:17:00 -- 原图片是个大图片，二维码只是一小部分，想把二维码图片单独抠出来。同时不想把解码出来的文本重新生成二维码，希望保存原图二维码。
|
| -- 作者：colink -- 发布时间：2019/1/2 15:19:00 -- 或者有别的可以把大图片里的二维码图片抠出来的办法吗？ |
| -- 作者：有点甜 -- 发布时间：2019/1/2 15:31:00 -- 以下是引用colink在2019/1/2 15:17:00的发言：
原图片是个大图片，二维码只是一小部分，想把二维码图片单独抠出来。同时不想把解码出来的文本重新生成二维码，希望保存原图二维码。
你1楼的代码那里，也不是把二维码图片单独抠出来的。
或者你换一种思路，获取得到二维码数据后，你重新生成一个二维码保存 http://www.foxtable.com/webhelp/scr/2071.htm
http://www.foxtable.com/webhelp/scr/2092.htm
|
| -- 作者：colink -- 发布时间：2019/1/2 15:38:00 -- 谢谢 |