Lecture d'une carte à puce

**info007** · 27/05/2009, 10h14

Bonjour,

Mon projet est en delphi , et consiste à récupérer des données d'une carte à puce et de pouvoir stocker les données téléchargés dans une base de données mysql.

je sais que c'est très vague mais je voulais quand même avoir une idée plus au moins comment se fait la lecture d'une telle carte? ya t'il des tutorials qui peuvent m'aider?ou des conseils par quoi veux-je commencer?

Je vous remercie d'avance.

**andreditdd** · 27/05/2009, 11h11

Bonjour,
pour commencer, il faudrait récupérer le sdk de la carte à puce.
Peut-être en regardant sur le site internet de la société.

J'emplois la carte à puce de la carte d'identité et c'est en allant sur le site gouvernemental que j'ai trouvé le sdk.

Voilà peut-être un début de piste.

André

**cincap** · 28/05/2009, 08h33

@ info007, dès que tu as le lecteur (lecture carte identité) tu peux exploiter ce code :

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EIDLIBCTRLLib_TLB, StdCtrls, ExtCtrls, jpeg;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FEID: TEIDlib;
  public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
 lHandler: Integer;
begin
  FEID := TEIDlib.Create(self);
  FEID.Init('', 0, 0, lHandler);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FEID.Exit;
  FreeAndNil(FEID);
end;
 
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'));
 
    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;
  end;
end;
 
end.

Avec cette unité :

Code :

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

1
2
 
unit EIDLIBCTRLLib_TLB;

Voici un lien intéressant pour tout le monde :

http://www.developpez.net/forums/d42...rte-didentite/

@+,

Cincap

**yaichi salah** · 04/01/2019, 19h00

Mérçi d'avance.
Je cherche l'unité EIDLIBCTRLLib_TLB.

**ecnet** · 06/01/2020, 19h19

bonjour tout le monde ,
ou peut on trouver la librairie EIDLIBCTRLLib_TLB ?

**ecnet** · 06/01/2020, 19h53

pour ceux qui cherchent l'unite

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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
 
unit EIDLIBCTRLLib_TLB;
 
// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //
 
// PASTLWTR : 1.2
// File generated on 14/03/2006 1:14:30 from Type Library described below.
 
// ************************************************************************  //
// Type Lib: C:\WINDOWS\system32\EIDLibCtrl.dll (1)
// LIBID: {7705C6CB-5A66-4F92-B296-2B34ED21745C}
// LCID: 0
// Helpfile: 
// HelpString: EIDLibCtrl 1.0 Type Library
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
 
uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
 
 
 
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  EIDLIBCTRLLibMajorVersion = 1;
  EIDLIBCTRLLibMinorVersion = 0;
 
  LIBID_EIDLIBCTRLLib: TGUID = '{7705C6CB-5A66-4F92-B296-2B34ED21745C}';
 
  DIID__IEIDlibEvents: TGUID = '{23271379-5195-4384-98DA-F54960DA8A84}';
  IID_IEIDlib: TGUID = '{D5701A16-9D8D-46C6-8E08-B3F1BAE9C4DC}';
  CLASS_EIDlib: TGUID = '{4E29F09E-EBCC-4A3B-BAA7-8372EC375870}';
  IID_IRetStatus: TGUID = '{9B4AD832-6FE8-4826-BFD3-3F278A40F741}';
  IID_IMapCollection: TGUID = '{886B55ED-4245-4FE9-B3B5-1D78B551000B}';
  IID_ICertifCheck: TGUID = '{9233063D-D860-4CAD-AD47-BE48CC62D709}';
  IID_IPin: TGUID = '{B7E86746-2EA7-4237-B523-5BD826A0BAF9}';
  IID_IRaw: TGUID = '{9D5F1B11-8438-4C4E-9011-070F2E43C758}';
  CLASS_RetStatus: TGUID = '{8923F2AE-B06E-430B-93F6-96FE1BDEEFF8}';
  CLASS_MapCollection: TGUID = '{BB91CEDA-82D5-4889-8732-3DB804619852}';
  IID_ICertif: TGUID = '{26995400-2928-4E1B-9981-A317D486AC5A}';
  CLASS_Certif: TGUID = '{28310B8B-0774-4483-85AF-4966EC52D8BC}';
  CLASS_CertifCheck: TGUID = '{4CBC8AEE-7684-492E-8AA5-505943987B53}';
  CLASS_Pin: TGUID = '{B1731EE0-BE64-4FE3-8EAC-BF37A4D96B35}';
  CLASS_Raw: TGUID = '{79EAFF90-57D8-4A58-BC0C-0C5F7F60E65E}';
type
 
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  _IEIDlibEvents = dispinterface;
  IEIDlib = interface;
  IEIDlibDisp = dispinterface;
  IRetStatus = interface;
  IRetStatusDisp = dispinterface;
  IMapCollection = interface;
  IMapCollectionDisp = dispinterface;
  ICertifCheck = interface;
  ICertifCheckDisp = dispinterface;
  IPin = interface;
  IPinDisp = dispinterface;
  IRaw = interface;
  IRawDisp = dispinterface;
  ICertif = interface;
  ICertifDisp = dispinterface;
 
// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  EIDlib = IEIDlib;
  RetStatus = IRetStatus;
  MapCollection = IMapCollection;
  Certif = ICertif;
  CertifCheck = ICertifCheck;
  Pin = IPin;
  Raw = IRaw;
 
 
// *********************************************************************//
// DispIntf:  _IEIDlibEvents
// Flags:     (4096) Dispatchable
// GUID:      {23271379-5195-4384-98DA-F54960DA8A84}
// *********************************************************************//
  _IEIDlibEvents = dispinterface
    ['{23271379-5195-4384-98DA-F54960DA8A84}']
  end;
 
// *********************************************************************//
// Interface: IEIDlib
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D5701A16-9D8D-46C6-8E08-B3F1BAE9C4DC}
// *********************************************************************//
  IEIDlib = interface(IDispatch)
    ['{D5701A16-9D8D-46C6-8E08-B3F1BAE9C4DC}']
    function Init(const strReaderName: WideString; lOCSP: Integer; lCRL: Integer; 
                  out plHandle: Integer): IRetStatus; safecall;
    function Exit: IRetStatus; safecall;
    function GetID(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus; safecall;
    function GetAddress(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus; safecall;
    function GetPicture(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus; safecall;
    function GetVersionInfo(bSignature: Integer; out ppMapCollection: IMapCollection; 
                            out pvtSignature: OleVariant): IRetStatus; safecall;
    function BeginTransaction: IRetStatus; safecall;
    function EndTransaction: IRetStatus; safecall;
    function FlushCache: IRetStatus; safecall;
    function SelectApplication(vtApplication: OleVariant): IRetStatus; safecall;
    function SendAPDU(vtCommand: OleVariant; const pPIN: IPin; out pvtResponse: OleVariant): IRetStatus; safecall;
    function VerifyPIN(const pPIN: IPin; const bstrPin: WideString; out plTriesLeft: Integer): IRetStatus; safecall;
    function ChangePin(const pPIN: IPin; const strOldPin: WideString; const strNewPin: WideString; 
                       out plTriesLeft: Integer): IRetStatus; safecall;
    function GetPinStatus(const pPIN: IPin; bSignature: Integer; out pvtSignature: OleVariant; 
                          out plTriesLeft: Integer): IRetStatus; safecall;
    function ReadFile(const pPIN: IPin; vtFileId: OleVariant; out pvtData: OleVariant): IRetStatus; safecall;
    function WriteFile(const pPIN: IPin; vtFileId: OleVariant; vtData: OleVariant): IRetStatus; safecall;
    function SetRawData(const pRaw: IRaw): IRetStatus; safecall;
    function GetRawData(out ppRaw: IRaw): IRetStatus; safecall;
  end;
 
// *********************************************************************//
// DispIntf:  IEIDlibDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D5701A16-9D8D-46C6-8E08-B3F1BAE9C4DC}
// *********************************************************************//
  IEIDlibDisp = dispinterface
    ['{D5701A16-9D8D-46C6-8E08-B3F1BAE9C4DC}']
    function Init(const strReaderName: WideString; lOCSP: Integer; lCRL: Integer; 
                  out plHandle: Integer): IRetStatus; dispid 1;
    function Exit: IRetStatus; dispid 2;
    function GetID(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus; dispid 3;
    function GetAddress(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus; dispid 4;
    function GetPicture(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus; dispid 5;
    function GetVersionInfo(bSignature: Integer; out ppMapCollection: IMapCollection; 
                            out pvtSignature: OleVariant): IRetStatus; dispid 6;
    function BeginTransaction: IRetStatus; dispid 7;
    function EndTransaction: IRetStatus; dispid 8;
    function FlushCache: IRetStatus; dispid 9;
    function SelectApplication(vtApplication: OleVariant): IRetStatus; dispid 10;
    function SendAPDU(vtCommand: OleVariant; const pPIN: IPin; out pvtResponse: OleVariant): IRetStatus; dispid 11;
    function VerifyPIN(const pPIN: IPin; const bstrPin: WideString; out plTriesLeft: Integer): IRetStatus; dispid 12;
    function ChangePin(const pPIN: IPin; const strOldPin: WideString; const strNewPin: WideString; 
                       out plTriesLeft: Integer): IRetStatus; dispid 13;
    function GetPinStatus(const pPIN: IPin; bSignature: Integer; out pvtSignature: OleVariant; 
                          out plTriesLeft: Integer): IRetStatus; dispid 14;
    function ReadFile(const pPIN: IPin; vtFileId: OleVariant; out pvtData: OleVariant): IRetStatus; dispid 15;
    function WriteFile(const pPIN: IPin; vtFileId: OleVariant; vtData: OleVariant): IRetStatus; dispid 16;
    function SetRawData(const pRaw: IRaw): IRetStatus; dispid 17;
    function GetRawData(out ppRaw: IRaw): IRetStatus; dispid 18;
  end;
 
// *********************************************************************//
// Interface: IRetStatus
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9B4AD832-6FE8-4826-BFD3-3F278A40F741}
// *********************************************************************//
  IRetStatus = interface(IDispatch)
    ['{9B4AD832-6FE8-4826-BFD3-3F278A40F741}']
    function GetGeneral: Integer; safecall;
    function GetPCSC: Integer; safecall;
    function GetSystem: Integer; safecall;
    procedure SetGeneral(lRetVal: Integer); safecall;
    procedure SetPCSC(lRetVal: Integer); safecall;
    procedure SetSystem(lRetVal: Integer); safecall;
    function GetCardSW: OleVariant; safecall;
    procedure SetCardSW(vtCardSW: OleVariant); safecall;
  end;
 
// *********************************************************************//
// DispIntf:  IRetStatusDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9B4AD832-6FE8-4826-BFD3-3F278A40F741}
// *********************************************************************//
  IRetStatusDisp = dispinterface
    ['{9B4AD832-6FE8-4826-BFD3-3F278A40F741}']
    function GetGeneral: Integer; dispid 1;
    function GetPCSC: Integer; dispid 2;
    function GetSystem: Integer; dispid 3;
    procedure SetGeneral(lRetVal: Integer); dispid 4;
    procedure SetPCSC(lRetVal: Integer); dispid 5;
    procedure SetSystem(lRetVal: Integer); dispid 6;
    function GetCardSW: OleVariant; dispid 7;
    procedure SetCardSW(vtCardSW: OleVariant); dispid 8;
  end;
 
// *********************************************************************//
// Interface: IMapCollection
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {886B55ED-4245-4FE9-B3B5-1D78B551000B}
// *********************************************************************//
  IMapCollection = interface(IDispatch)
    ['{886B55ED-4245-4FE9-B3B5-1D78B551000B}']
    function GetValue(const strKey: WideString): OleVariant; safecall;
    procedure SetValue(const strKey: WideString; vtValue: OleVariant); safecall;
    function GetCount: Integer; safecall;
    procedure Clear; safecall;
  end;
 
// *********************************************************************//
// DispIntf:  IMapCollectionDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {886B55ED-4245-4FE9-B3B5-1D78B551000B}
// *********************************************************************//
  IMapCollectionDisp = dispinterface
    ['{886B55ED-4245-4FE9-B3B5-1D78B551000B}']
    function GetValue(const strKey: WideString): OleVariant; dispid 1;
    procedure SetValue(const strKey: WideString; vtValue: OleVariant); dispid 2;
    function GetCount: Integer; dispid 3;
    procedure Clear; dispid 4;
  end;
 
// *********************************************************************//
// Interface: ICertifCheck
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9233063D-D860-4CAD-AD47-BE48CC62D709}
// *********************************************************************//
  ICertifCheck = interface(IDispatch)
    ['{9233063D-D860-4CAD-AD47-BE48CC62D709}']
    function GetPolicy: Integer; safecall;
    function GetSignatureCheck: Integer; safecall;
    function GetCertificates: OleVariant; safecall;
    procedure SetPolicy(lPolicy: Integer); safecall;
    procedure SetSignatureCheck(lSignatureCheck: Integer); safecall;
    procedure SetCertificates(vtCertificates: OleVariant); safecall;
  end;
 
// *********************************************************************//
// DispIntf:  ICertifCheckDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9233063D-D860-4CAD-AD47-BE48CC62D709}
// *********************************************************************//
  ICertifCheckDisp = dispinterface
    ['{9233063D-D860-4CAD-AD47-BE48CC62D709}']
    function GetPolicy: Integer; dispid 1;
    function GetSignatureCheck: Integer; dispid 2;
    function GetCertificates: OleVariant; dispid 3;
    procedure SetPolicy(lPolicy: Integer); dispid 4;
    procedure SetSignatureCheck(lSignatureCheck: Integer); dispid 5;
    procedure SetCertificates(vtCertificates: OleVariant); dispid 6;
  end;
 
// *********************************************************************//
// Interface: IPin
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B7E86746-2EA7-4237-B523-5BD826A0BAF9}
// *********************************************************************//
  IPin = interface(IDispatch)
    ['{B7E86746-2EA7-4237-B523-5BD826A0BAF9}']
    procedure SetPinType(lType: Integer); safecall;
    procedure SetID(vtID: OleVariant); safecall;
    procedure SetUsageCode(lUsageCode: Integer); safecall;
    procedure SetShortUsage(const strShortUsage: WideString); safecall;
    procedure SetLongUsage(const strLongUsage: WideString); safecall;
    function GetPinType: Integer; safecall;
    function GetID: OleVariant; safecall;
    function GetUsageCode: Integer; safecall;
    function GetShortUsage: WideString; safecall;
    function GetLongUsage: WideString; safecall;
  end;
 
// *********************************************************************//
// DispIntf:  IPinDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B7E86746-2EA7-4237-B523-5BD826A0BAF9}
// *********************************************************************//
  IPinDisp = dispinterface
    ['{B7E86746-2EA7-4237-B523-5BD826A0BAF9}']
    procedure SetPinType(lType: Integer); dispid 1;
    procedure SetID(vtID: OleVariant); dispid 2;
    procedure SetUsageCode(lUsageCode: Integer); dispid 3;
    procedure SetShortUsage(const strShortUsage: WideString); dispid 4;
    procedure SetLongUsage(const strLongUsage: WideString); dispid 5;
    function GetPinType: Integer; dispid 6;
    function GetID: OleVariant; dispid 7;
    function GetUsageCode: Integer; dispid 8;
    function GetShortUsage: WideString; dispid 9;
    function GetLongUsage: WideString; dispid 10;
  end;
 
// *********************************************************************//
// Interface: IRaw
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9D5F1B11-8438-4C4E-9011-070F2E43C758}
// *********************************************************************//
  IRaw = interface(IDispatch)
    ['{9D5F1B11-8438-4C4E-9011-070F2E43C758}']
    procedure SetIDData(vtID: OleVariant); safecall;
    procedure GetIDData(out pvtID: OleVariant); safecall;
    procedure SetIDSigData(vtIDSigData: OleVariant); safecall;
    procedure GetIDSigData(out pvtIDSigData: OleVariant); safecall;
    procedure SetAddrData(vtAddrData: OleVariant); safecall;
    procedure GetAddrData(out pvtAddrData: OleVariant); safecall;
    procedure SetAddrSigData(vtAddrSigData: OleVariant); safecall;
    procedure GetAddrSigData(out pvtAddrSigData: OleVariant); safecall;
    procedure SetPictureData(vtPictureData: OleVariant); safecall;
    procedure GetPictureData(out pvtPictureData: OleVariant); safecall;
    procedure SetRNData(vtRNData: OleVariant); safecall;
    procedure GetRNData(out pvtRNData: OleVariant); safecall;
    procedure SetCardData(vtCardData: OleVariant); safecall;
    procedure GetCardData(out pvtCardData: OleVariant); safecall;
    procedure SetTokenInfoData(vtTokenInfoData: OleVariant); safecall;
    procedure GetTokenInfoData(out pvtTokenInfoData: OleVariant); safecall;
    procedure SetChallengeData(vtChallengeData: OleVariant); safecall;
    procedure GetChallengeData(out pvtChallengeData: OleVariant); safecall;
    procedure SetResponseData(vtResponseData: OleVariant); safecall;
    procedure GetResponseData(out pvtResponseData: OleVariant); safecall;
  end;
 
// *********************************************************************//
// DispIntf:  IRawDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9D5F1B11-8438-4C4E-9011-070F2E43C758}
// *********************************************************************//
  IRawDisp = dispinterface
    ['{9D5F1B11-8438-4C4E-9011-070F2E43C758}']
    procedure SetIDData(vtID: OleVariant); dispid 1;
    procedure GetIDData(out pvtID: OleVariant); dispid 2;
    procedure SetIDSigData(vtIDSigData: OleVariant); dispid 3;
    procedure GetIDSigData(out pvtIDSigData: OleVariant); dispid 4;
    procedure SetAddrData(vtAddrData: OleVariant); dispid 5;
    procedure GetAddrData(out pvtAddrData: OleVariant); dispid 6;
    procedure SetAddrSigData(vtAddrSigData: OleVariant); dispid 7;
    procedure GetAddrSigData(out pvtAddrSigData: OleVariant); dispid 8;
    procedure SetPictureData(vtPictureData: OleVariant); dispid 9;
    procedure GetPictureData(out pvtPictureData: OleVariant); dispid 10;
    procedure SetRNData(vtRNData: OleVariant); dispid 11;
    procedure GetRNData(out pvtRNData: OleVariant); dispid 12;
    procedure SetCardData(vtCardData: OleVariant); dispid 13;
    procedure GetCardData(out pvtCardData: OleVariant); dispid 14;
    procedure SetTokenInfoData(vtTokenInfoData: OleVariant); dispid 15;
    procedure GetTokenInfoData(out pvtTokenInfoData: OleVariant); dispid 16;
    procedure SetChallengeData(vtChallengeData: OleVariant); dispid 17;
    procedure GetChallengeData(out pvtChallengeData: OleVariant); dispid 18;
    procedure SetResponseData(vtResponseData: OleVariant); dispid 19;
    procedure GetResponseData(out pvtResponseData: OleVariant); dispid 20;
  end;
 
// *********************************************************************//
// Interface: ICertif
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {26995400-2928-4E1B-9981-A317D486AC5A}
// *********************************************************************//
  ICertif = interface(IDispatch)
    ['{26995400-2928-4E1B-9981-A317D486AC5A}']
    function GetCertif: OleVariant; safecall;
    function GetLabel: WideString; safecall;
    function GetStatus: Integer; safecall;
    procedure SetStatus(lStatus: Integer); safecall;
    procedure SetLabel(const bstrLabel: WideString); safecall;
    procedure SetCertif(vtCertif: OleVariant); safecall;
  end;
 
// *********************************************************************//
// DispIntf:  ICertifDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {26995400-2928-4E1B-9981-A317D486AC5A}
// *********************************************************************//
  ICertifDisp = dispinterface
    ['{26995400-2928-4E1B-9981-A317D486AC5A}']
    function GetCertif: OleVariant; dispid 1;
    function GetLabel: WideString; dispid 2;
    function GetStatus: Integer; dispid 3;
    procedure SetStatus(lStatus: Integer); dispid 4;
    procedure SetLabel(const bstrLabel: WideString); dispid 5;
    procedure SetCertif(vtCertif: OleVariant); dispid 6;
  end;
 
 
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : TEIDlib
// Help String      : EIDlib Class
// Default Interface: IEIDlib
// Def. Intf. DISP? : No
// Event   Interface: _IEIDlibEvents
// TypeFlags        : (2) CanCreate
// *********************************************************************//
  TEIDlib = class(TOleControl)
  private
    FIntf: IEIDlib;
    function  GetControlInterface: IEIDlib;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
  public
    function Init(const strReaderName: WideString; lOCSP: Integer; lCRL: Integer; 
                  out plHandle: Integer): IRetStatus;
    function Exit: IRetStatus;
    function GetID(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus;
    function GetAddress(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus;
    function GetPicture(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus;
    function GetVersionInfo(bSignature: Integer; out ppMapCollection: IMapCollection; 
                            out pvtSignature: OleVariant): IRetStatus;
    function BeginTransaction: IRetStatus;
    function EndTransaction: IRetStatus;
    function FlushCache: IRetStatus;
    function SelectApplication(vtApplication: OleVariant): IRetStatus;
    function SendAPDU(vtCommand: OleVariant; const pPIN: IPin; out pvtResponse: OleVariant): IRetStatus;
    function VerifyPIN(const pPIN: IPin; const bstrPin: WideString; out plTriesLeft: Integer): IRetStatus;
    function ChangePin(const pPIN: IPin; const strOldPin: WideString; const strNewPin: WideString; 
                       out plTriesLeft: Integer): IRetStatus;
    function GetPinStatus(const pPIN: IPin; bSignature: Integer; out pvtSignature: OleVariant; 
                          out plTriesLeft: Integer): IRetStatus;
    function ReadFile(const pPIN: IPin; vtFileId: OleVariant; out pvtData: OleVariant): IRetStatus;
    function WriteFile(const pPIN: IPin; vtFileId: OleVariant; vtData: OleVariant): IRetStatus;
    function SetRawData(const pRaw: IRaw): IRetStatus;
    function GetRawData(out ppRaw: IRaw): IRetStatus;
    property  ControlInterface: IEIDlib read GetControlInterface;
    property  DefaultInterface: IEIDlib read GetControlInterface;
  published
    property Anchors;
  end;
 
// *********************************************************************//
// The Class CoRetStatus provides a Create and CreateRemote method to          
// create instances of the default interface IRetStatus exposed by              
// the CoClass RetStatus. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoRetStatus = class
    class function Create: IRetStatus;
    class function CreateRemote(const MachineName: string): IRetStatus;
  end;
 
// *********************************************************************//
// The Class CoMapCollection provides a Create and CreateRemote method to          
// create instances of the default interface IMapCollection exposed by              
// the CoClass MapCollection. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoMapCollection = class
    class function Create: IMapCollection;
    class function CreateRemote(const MachineName: string): IMapCollection;
  end;
 
// *********************************************************************//
// The Class CoCertif provides a Create and CreateRemote method to          
// create instances of the default interface ICertif exposed by              
// the CoClass Certif. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoCertif = class
    class function Create: ICertif;
    class function CreateRemote(const MachineName: string): ICertif;
  end;
 
// *********************************************************************//
// The Class CoCertifCheck provides a Create and CreateRemote method to          
// create instances of the default interface ICertifCheck exposed by              
// the CoClass CertifCheck. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoCertifCheck = class
    class function Create: ICertifCheck;
    class function CreateRemote(const MachineName: string): ICertifCheck;
  end;
 
// *********************************************************************//
// The Class CoPin provides a Create and CreateRemote method to          
// create instances of the default interface IPin exposed by              
// the CoClass Pin. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoPin = class
    class function Create: IPin;
    class function CreateRemote(const MachineName: string): IPin;
  end;
 
// *********************************************************************//
// The Class CoRaw provides a Create and CreateRemote method to          
// create instances of the default interface IRaw exposed by              
// the CoClass Raw. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoRaw = class
    class function Create: IRaw;
    class function CreateRemote(const MachineName: string): IRaw;
  end;
 
procedure Register;
 
resourcestring
  dtlServerPage = 'ActiveX';
 
  dtlOcxPage = 'ActiveX';
 
implementation
 
uses ComObj;
 
procedure TEIDlib.InitControlData;
const
  CControlData: TControlData2 = (
    ClassID: '{4E29F09E-EBCC-4A3B-BAA7-8372EC375870}';
    EventIID: '';
    EventCount: 0;
    EventDispIDs: nil;
    LicenseKey: nil (*HR:$80004002*);
    Flags: $00000000;
    Version: 401);
begin
  ControlData := @CControlData;
end;
 
procedure TEIDlib.CreateControl;
 
  procedure DoCreate;
  begin
    FIntf := IUnknown(OleObject) as IEIDlib;
  end;
 
begin
  if FIntf = nil then DoCreate;
end;
 
function TEIDlib.GetControlInterface: IEIDlib;
begin
  CreateControl;
  Result := FIntf;
end;
 
function TEIDlib.Init(const strReaderName: WideString; lOCSP: Integer; lCRL: Integer; 
                      out plHandle: Integer): IRetStatus;
begin
  Result := DefaultInterface.Init(strReaderName, lOCSP, lCRL, plHandle);
end;
 
function TEIDlib.Exit: IRetStatus;
begin
  Result := DefaultInterface.Exit;
end;
 
function TEIDlib.GetID(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus;
begin
  Result := DefaultInterface.GetID(ppMapCollection, ppCertifCheck);
end;
 
function TEIDlib.GetAddress(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus;
begin
  Result := DefaultInterface.GetAddress(ppMapCollection, ppCertifCheck);
end;
 
function TEIDlib.GetPicture(out ppMapCollection: IMapCollection; out ppCertifCheck: ICertifCheck): IRetStatus;
begin
  Result := DefaultInterface.GetPicture(ppMapCollection, ppCertifCheck);
end;
 
function TEIDlib.GetVersionInfo(bSignature: Integer; out ppMapCollection: IMapCollection; 
                                out pvtSignature: OleVariant): IRetStatus;
begin
  Result := DefaultInterface.GetVersionInfo(bSignature, ppMapCollection, pvtSignature);
end;
 
function TEIDlib.BeginTransaction: IRetStatus;
begin
  Result := DefaultInterface.BeginTransaction;
end;
 
function TEIDlib.EndTransaction: IRetStatus;
begin
  Result := DefaultInterface.EndTransaction;
end;
 
function TEIDlib.FlushCache: IRetStatus;
begin
  Result := DefaultInterface.FlushCache;
end;
 
function TEIDlib.SelectApplication(vtApplication: OleVariant): IRetStatus;
begin
  Result := DefaultInterface.SelectApplication(vtApplication);
end;
 
function TEIDlib.SendAPDU(vtCommand: OleVariant; const pPIN: IPin; out pvtResponse: OleVariant): IRetStatus;
begin
  Result := DefaultInterface.SendAPDU(vtCommand, pPIN, pvtResponse);
end;
 
function TEIDlib.VerifyPIN(const pPIN: IPin; const bstrPin: WideString; out plTriesLeft: Integer): IRetStatus;
begin
  Result := DefaultInterface.VerifyPIN(pPIN, bstrPin, plTriesLeft);
end;
 
function TEIDlib.ChangePin(const pPIN: IPin; const strOldPin: WideString; 
                           const strNewPin: WideString; out plTriesLeft: Integer): IRetStatus;
begin
  Result := DefaultInterface.ChangePin(pPIN, strOldPin, strNewPin, plTriesLeft);
end;
 
function TEIDlib.GetPinStatus(const pPIN: IPin; bSignature: Integer; out pvtSignature: OleVariant; 
                              out plTriesLeft: Integer): IRetStatus;
begin
  Result := DefaultInterface.GetPinStatus(pPIN, bSignature, pvtSignature, plTriesLeft);
end;
 
function TEIDlib.ReadFile(const pPIN: IPin; vtFileId: OleVariant; out pvtData: OleVariant): IRetStatus;
begin
  Result := DefaultInterface.ReadFile(pPIN, vtFileId, pvtData);
end;
 
function TEIDlib.WriteFile(const pPIN: IPin; vtFileId: OleVariant; vtData: OleVariant): IRetStatus;
begin
  Result := DefaultInterface.WriteFile(pPIN, vtFileId, vtData);
end;
 
function TEIDlib.SetRawData(const pRaw: IRaw): IRetStatus;
begin
  Result := DefaultInterface.SetRawData(pRaw);
end;
 
function TEIDlib.GetRawData(out ppRaw: IRaw): IRetStatus;
begin
  Result := DefaultInterface.GetRawData(ppRaw);
end;
 
class function CoRetStatus.Create: IRetStatus;
begin
  Result := CreateComObject(CLASS_RetStatus) as IRetStatus;
end;
 
class function CoRetStatus.CreateRemote(const MachineName: string): IRetStatus;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_RetStatus) as IRetStatus;
end;
 
class function CoMapCollection.Create: IMapCollection;
begin
  Result := CreateComObject(CLASS_MapCollection) as IMapCollection;
end;
 
class function CoMapCollection.CreateRemote(const MachineName: string): IMapCollection;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_MapCollection) as IMapCollection;
end;
 
class function CoCertif.Create: ICertif;
begin
  Result := CreateComObject(CLASS_Certif) as ICertif;
end;
 
class function CoCertif.CreateRemote(const MachineName: string): ICertif;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Certif) as ICertif;
end;
 
class function CoCertifCheck.Create: ICertifCheck;
begin
  Result := CreateComObject(CLASS_CertifCheck) as ICertifCheck;
end;
 
class function CoCertifCheck.CreateRemote(const MachineName: string): ICertifCheck;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_CertifCheck) as ICertifCheck;
end;
 
class function CoPin.Create: IPin;
begin
  Result := CreateComObject(CLASS_Pin) as IPin;
end;
 
class function CoPin.CreateRemote(const MachineName: string): IPin;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Pin) as IPin;
end;
 
class function CoRaw.Create: IRaw;
begin
  Result := CreateComObject(CLASS_Raw) as IRaw;
end;
 
class function CoRaw.CreateRemote(const MachineName: string): IRaw;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Raw) as IRaw;
end;
 
procedure Register;
begin
  RegisterComponents(dtlOcxPage, [TEIDlib]);
end;
 
end.

**ecnet** · 06/01/2020, 19h56

mais on essayant d' exécuter le code de cincap , je reçois un message d'erreur Classe non enregistrée ? quelle 'un à une idée ?

**tourlourou** · 06/01/2020, 20h38

Est-ce une unité créée par importation d'un contrôle Active X ?

**Paul TOTH** · 06/01/2020, 20h41

le code propose d'instancier un objet COM qui est supposé géré la lecture d'une carte à puce...si tu as l'erreur "Classe non enregistrée" c'est que l'objet COM en question n'est pas installé sur ton PC.

mais lire une "carte à puce" c'est assez vague comme question...je fais de la lecture de carte de professionnels de santé, de carte Vitale, de carte bancaire...et c'est à chaque fois différent

**cincap** · 07/01/2020, 11h30

Bonjour à toutes et à tous, excellente santé pour tous.

@ ecnet,

Après des recherches, j'avais trouvé une autre façon de faire, il existe deux unités pour simplifier le module qui fonctionne bien pour lire une carte d'identité sur D6 et Windows 10 - 64bits.

Avec un lecteur de carte branché en Usb naturellement !

uses
Windows, Messages, SysUtils, Classes, ShellApi, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, eidCard, eidNative, jpeg;

@+,

cincap

**cincap** · 08/01/2020, 10h55

Bonjour à toutes et à tous,

Voici le lien pour un Sdk avec démo en Delphi et les deux unités référentiées.

https://sourceforge.net/projects/eid...4.zip/download

La démo fonctionne correctement avec D6 et Windows 10 64bits en ce qui concerne la lecture d'une carte d'identité Belge !

@+,

cincap

**ecnet** · 08/01/2020, 20h32

Bonjour tout le monde,
En faite dans mon projet delphi XE 4, j'ai à lire une carte à puce CHIFA ALGERIE, J’espère lire au moins le numéro de la carte insérée, ou un numéro d'identification qui soit unique de la carte, j'ai un lecteur Gemalto GemPC PINPAD USB SMART card reader, mais je ne sais pas comment faire ?