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

Description

PDF417 barcodes recognition object

Object Model





Example

VB Example (Visual Basic)Copy Code
Public Function T_Pdf417one(ByRef Ci As CiServer, sFileName)
  Dim Bc As CiPdf417: Set Bc = Ci.CreatePdf417
  ' 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
      If (Barcode.IsChecksumVerified) Then
          T_DisplayBarcode Barcode
      End If
  End If
End Function

Public Function T_Pdf417all(ByRef Ci As CiServer, sFileName)
  Dim Bc As CiPdf417: Set Bc = Ci.CreatePdf417
  ' 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
      If (Barcode.IsChecksumVerified) Then
          T_DisplayBarcode Barcode
      End If
  Next
End Function

See Also