ClearImage COM Server Send comments on this topic.
CiBarcodeBasic Object
See Also  Members  Example

Description

1D barcodes recognition object (Basic)

Object Model





Example

VB Example (Visual Basic)Copy Code
Public Function T_BarcodeBasicOne(ByRef Ci As CiServer, sFileName)
  ' Find one Code 39 or Code 128 barcode in Upper left corner
  Dim Bc As CiBarcodeBasic: Set Bc = Ci.CreateBarcodeBasic
  ' 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
  ' Read barcode
  Dim Barcode As CiBarcode
  Set Barcode = Bc.FirstBarcode
  ' Process parcode
  If (Not Barcode Is Nothing) Then T_DisplayBarcode Barcode
End Function

Public Function T_BarcodeBasicAll(ByRef Ci As CiServer, sFileName)
  Dim Bc As CiBarcodeBasic: Set Bc = Ci.CreateBarcodeBasic
  ' Open image from file
  Bc.Image.Open sFileName
  ' Configure barcode
  Bc.AutoDetect1D = ciTrue
  ' Read barcodes
  Dim Barcode As CiBarcode
  Bc.Find 0
  For Each Barcode In Bc.Barcodes
  ' Process barcode
    T_DisplayBarcode Barcode
  Next
End Function

See Also