Smartcard auslesen, Kommandos senden

[newuser01]

Bei ComPort.WriteStr sieht egal ob ich sleep eintrage oder nicht die Ausgabe immer so auch in Memo1 = 4 Zeilen

Delphi-Quellcode:

procedure Tfrm_main.btn_readcardClick(Sender: TObject);
begin

ComPort.Port := 'COM2';
ComPort.BaudRate := br9600;
ComPort.DataBits := dbEight;
ComPort.Parity.Bits := prEven;
ComPort.StopBits := sbOneStopBit;

sleep(500);

ComPort.WriteStr(#$01#$02#$00#$00#$00#$00#$3C);

Memo1 Ausgabe

01 02 00 00 00 00 3C
01 02 00 00 00 00 3C 01 02 00 00 00 00 00 14 30 32 36 37 32 32
01 02 00 00 00 00 3C 01 02 00 00 00 00 00 14 30 32 36 37 32 32 32 34 31 35 00 00 00 00 00 00 00 00 00 00
01 02 00 00 00 00 3C 01 02 00 00 00 00 00 14 30 32 36 37 32 32 32 34 31 35 00 00 00 00 00 00 00 00 00 00 29

[newuser01]

welche Komponente benutzt du @totti ?

[totti14]

Zitat von newuser01:

welche Komponente benutzt du @totti ?

CPort benutze ich.
Ist aber egal welche Kompo die laufen alle recht gut.

[newuser01]

CPort benutze ich auch, vielleicht kannst du mir ja weiterhelfen. Wie machste denn das, also erst ATR abfragen dann Serial dann HexSerial usw. Es muss doch eine bestimmte Reihenfolge oder Ablauf stattfinden oder? Und das mit den Answer klappt ja auch noch nicht so recht, siehste ja in meinen Postings. Punkte Smartcard Programmierung hab ich NULL Erfahrung.