Find multiple barcodes
Visual Basic |
---|
Public Function Find( _ Optional ByVal MaxBarcodes As Long = 0 _ ) As Long |
Method puts CiBarcode objects in object.Barcodes collection.
MaxBarcodes set to 0 (zero) enables the detection of all the barcodes in the image.
See Barcode Reading code examples on Inlite's How-to Web Site
Sub ReadBarcodes2D(imageFile As String) ' Create objects and open input images Dim Ci As New CiServer Dim Barcode As CiBarcode, reader Set reader = Ci.CreatePdf417 ' To read PDF416 barcodes ' Set reader = Ci.CreateDataMatrix ' To read DataMatrix barcodes ' Set reader = Ci.CreateQR ' To read QR barcodes reader.Image.Open imageFile ' Configure reader ' reader.Directions = cibHorz ' Limit barcode search direction (Faster processing) reader.Find 0 For Each Barcode In reader.Barcodes Debug.Print Barcode.Text & vbCrLf Next End Sub