Bonjour,
Avec l'aide d'un article, je cherche à inclure des informations se trouvant sur une carte d'identité (belge) dans un programme.

Le problème, c'est que je n'arrive pas à récupérer toutes les infos disponibles.
Voici un exemple:
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
unit Unit1;
 
interface
 
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, EIDLIBCTRLLib_TLB, StdCtrls, XPMan;
 
type
   TForm1 = class(TForm)
      Button1: TButton;
      Edit1: TEdit;
      XPManifest1: TXPManifest;
      Edit2: TEdit;
      Edit3: TEdit;
      procedure Button1Click(Sender: TObject);
   private
    { Private declarations }
      FEID: TEIDlib;
   public
    { Public declarations }
   end;
 
var
   Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var Handle: integer;
   Imap: IMapCollection;
   certif: ICertifCheck;
begin
   FEID := TEIDlib.Create(self);
   Form1.FEID.Init('', 0, 0, Handle); // Initialisation
   Form1.FEID.GetID(Imap, certif);
   Form1.Edit1.Text := Imap.GetValue('Name'); // Ok
   Form1.Edit2.Text := Imap.GetValue('FirstName1'); // Ok
   Form1.Edit3.Text := Imap.GetValue('Municipality'); // ça ne fonctionne pas
   Form1.Edit4.Text := Imap.GetValue('Sex'); // ça ne fonctionne pas                                                           
   Form1.FEID.Exit;
end;
 
end.
Je n'ai mit que 2 valeurs qui ne fonctionnent pas, mais il y en a d'autres.
Avec le programme fourni avec le lecteur de carte, ces valeurs existent.

Un ptit coup de main serait bien venu...
Merci.

André