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.