BankCheckField Class

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.Forms 
Imports Leadtools.Forms.Ocr 
Imports Leadtools.Forms.Commands 
 
Public Sub TestBankCheckReader() 
   ' Initialize the RasterCodecs class 
   Dim codecs As New RasterCodecs() 
 
   ' Initialize the BankCheckReader class 
   Dim checkReader As New BankCheckReader() 
 
   ' The bank cheque image 
   Dim chequePath As String = Path.Combine(LEAD_VARS.ImagesDir, "BankCheck.jpg") 
   Dim image As RasterImage = codecs.Load(chequePath) 
 
   Using ocrEngine As IOcrEngine = OcrEngineManager.CreateEngine(OcrEngineType.Advantage, False) 
      ocrEngine.Startup(Nothing, Nothing, Nothing, "C:\LEADTOOLS 19\Bin\Common\OcrAdvantageRuntime") 
      ' Assign Engine to Reader 
      checkReader.OcrEngine = ocrEngine 
 
      ' handle Process Event 
      AddHandler checkReader.Process, AddressOf reader_Processed 
 
      ' Process Image 
      checkReader.ProcessImage(image) 
   End Using 
End Sub 
 
Private Sub reader_Processed(sender As Object, e As ProgressEventArgs) 
   Console.WriteLine(String.Format("State      : {0}%", e.State)) 
   Console.WriteLine(String.Format("Percentage : {0}%", e.Percentage)) 
   Console.WriteLine(String.Format("FieldType  : {0}%", e.FieldType.ToString())) 
 
   If e.State = ProcessState.Finish Then 
      Dim reader As BankCheckReader = TryCast(sender, BankCheckReader) 
      If reader IsNot Nothing Then 
         For Each value As KeyValuePair(Of String, BankCheckField) In reader.Results 
            Dim bounds As LeadRect = value.Value.Bounds 
            Console.WriteLine(String.Format("Field Name      : {0}", value.Key)) 
            Console.WriteLine(String.Format("Field Value     : {0}", value.Value.Text)) 
            Console.WriteLine(String.Format("Field Bounds    : {0},{0},{0},{0}", bounds.X.ToString(), bounds.Y.ToString(), bounds.Width.ToString(), bounds.Height.ToString())) 
            Console.WriteLine("************************************") 
         Next 
      End If 
   End If 
End Sub 
 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class