Public Function T_BarcodeProNmb(ByRef Ci As CiServer, sFileName, nMaxBarcodeCount)
' Find upto Code 39 or Code 128 barcode in Upper left corner
Dim Bc As CiBarcodePro: Set Bc = Ci.CreateBarcodePro
' Open image from file
Bc.Image.Open sFileName
' Set-up zone
Dim Zone As CiImage
Set Zone = Bc.Image.CreateZone(500, 100, 1500, 800)
Bc.Image = Zone
' Configure barcode
Bc.Type = cibfCode128 Or cibfCode39
Bc.Algorithm = cibBestSpeed
Bc.Directions = cibHorz
' Read barcodes
Dim Barcode As CiBarcode, nCnt: nCnt = 0
Set Barcode = Bc.FirstBarcode
Do While (Not Barcode Is Nothing)
' Process barcode
T_DisplayBarcode Barcode
nCnt = nCnt + 1
If (nCnt = nMaxBarcodeCount) Then Exit Do
Set Barcode = Bc.NextBarcode
Loop
End Function
Public Function T_BarcodeProAll(ByRef Ci As CiServer, sFileName)
Dim Bc As CiBarcodePro: Set Bc = Ci.CreateBarcodePro
' Open image from file
Bc.Image.Open sFileName
' Configure barcode
Bc.AutoDetect1D = ciTrue
Bc.Type = cibPATCH ' Or cibCODE_39 Or cibI25
Bc.Directions = cibHorz Or cibVert Or cibDiag
Bc.Algorithm = cibBestRecognition
' Read barcodes
Dim Barcode As CiBarcode
Bc.Find 0
For Each Barcode In Bc.Barcodes
' Process barcode
T_DisplayBarcode Barcode
Next
End Function