Smartcard auslesen, Kommandos senden

[newuser01]

Zitat von Bummi:

Wenn der Braincode für Deine Karte passt wäre IMHO $99 ein Reset
#$01#$02#$00#$00#$00#$00#$3C die Seriennummernabfrage
#$01#$02#$02#$00#$00#$00#$3E der Typ
und das was Du versucht hast die Sprache

was ich versuche hast die Sprache? was meinst du hehe

[Bummi]

Ich hatte mich verguckt

Hex Serial abfragen
#01#02#01#00#00#00#$3D

sieht ähnlich aus wie

Brainauszug

Delphi-Quellcode:

function TBrain.GetIrdetoLanguage(): String;
const
  buffer0: TIrdetoCommandBuffer = ( Data: ($01, $02, $02, $03, $00, $00, $3D) );

Den Code den Du versuchst habe ich nicht gefunden ....

[newuser01]

Zitat von Bummi:

Ich hatte mich verguckt

Hex Serial abfragen
#01#02#01#00#00#00#$3D

sieht ähnlich aus wie

Brainauszug

Delphi-Quellcode:

function TBrain.GetIrdetoLanguage(): String;
const
  buffer0: TIrdetoCommandBuffer = ( Data: ($01, $02, $02, $03, $00, $00, $3D) );

Den Code den Du versuchst habe ich nicht gefunden ....

@brummi könntest du mir bitte anhand der von mir verwendeten Komponente kurz und verständlich zeigen, wie ich den ATR auslese?


Also meine Einstellungen sind jetzt:

Delphi-Quellcode:

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

Das dürfte also passen für die Karte. Die Antwort der Karte soll dazu einfach mal in ein answer.text Feld


WriteByte($99) gibt es ja nicht, ich hab ja nur ComPort.WriteStr und was genau in

ComPortRxChar rein muss, weis ich auch nicht

Delphi-Quellcode:

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

ComPort.ReadStr(sEmpfangen,Count);
answer.Text := StrToHex(sEmpfangen);
end;

oder muss es gar in ComPortRxBuf ?

Das ganze bringt mir nichts, wenn ich nicht von Anfang an Schritt für Schritt aufbaue, Code kopieren ist einfach aber verstehen will ich Ihn auch. Und die genauen Abläufe ebenso.

[Micha88]

Zitat:

Das müssen sie bei der Vorgehensweise sein. Nur wenn man später mal was ändert (umsortiert z.B.), dann kann schnell übersehen werden, dass die Funktion entsprechend anzupassen ist. Daher mein Einwand.

Ach so, ok.

Ich regel so etwas normalerweise immer mit Arrays. Ich habe mehrere Arrays, welche ineinander greifen. Ändere ich mein erstes Array (String-Array, Inhalt von einer ComboBox z.B.), so ändert sich durch Bedingungen im Code alles bei den anderen Arrays mit.

Mies erklärt, ich weiß, aber anders kann ich es nicht erklären.

[DeddyH]

Vielleicht sollten wir dafür einen eigenen Thread eröffnen, das hat ja mit dem eigentlichen Problem höchstens am Rande zu tun.

[Bummi]

Was passiert wenn Du
auf einem
Button
ComPort.WriteStr(#$99); hast

auf einem anderen
ComPort.WriteStr(#$01#$02#$00#$00#$00#$00#$3C); FInBuffer als Klassen oder auch mal als globale Variable

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;


procedure TwasAuchImmer.Comport1RxChar(Sender: TObject; Count: Integer);
var
  s:AnsiString;
begin
    BaseSerial1.ReadStr(s,Count);
    FInBuffer := FInBuffer + s;
    Memo1.Text := Hexit(FInBuffer );
end;

[newuser01]

Zitat von Bummi:

Was passiert wenn Du
auf einem
Button
ComPort.WriteStr(#$99); hast

auf einem anderen
ComPort.WriteStr(#$01#$02#$00#$00#$00#$00#$3C); FInBuffer als Klassen oder auch mal als globale Variable

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;


procedure TwasAuchImmer.Comport1RxChar(Sender: TObject; Count: Integer);
var
  s:AnsiString;
begin
    BaseSerial1.ReadStr(s,Count);
    FInBuffer := FInBuffer + s;
    Memo1.Text := Hexit(FInBuffer );
end;

FInBuffer: AnsiString; //so als globale variable ?

Wenn ja dann steht bei

ComPort.WriteStr(#$99); das "$99" im Memo1.Text

und bei

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