IOcrLanguageManager Interface

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Forms.Ocr

<TestMethod>
Public Sub OcrLanguageManagerExample()
   ' 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)
      ' Show languages supported by this engine
      Dim supportedLanguages As String() = ocrEngine.LanguageManager.GetSupportedLanguages()

      Console.WriteLine("Supported languages:")
      For Each supportedLanguage As String In supportedLanguages
         ' Get the friendly name of this language using the .NET CultureInfo class
         Dim ci As New CultureInfo(supportedLanguage)
         Console.WriteLine("  {0} ({1})", supportedLanguage, ci.EnglishName)
      Next

      ' Check if current culture info language is supported
      Dim currentCulture As CultureInfo = CultureInfo.CurrentCulture
      Dim name As String = currentCulture.TwoLetterISOLanguageName
      Dim supported As Boolean = ocrEngine.LanguageManager.IsLanguageSupported(name)
      If Not supported Then
         name = currentCulture.Name
         supported = ocrEngine.LanguageManager.IsLanguageSupported(name)
      End If

      If supported Then
         Console.WriteLine("Current culture is {0}, and it is supported by this OCR engine. Enabling only this language and German now", _
                           currentCulture.EnglishName)
         ocrEngine.LanguageManager.EnableLanguages(New String() {name, "de"})

         ' If this engine does not support enabling multiple languages (currently the LEADTOOLS Advantage OCR engine), then GetEnabledLanguages
         ' will always return an array of 1, make a note of this
         If Not ocrEngine.LanguageManager.SupportsEnablingMultipleLanguages Then
            Console.WriteLine("This engine supports enabling only one language at a time, so only the first language we enabled will be used")
         End If

         Dim enabledLanguages As String() = ocrEngine.LanguageManager.GetEnabledLanguages()
         Console.WriteLine("Current enabled languages in the engine are:")
         For Each enabledLanguage As String In enabledLanguages
            ' Get the friendly name of this language using the .NET CultureInfo class
            Dim ci As New CultureInfo(enabledLanguage)
            Console.WriteLine("  {0} ({1})", enabledLanguage, ci.EnglishName)
         Next
      Else
         Console.WriteLine("Current culture is {0}, and it is not supported by this OCR engine", currentCulture.EnglishName)
      End If

      ocrEngine.Shutdown()
   End Using
End Sub