Basic single-threaded Intrada ALPR

sample.vb

Imports System.IO
Imports Intrada.ALPR

Module RecognizeDir
    Sub Main()
        Try
            Dim filenames() As String = Directory.GetFiles(".", "*.jpg", SearchOption.AllDirectories)
            Dim intrada As IntradaALPR = New IntradaALPR("<COMPANY_NAME>", "<COMPANY_KEY>")
            Dim context As IntradaALPR.RecognitionContext = intrada.CreateNewRecognitionContext()
            context.LoadSettings("settings.txt")
            Dim filename As String
            For Each filename In filenames
                Dim result As Result = context.Recognize(filename)
                Console.WriteLine(filename + "\t" + result.ToString)
            Next filename
        Catch e As IntradaException
            Console.WriteLine("Error: " + e.ToString)
        End Try
    End Sub
End Module