Smartcard auslesen, Kommandos senden

[bernhard_LA]

welcher Leser (COM oder USB) und welcher Karten Type (Synchron oder Ascychron)

am Besten via PC/SC - Windows Funktionen mit der Karte reden

[mquadrat]

Zitat von bernhard_LA:

welcher Leser (COM oder USB) und welcher Karten Type (Synchron oder Ascychron)

am Besten via PC/SC - Windows Funktionen mit der Karte reden

PC/SC hatte ich auf der ersten Seite schon vorgeschlagen. Scheinbar soll/muss es unbedingt über den COM-Port gehen. Warum auch immer.

[bernhard_LA]

alte Telfonwertkarten und COM Port mag noch OK sein, bei den Controller Karten (Geldkarte, SIM, Ausweis, ....) exterm viel Arbeit die Protokolle(T=1, T=0, ....) zu implementieren

[newuser01]

Zitat von bernhard_LA:

welcher Leser (COM oder USB) und welcher Karten Type (Synchron oder Ascychron)

am Besten via PC/SC - Windows Funktionen mit der Karte reden

Reader ist ein Cas3, angeschlossen (Strom USB) + Serielles Kabel an Com1. Über "Cas Interface Studio" kann ich dann auf PHOENIX Modus 6 MHz einstellen, was ich ja bei der Karte auch brauch. (Synchron oder Ascychron) kann ich nicht beantworten, ist ne alte S02 Karte

ATR: 3B 9F 21 0E 49 52 44 45 54 4F 20 41 43 53 03 84 55 FF 80 6D

[;.!.IRDETO ACS..U..m]

[newuser01]

@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

[Bummi]

Dann bau sie aus ...

[newuser01]

Zitat von Bummi:

Dann bau sie aus ...

kleiner Tipp?

Und zwei mal hinternander erst atr und dann serial übergeben geht nicht in ComPortRxChar. Wie kann ich das realisieren? Kann ich nicht ComPort.ReadStr im Button verwenden und erst das eine zb. ATR dann das andere zb. Serial ausgeben? usw.

Delphi-Quellcode:

ComPort.ReadStr(s,Count);
FInBuffer := FInBuffer + s; // globale variable
e_atr.Text := Hexit(FInBuffer);

ComPort.ReadStr(s,Count);
FInBuffer := FInBuffer + s; // globale variable
e_serial.Text := Hexit(FInBuffer);

[Bummi]

Zitat:

kleiner Tipp?

hier einfach + '$' und gegf. +' ' rausnehmen?

Delphi-Quellcode:

Function Hexit(const s:AnsiString):String;
var
 i:Integer;
begin
 Result := '';
 for I := 1 to Length(s) do Result := Result +'$' +IntToHex(Byte(s[i]),2) +' ';
end;

in #21 hatte ich geschrieben

Zitat:

InterpretInbuffer; // Eine Prozedur die den Puffer auswertet, komplette Nachrichten extrahiert, aus dem Puffer entfernt und verarbeitet

so würde ich es machen ...

[newuser01]

Zitat von Bummi:

Zitat:

kleiner Tipp?

hier einfach + '$' und gegf. +' ' rausnehmen?

Delphi-Quellcode:

Function Hexit(const s:AnsiString):String;
var
 i:Integer;
begin
 Result := '';
 for I := 1 to Length(s) do Result := Result +'$' +IntToHex(Byte(s[i]),2) +' ';
end;

in #21 hatte ich geschrieben

Zitat:

InterpretInbuffer; // Eine Prozedur die den Puffer auswertet, komplette Nachrichten extrahiert, aus dem Puffer entfernt und verarbeitet

so würde ich es machen ...

das mit den '$' hat schon mal geklappt

InterpretInbuffer meinst du so?

Delphi-Quellcode:

procedure Tfrm_main.InterpretInbuffer;
var
     i:Integer;
     part:AnsiString;
begin
     i := Pos(#10,FInBuffer);
     Memo1.Lines.Add(FInBuffer);
     while i>0 do
        begin
           Part := Copy(FInBuffer,1,i-1);
           FInBuffer := Copy(FInBuffer,i+1,Length(FInBuffer));
           Memo2.Lines.Add(Part);
           i := Pos(#10,FInBuffer);
        end;
end;

und dann so

Delphi-Quellcode:

procedure Tfrm_main.ComPortRxChar(Sender: TObject; Count: Integer);
var
s:AnsiString;
begin

ComPort.ReadStr(s,Count);
FInBuffer := FInBuffer + s; // globale variable
InterPretInbuffer;

end;

Wird aber dann in im Memo1 blos das:

Delphi-Quellcode:

;Ÿ!IRDETO ACS
;Ÿ!IRDETO ACS„Uÿ€m

angezeigt. Kannst du das ein bischen erklären mit den InterPretInbuffer ?


Nachtrag: Hexausgabe hab ich berichtigt, wenns so korrekt ist

Delphi-Quellcode:

procedure Tfrm_main.InterpretInbuffer;
var
     i:Integer;
     part:AnsiString;
begin
     i := Pos(#10,Hexit(FInBuffer));
     Memo1.Lines.Add(Hexit(FInBuffer));
     while i>0 do
        begin
           Part := Copy(Hexit(FInBuffer),1,i-1);
           FInBuffer := Copy(Hexit(FInBuffer),i+1,Length(Hexit(FInBuffer)));
           Memo1.Lines.Add(Part);
           i := Pos(#10,Hexit(FInBuffer));
        end;
end;