Lecture de carte EID

**thierry007** · 21/01/2015, 12h29

Bonjour à la communauté

Ci-dessous le code d'un petit projet qui devrait me donner les infos sur la carte d'identité
Pas d'erreur a la compil les messages d'activation, de carte insérée sont bien présent, mais lors de la lecture de la carte j'ai toujours le message ne peut lire la carte
J'ai essayer avec 3 cartes et toujours le même problème
dans " If Not My_eidCard.ReadId Then"
ReadId est un boolean
J'ai aussi essayer d'omettre cette clause If mais je ne lis rien du tout

Si quelqu'un vois le pourquoi, je suis preneur

Voici le tout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Imports EIDNative
 
Public Class EIDReaderX
      Public Structure StructEid
            Dim Nom As String
            Dim Prenom As String
            Dim Ville1 As String
            Dim Cp As String
            Dim Nationalite As String
            Dim NumeroNational As String
            Dim Sexe As String
            Dim NumeroMaison As String
            Dim Adresse As String
            Dim DateNaissance As Date
            Dim PlaceNaissance As String
            Dim NumeroCarte As String
            Dim TypeCarte As String
            Dim NumeroChips As String
            Dim Ville As String
            Dim CarteEidValideDe As Date
            Dim CarteEidValideTo As Date
            Dim NationaliteISO As String
            Dim Photo As Image
      End Structure
 
      Public Personne As StructEid = New StructEid
      Public WithEvents My_eidCard As EIDCard = New EIDCard
 
      Private Sub EIDReaderX_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
            ReadeEID(0)
            Label1.Text = Personne.Nom
 
      End Sub
 
      Private Sub eidCard_CardActivated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My_eidCard.CardActivated
            MsgBox("Activé")
      End Sub
 
      Private Sub eidCard_CardError(ByVal sender As System.Object, ByVal e As EIDNative.EIDErrorEventArgs) Handles My_eidCard.CardError
            EIDNative.EIDCard.GetErrorStr(Err.ToString)
      End Sub
 
      Private Sub eidCard_CardInserted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My_eidCard.CardInserted
            MsgBox("Carte insérée")
      End Sub
 
      Private Sub eidCard_CardInvalid(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My_eidCard.CardInvalid
            MsgBox("Carte invalide")
      End Sub
 
      Private Sub eidCard_CardRemoved(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My_eidCard.CardRemoved
            MsgBox("Carte retirée")
      End Sub
 
      Private Sub eidCard_CardWaiting(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My_eidCard.CardWaiting
 
      End Sub
 
 
      Public Sub ReadeEID(ByVal NumeroReader As Int16)
 
 
            My_eidCard.Clear()
            My_eidCard.InitReader(False, 0)
 
            If Not My_eidCard.ReadId Then
                  MessageBox.Show("Ne peut lire la carte....")
                  End
            Else
                  Dim AdresseTmp As String = My_eidCard.Address.Street
                  Dim idx As Integer = (AdresseTmp.Length - 1)
 
                  Do While (idx > 0)
                        If (AdresseTmp.Chars(idx) = " "c) Then
                              Exit Do
                        End If
                        idx -= 1
                  Loop
 
                  If (idx > 1) Then
                        Personne.NumeroMaison = AdresseTmp.Substring((idx + 1), ((AdresseTmp.Length - idx) - 1))
                        Personne.Adresse = AdresseTmp.Substring(0, idx)
                  Else
                        Personne.Adresse = AdresseTmp
                  End If
 
                  Personne.DateNaissance = CardDate.ToShortDateString(My_eidCard.Identity.BirthDate)
                  Personne.PlaceNaissance = My_eidCard.Identity.BirthLocation
                  Personne.NumeroCarte = CardNumber.ToString(My_eidCard.Identity.CardNumber)
                  Personne.TypeCarte = DocumentType.ToString(My_eidCard.Identity.DocumentType)
                  Personne.NumeroChips = My_eidCard.Identity.ChipNumber
                  Personne.Ville = My_eidCard.Address.Municipality
                  Personne.Nom = My_eidCard.Identity.FirstName1
                  Personne.Prenom = My_eidCard.Identity.Surname
                  Personne.Ville1 = My_eidCard.Identity.Municipality
                  Personne.Nationalite = My_eidCard.Identity.Nationality
                  Personne.NumeroNational = NationalNumber.ToString(My_eidCard.Identity.NationalNumber)
                  Personne.Sexe = My_eidCard.Identity.Sex
                  Personne.CarteEidValideDe = CardDate.ToShortDateString(My_eidCard.Identity.ValidityDateBegin)
                  Personne.CarteEidValideTo = CardDate.ToShortDateString(My_eidCard.Identity.ValidityDateEnd)
                  Personne.Cp = My_eidCard.Address.Zip
                  Personne.NationaliteISO = My_eidCard.Identity.NationalityISO
 
                  If My_eidCard.ReadPicture Then Personne.Photo = My_eidCard.Picture
 
            End If
            GC.Collect()
 
      End Sub
 
 
 
End Class

**mactwist69** · 21/01/2015, 16h04

Salut,

Difficile de voir ce qui se cache dans la classe EIDCard,

Donc je tente un truc (en aveugle) :

Si My_Card.Read_Id retourne False, c'est que tu n'as pas lancé la procédure qui lit la carte (si cela fonctionne ainsi)

Tu fais un InitReader juste avant...

Donc entre le InitReader, et le test... Ne devrait il pas y avoir un truc du genre ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

My_card.Read()

**thierry007** · 21/01/2015, 16h22

En fait cette partie initialise le lecteur de carte (Avec /sans le middleware, numéro du reader)
Donc ci-dessous c'est sans le middleware, ce qui accélère l'accès a la carte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 My_eidCard.InitReader(False, 0)

Cette partie vérifie que le lecteur lit la carte "ReadId " est de type boolean et est readonly

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  If Not My_eidCard.ReadId Then
                  MessageBox.Show("Ne peut lire la carte....")
                  End
            Else
              ....

En fait ce code a fonctionné jusqu'à voici 2 jours, mais je ne vois pas le pourquoi

**mactwist69** · 21/01/2015, 16h29

Tu n'as pas une doc sur ces classes ?

Si tu n'as rien changé dans ton code et que ça fonctionnait...
Alors ça vient surement de la carte... tu l'as peut être "briqué" ? lol

**thierry007** · 21/01/2015, 16h52

Bein j'ai essayé avec 3 cartes différente
et en suite j'ai essayé la mienne sur le site de la banque en ligne et là Ok

la class
https://onedrive.live.com/?cid=b4508...FACE85D1%21397

EIDLibrarySetup

**viktor56** · 13/01/2016, 15h35

Merci pour le partage, thierry007. j'ai dû recharger la DLL Swelio mais ça fonctionne chez moi. J'ai cherché toute la journée d'hier après ce type de classe...

**thierry007** · 15/01/2016, 17h12

Bonjour

Si cela te rend service, m'en voici bien heureux

a+

Lecture de carte EID [Débutant]

VB.NET

Discussions similaires

Partager

Partager