Smartcard auslesen, Kommandos senden

[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 "

[newuser01]

Bevor wir hier weiter machen, hab ich mal die andere Komponente ASYNC PRO (API) mir angeschaut, da gibt es Sachen wie


ApdComPort1 kann man über die Eigenschaften verbinden mit ApdTapiDevice1

ApdTapiStatus1 kann man verbinden mit ApdTapiDevice1

ApdTapiLog1 kann man verbinden mit ApdTapiStatus1

und so weiter..........


senden kann man dann zb. so

Delphi-Quellcode:

ApdComPort1.ComNumber := 2;

ApdComPort1.Baud := 9600;
ApdComPort1.Parity := pNone;
ApdComPort1.DataBits := 8;
ApdComPort1.StopBits := 2;

ApdComPort1.Open := true;

ApdComPort1.Output := 'Inhalt was man senden will';

Ist es mit diesen API Komponenten vielleicht einfacher ? die ganze Sache zu realisieren? Ich hab nur noch nicht rausgefunden was ich noch fürs Answer brauch

Doku dazu hab ich hier http://tpapro.sourceforge.net/Faq.html auch gefunden