TestBarcodeReading.vbs
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Set bc = CreateObject( "Bytescout.BarCodeReader.Reader" ) ' Limit search to 1D barcodes only (exclude 2D barcodes to speed up the search). ' Change to bc.BarcodeTypesToFind.SetAll() to scan for all supported 1D and 2D barcodes ' or select specific type, e.g. bc.BarcodeTypesToFind.PDF417 = True bc.BarcodeTypesToFind.SetAll1D() bc.ReadFromFile "BarcodePhoto.jpg" For i = 0 To bc.FoundCount - 1 Msgbox "Found barcode on page #" & CStr (bc.GetFoundBarcodePage(i)) & " with type " & Cstr(bc.GetFoundBarcodeType(i)) & " and value " & bc.GetFoundBarcodeValue(i) & vbCRLF & " and confidence=" & Cstr(bc.GetFoundBarcodeConfidence(i)) Next Set bc = Nothing |
Click here to get your Free Trial version of the SDK
also available as: