使用ZXing的QRcode(错误纠正问题)

时间:2018-07-12 10:13:48

标签: asp.net vba vb.net qr-code zxing

这是ASP.net的代码,此脚本在IIS(QR_Code.aspx)上运行

操作系统:Windows 10 PRO

<%@ Page language="vb" debug=true %>
<%@ Import NameSpace = "Zxing.Interop.Encoding.BarcodeWriter" %>
<%@ Import NameSpace = "System.IO" %>
<%@ Import NameSpace = "System.Drawing" %>

'-----------------------------------------------'
'QR-Code
'-----------------------------------------------'
Dim ZX As New ZXing.BarcodeWriter
Dim bmp As Bitmap

Zx.Format = ZXing.BarcodeFormat.QR_CODE
Zx.Options.Height = 250
Zx.Options.Width = 250
Zx.Options.Margin = 0.9
Zx.Options.PureBarcode = True
Zx.Format = 2048

bmp = Zx.Write("Test_1234")
bmp.Save("c:\inetpub\wwwroot\tester\qrcode.png", Imaging.ImageFormat.Png)
'-----------------------------------------------'

上面的代码工作正常,但是我的问题是我找不到上面代码的“错误更正”的正确参考。

我尝试了以下代码,但是没有运气!

Zx.Options.ErrorCorrection = ErrorCorrectionLevel_H

Zx.ErrorCorrection = ErrorCorrectionLevel_H

ErrorCorrection = ErrorCorrectionLevel_H

请继续从浏览器获取此错误消息

Compiler Error Message: BC30456: 'ErrorCorrection' is not a member of 'ZXing.Common.EncodingOptions'.

供您参考:

Filename: zxing.dll
File Description: Zxing.net for 3.5
File Version: 0.16.4.0
Sha256 Hash: e1ed37bb6d376a35a05169a6bad52c6d589eac3bc3d676fc4ed6336e84d59fea 

感谢您抽出宝贵的时间阅读此威胁,如果我没有以正确的格式答复,请原谅我-我仍然是新来的!

2 个答案:

答案 0 :(得分:0)

我真的希望您能就ErrorCorrection问题向我提出建议!

答案 1 :(得分:0)

以下代码段应该起作用:

<%@ Page language="vb" debug=true %>
<%@ Import NameSpace = "System.Drawing" %>
<%

'-----------------------------------------------'
'QR-Code
'-----------------------------------------------'
Dim ZX As New ZXing.BarcodeWriter
Dim bmp As Bitmap
Dim options as ZXing.QrCode.QrCodeEncodingOptions

options = New ZXing.QrCode.QrCodeEncodingOptions
options.ErrorCorrection = ZXing.QrCode.Internal.ErrorCorrectionLevel.H
options.Height = 250
options.Width = 250
options.Margin = 0.9
options.PureBarcode = True

Zx.Format = ZXing.BarcodeFormat.QR_CODE
Zx.Options = options

bmp = Zx.Write("Test_1234")
bmp.Save("c:\inetpub\wwwroot\tester\qrcode.png", Imaging.ImageFormat.Png)
'-----------------------------------------------'
%>