lehongduc > 04-10-17, 06:48 PM
Option Explicit
Function Decode_QR_Code_From_File(FileName As String, TextVal As String)
Dim reader As IBarcodeReader
Dim res As Result
Set reader = New BarcodeReader
reader.Options.PossibleFormats.Add BarcodeFormat_QR_CODE
'Set res = reader.DecodeImageFile("D:\Barcodes\QrCodes\www.png")
Set res = reader.DecodeImageFile(FileName)
TextVal = res.Text
End Function
Function Decode_QR_Code_From_Byte_Array()
Dim reader As IBarcodeReader
Dim rawRGB(1000) As Byte
Dim res As Result
Set reader = New BarcodeReader
reader.Options.PossibleFormats.Add BarcodeFormat_QR_CODE
Rem TODO: load bitmap data to byte array rawRGB
Set res = reader.DecodeImageBytes(rawRGB, 10, 10, BitmapFormat.BitmapFormat_Gray8)
End Function
Function Encode(YourText As String, ToFileName As String)
Dim writer As IBarcodeWriter
Dim qrCodeOptions As QrCodeEncodingOptions
Dim pixelDataResult As PixelData
Set qrCodeOptions = New QrCodeEncodingOptions
Set writer = New BarcodeWriter
writer.Format = BarcodeFormat_QR_CODE
Set writer.Options = qrCodeOptions
qrCodeOptions.Height = 100
qrCodeOptions.Width = 100
qrCodeOptions.CharacterSet = "UTF-8"
qrCodeOptions.Margin = 10
qrCodeOptions.ErrorCorrection = ErrorCorrectionLevel_H
'writer.WritePngToFile "Test", "D:\interop_qrcode.png"
writer.WritePngToFile YourText, ToFileName
Set pixelDataResult = writer.Write("Test")
End Function
Function Decode_QR_Code_From_File_CreateObject(FromFileName As String)
Dim reader As IBarcodeReader
Dim res As Result
Set reader = CreateObject("ZXing.Interop.Decoding.BarcodeReader")
reader.Options.PossibleFormats.Add BarcodeFormat_QR_CODE
'Set res = reader.DecodeImageFile("D:\Barcodes\QrCodes\www.png")
Set res = reader.DecodeImageFile(FromFileName)
End Function