Public Function T_DataMatrixone(ByRef Ci As CiServer, sFileName)
Dim Bc As CiDataMatrix: Set Bc = Ci.CreateDataMatrix
' Open image from file
Bc.Image.Open sFileName
' Configure barcode
Bc.Algorithm = cibBestSpeed
Bc.Directions = cibHorz
' Read barcode
Dim Barcode As CiBarcode
Set Barcode = Bc.FirstBarcode
' Process barcode
If (Not Barcode Is Nothing) Then T_DisplayBarcode Barcode
End Function
Public Function T_DataMatrixall(ByRef Ci As CiServer, sFileName)
Dim Bc As CiDataMatrix: Set Bc = Ci.CreateDataMatrix
' Open image from file
Bc.Image.Open sFileName
' Configure barcode
Bc.Algorithm = cibBestRecognition
Bc.Directions = cibHorz Or cibVert Or cibDiag
' Read barcode
Dim Barcode As CiBarcode
Bc.Find 0
For Each Barcode In Bc.Barcodes
' Process barcode
T_DisplayBarcode Barcode
Next
End Function