IOcrOmrOptions Interface

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Forms.Ocr
Imports Leadtools.Forms
Imports Leadtools.Forms.DocumentWriters
Imports Leadtools.WinForms

<TestMethod>
Public Sub OcrOmrExample()
   ' Create an instance of the engine
   Using ocrEngine As IOcrEngine = OcrEngineManager.CreateEngine(OcrEngineType.Advantage, False)
      ' Start the engine using default parameters
      ocrEngine.Startup(Nothing, Nothing, Nothing, LEAD_VARS.OcrAdvantageRuntimeDir)
      ' We will use Mixed.tif shipped with LEADTOOLS in the Images folder. This image has 3 OMR check marks
      Dim tifFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Mixed.tif")

      ' Create an OCR document
      Using ocrDocument As IOcrDocument = ocrEngine.DocumentManager.CreateDocument()
         ' Add a page to the document
         Dim ocrPage As IOcrPage = ocrDocument.Pages.AddPage(tifFileName, Nothing)

         ' Add the OMR zones. We calculated the 3 OMR zone boundaries for this image perviously
         Dim omrBounds As LogicalRectangle() = { _
            New LogicalRectangle(484, 98, 84, 78, LogicalUnit.Pixel), _
            New LogicalRectangle(494, 184, 70, 54, LogicalUnit.Pixel), _
            New LogicalRectangle(498, 244, 76, 76, LogicalUnit.Pixel)}

         For Each omrBound As LogicalRectangle In omrBounds
            ' Create a new OMR zone and add it to the page
            Dim zone As New OcrZone()
            zone.ZoneType = OcrZoneType.Omr
            zone.Bounds = omrBound
            ocrPage.Zones.Add(zone)
         Next

         ' Show how many zones we have and they properties
         Console.WriteLine("Page has {0} zones:", ocrPage.Zones.Count)
         For i As Integer = 0 To ocrPage.Zones.Count - 1
            Dim zone As OcrZone = ocrPage.Zones(i)
            Console.WriteLine("{0}: Type: {1}", i + 1, zone.ZoneType)
         Next

         ' Change the OMR options (Auto detection of frames with highest sensitivity)
         Dim omrOptions As IOcrOmrOptions = ocrEngine.ZoneManager.OmrOptions
         omrOptions.FrameDetectionMethod = OcrOmrFrameDetectionMethod.Auto
         omrOptions.Sensitivity = OcrOmrSensitivity.Highest

         ' Get the character we are using in the engine to represent the filled/unfilled states
         Dim filledCode As Char = omrOptions.GetStateRecognitionCharacter(OcrOmrZoneState.Filled)
         Dim unfilledCode As Char = omrOptions.GetStateRecognitionCharacter(OcrOmrZoneState.Unfilled)

         ' Recognize the page
         Console.WriteLine("Recognizing...")
         ocrPage.Recognize(Nothing)

         Dim pageCharacters As IOcrPageCharacters = ocrPage.GetRecognizedCharacters()
         For Each zoneCharacters As IOcrZoneCharacters In pageCharacters
            ' We must have one character (the state for each OMR zone)
            Debug.Assert(zoneCharacters.Count = 1)
            Dim character As OcrCharacter = zoneCharacters(0)
            Debug.Assert(character.Code = filledCode OrElse character.Code = unfilledCode)
            Console.WriteLine("{0}: State: {1}, Confidence: {2}", _
                              zoneCharacters.ZoneIndex, _
                              If(character.Code = filledCode, "Filled", "Unfilled"), _
                              character.Confidence)
         Next

         ' Now save the result as PDF using the default characters representation for OMR states (0 for unfilled, 1 for filled)
         Dim pdfFileName1 As String = Path.Combine(LEAD_VARS.ImagesDir, "Omr_Results1.pdf")
         Console.WriteLine("Saving to {0}...", pdfFileName1)
         ocrDocument.Save(pdfFileName1, DocumentFormat.Pdf, Nothing)

         ' Change the character representation for the OMR states to Y for unfilled, and X for filled
         omrOptions.SetStateRecognitionCharacter(OcrOmrZoneState.Unfilled, "Y"c)
         omrOptions.SetStateRecognitionCharacter(OcrOmrZoneState.Filled, "X"c)

         Dim pdfFileName2 As String = Path.Combine(LEAD_VARS.ImagesDir, "Omr_Results2.pdf")
         Console.WriteLine("Saving to {0}...", pdfFileName2)
         ocrDocument.Save(pdfFileName2, DocumentFormat.Pdf, Nothing)
      End Using

      ' Shutdown the engine
      ' Note: calling Dispose will also automatically shutdown the engine if it has been started
      ocrEngine.Shutdown()
   End Using
End Sub

Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
Public Const OcrAdvantageRuntimeDir As String = "C:\LEADTOOLS 19\Bin\Common\OcrAdvantageRuntime"
End Class