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