search

jdt / EID.Wrapper

A COM Wrapper for the Belgian EID to allow legacy VBA to access the EID card data
MIT License
2 stars 2 forks source link

Check data on newer card versions #5

Open jdt opened 8 years ago

jdt commented 8 years ago

cardData["member_of_family"] cardData["special_organization"] cardData["duplicata"]

Still valid?

JohanRVT commented 8 years ago

I never used those fields in my read-out. I will give it a try and get back

JohanRVT commented 8 years ago

Added those 3 fields in the bottom of a working VBA code which produces normaly a messagebox with the card data I Get a Error438: Object or method not supported by the object So I think that those fields are not valid in a EID

This is the VBA code I used

Private Sub CmdEIDTest_Click() On Error GoTo Err_CmdEIDTest_Click Dim wrapper As New EID_Wrapper.wrapper Dim data As EIDWrapper.CardData Set data = wrapper.GetCardData() 'Check of er een EID kaart (op de juiste manier) in de kaartlezer zit If data.FirstCard Is Nothing Then MsgBox "Geen EID kaart in lezer gedetecteerd!" & vbCrLf & "Plaats de EID van de persoon in de lezer," & vbCrLf & "of controleer of ze goed geplaatst is.", vbCritical + vbOKOnly, "Geen kaart gedetecteerd!" Exit Sub End If ' The CardStatus veld bevat de nodige informatie ' Toon de EID Kaart Data in een messagebox MsgBox "Voornamen: " & (data.FirstCard.FirstNames) & vbCrLf & "Naam: " & (data.FirstCard.Surname) & vbCrLf & "Geslacht: " & (data.FirstCard.Gender) & vbCrLf & "Geboortedatum: " & (data.FirstCard.BirthDate) & vbCrLf & "Geboorteplaats: " & (data.FirstCard.BirthPlace) & vbCrLf & "Straat en nummer: " & (data.FirstCard.StreetAndNumber) & vbCrLf & "Postcode: " & (data.FirstCard.ZipCode) & vbCrLf & "Woonplaats: " & (data.FirstCard.Municipality) & vbCrLf & "Nationaliteit: " & (data.FirstCard.Nationality) & vbCrLf & "Kaartnummer: " & (data.FirstCard.CardNumber) & vbCrLf & "Chipnummer: " & (data.FirstCard.ChipNumber) & vbCrLf & "Uitgifteplaats: " & (data.FirstCard.IssuingMunicipality) & vbCrLf & "Beginvaliditeit: " & (data.FirstCard.ValidityBeginDate) & vbCrLf & "Eindvaliditeit: " & (data.FirstCard.ValidityEndDate) & vbCrLf & "Rijksregisternummer: " & (data.FirstCard.NationalNumber) & vbCrLf & "Organisatie: " & (data.FirstCard.specialorganization) & vbCrLf & "Duplicaat: " & (data.FirstCard.Duplicata) & vbCrLf & _ "Familielid: " & (data.FirstCard.member_of_family), vbInformation + vbOKOnly, "EID Kaart info"

'Geeft error 438: Deze eigenschap of methode wordt niet ondersteund door het object

Exit_CmdEIDTest_Click: Exit Sub Err_CmdEIDTest_Click: Select Case Err.Number Case 9999 Resume Next Case 999 Resume Exit_CmdEIDTest_Click Case Else Call LogError(Err.Number, Err.Description, "Personeelfiche-CmdEIDTest_Click()") Resume Exit_CmdEIDTest_Click End Select End Sub