@Bummi
mit:
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;
//Kartenreset
ComPort.FlowControl.ControlRTS := rtsEnable;
ComPort.FlowControl.ControlRTS := rtsDisable;
ComPort.FlowControl.ControlDTR := dtrEnable;
ComPort.FlowControl.ControlDTR := dtrDisable;
end;
und dem:
Delphi-Quellcode:
procedure Tfrm_main.ComPortRxChar(Sender: TObject; Count: Integer);
var
s:AnsiString;
begin
ComPort.ReadStr(s,Count);
FInBuffer := FInBuffer + sEmpfangen;
e_atr.Text := Hexit(FInBuffer);
end;
bekomm ich schon mal den richtigen
ATR:
$3B $9F $21 $0E $49 $52 $44 $45 $54 $4F $20 $41 $43 $53 $03 $84 $55 $FF $80 $6D
Allerdings stören mich noch die
$ Zeichen in der Ausgabe
