如何:提取PDF417数据使用AAMVAID类

Dim inputFilePath As String = "C:\Users\Public\Documents\LEADTOOLS Images\ license_sample_rear_aamvar .png" Using Codecs As RasterCodecs = New RasterCodecs Using inputImage As RasterImage = Codecs. load (inputFilePath) Dim engine As BarcodeEngine = New BarcodeEngine() Dim data As BarcodeData = engine. reader .png"ReadBarcode (inputImage LeadRect。空，BarcodeSymbology.PDF417)如果(数据不是没有)然后使用id作为AAMVAID = BarcodeData.ParseAAMVAData(数据。GetData, False)如果(id不是空)那么控制台。WriteLine("发行者识别号码:" + id.IssuerIdentificationNumber)控制台。WriteLine("管辖权:" + id.Jurisdiction.ToString())控制台。WriteLine("AAMVA cd版本:" + id.Version.ToString())控制台。WriteLine("管辖权版本:" + id.JurisdictionVersion)控制台。WriteLine("Number of Entries: " + id. numberofentries . tostring ()) Dim firstNameResult As AAMVANameResult = id。FirstName If (firstNameResult IsNot Nothing)然后控制台。WriteLine("First Name: " + firstnamerresult . value . tostring ())'+ "，推断?: " + firstNameResult.InferredFromFullName)结束如果Dim lastNameResult As AAMVANameResult = id。LastName If (lastNameResult IsNot Nothing)然后控制台。WriteLine("Last Name: " + lastnamersult . value . tostring ())' + "，推断?: " + lastNameResult.InferredFromFullName) End If Dim addressStreet1 As String = id.AddressStreet1 If (addressStreet1 IsNot Nothing) Then Console.WriteLine("Address Street 1: " + addressStreet1) End If Dim addressStreet2 As String = id.AddressStreet2 If (addressStreet2 IsNot Nothing) Then Console.WriteLine("Address Street 2: " + addressStreet2) End If Dim addressStateAbbreviation As String = id.AddressStateAbbreviation If (addressStateAbbreviation IsNot Nothing) Then Console.WriteLine("Address State Abbreviation: " + addressStateAbbreviation) End If Dim addressCity As String = id.AddressCity If (addressCity IsNot Nothing) Then Console.WriteLine("Address City: " + addressCity) End If Dim addressPostalCode As String = id.AddressPostalCode If (addressPostalCode IsNot Nothing) Then Console.WriteLine("Address Postal Code: " + addressPostalCode) End If Dim addressRegion As AAMVARegion = id.AddressRegion Console.WriteLine("Address Region: " + addressRegion.ToString()) Dim dateOfBirth As String = id.DateOfBirth If (dateOfBirth IsNot Nothing) Then Console.WriteLine("Date of Birth: " + dateOfBirth) End If If (id.Over18Available) Then Console.WriteLine("Over 18?: " + id.Over18.ToString()) End If If (id.Over19Available) Then Console.WriteLine("Over 19?: " + id.Over19.ToString()) End If If (id.Over21Available) Then Console.WriteLine("Over 21?: " + id.Over21.ToString()) End If If (id.ExpirationAvailable) Then Console.WriteLine("Expired?: " + id.Expired.ToString()) End If Dim expirationDate As String = id.ExpirationDate If (expirationDate IsNot Nothing) Then Console.WriteLine("Expiration Date: " + expirationDate) End If Dim issueDate As String = id.IssueDate If (issueDate IsNot Nothing) Then Console.WriteLine("Issue Date: " + issueDate) End If Dim idNumber As String = id.Number If (idNumber IsNot Nothing) Then Console.WriteLine("ID Number: " + idNumber) End If Dim eyeColor As AAMVAEyeColor = id.EyeColor Console.WriteLine("Eye Color: " + eyeColor.ToString()) Dim hairColor As AAMVAHairColor = id.HairColor Console.WriteLine("Hair Color: " + hairColor.ToString()) Dim sex As AAMVASex = id.Sex Console.WriteLine("Sex: " + sex.ToString()) Console.ReadLine() End If End Using End If End Using End Using