Programmation d'un lecteur de carte d'identité belge en Delphi, l'ACR38U

Publié le 14/03/2006 Dans Programmation

1. Introduction
2. On code!
3. » On code (suite)
4. Et l'application?

On code (suite)

Passons maintenant à la lecture des informations. Le GetID nous renvoie une interface que l'on peut ensuite interroger pour récupérer une chaîne de caractère. Pas question de faire le tour de tout ce qui existe, on doit connaître le nom de chaque variable. Pas très pratique, heureusement que la documentation vient à notre secours:

images/articles/article490/004.png

Voici le code correspondant en Delphi avec une toute petite gestion d'erreur en cas de non présence de la carte. Malheureusement, il semble impossible avec cet ActiveX de détecter l'arrivée du carte dans le lecteur, peut être dans le futur?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
lMap: IMapCollection;
lCert: ICertifCheck;
lPicture: Pointer;
lStream: TMemoryStream;
lPictureVar: OleVariant;
lJPEG: TJPEGImage;
begin
FEID.GetID(lMap, lCert);
if lMap = nil then
ShowMessage('Impossible de lire la carte')
else
begin
self.Memo1.Lines.Add('Nom: '+lMap.GetValue('Name'));
self.Memo1.Lines.Add('Nationalité: '+lMap.GetValue('Nationality'));
self.Memo1.Lines.Add('Date de naissance: '+lMap.GetValue('BirthDate'));
end;
end;

Vous ne rêvez pas, c'est aussi simple que cela. Pris dans le feu de l'action, voyons voir si on peut également récupérer la photo sans difficulté.

Code:

FEID.GetPicture(lMap, lCert);
lPictureVar := lMap.GetValue('Picture');
lPicture := VarArrayLock(lPictureVar);
lStream := TMemoryStream.Create;
try
lStream.Write(lPicture^, VarArrayHighBound(lPictureVar, 1) - VarArrayLowBound(lPictureVar, 1) + 1);
VarArrayUnlock(lPictureVar);
lStream.Position := 0;
lJPEG := TJPEGImage.Create;
try
lJPEG.LoadFromStream(lStream);
Image1.Picture.Assign(lJPEG);
finally
FreeAndNil(lJPEG);
end;
finally
FreeAndNil(lStream);
end;

Un rien plus long pour la récupération de l'image mais cela fonctionne, c'est le principal. Il faudra un petit peu bidouiller pour pouvoir récupérer les informations à partir de l'OleVariant, mais tout est dans le code.

Liens associés

Belgium.be (2058 Clics)

Test ACR38U (3297 Clics)

L'application + Sources (2342 Clics)

Plus d'articles dans cette catégorie

23/01/2023 @ 09:56:23
Mesure d'énergie électrique et transmission radio DASH7

20/01/2014 @ 23:10:59
Du changement dans la gamme Small Business de CISCO.

11/11/2013 @ 21:21:35
Test de Embarcadero Studio RAD XE5

26/04/2011 @ 10:16:00
Votre première application Android en 5 minutes avec Flex

12/11/2008 @ 22:33:41
Protection d'application, un système de licence simple

15/11/2007 @ 14:47:59
Intégration de la carte d'identité électronique EID dans une page web

19/09/2007 @ 18:56:16
6 conseils pour écrire du meilleur code

09/11/2006 @ 20:04:30
Test de Borland Turbo Delphi!

05/09/2006 @ 18:25:38
Créer un PDC avec Samba

07/06/2006 @ 20:34:03
Faire parler votre application Delphi avec Acapela Multimedia

Commentaires

BeID - Pin Validation

Très chouette article,

il serait intéressant d'avoir un exemple un peu plus complexe, par exemple incluant une vérification de PinCode. C'est documenté, mais assez mal... Surtout via ActiveX. D'ailleurs l'exemple VB ne le reprend pas...

Cedric

Par CedricS, Publié le 17/08/2006 @ 15:23:27