Skip to content

Instantly share code, notes, and snippets.

@msinnema

msinnema/sample.vb

Created Jun 6, 2018
Embed
What would you like to do?
Basic single-threaded Intrada ALPR
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment