Smartcard auslesen, Kommandos senden

[newuser01]

wie setz ich denn die BaudRate richtig?

[DeddyH]

Schau noch einmal mein letztes Edit an. Ich weiß nicht, was Du anders machst, dass es bei Dir nicht gehen will.

[newuser01]

Ok hattest Recht, ich hab den Wald lauter Bäume nicht gesehen lol

CPort unter uses vergessen einzubinden, ich TROTTEL

[newuser01]

Aber kann man nun sowas wie:

Zitat:

'br'+Combo.Baudrate.Text

Konvertieren zu TBaudRate ?

[DeddyH]

Nicht ohne Weiteres, Du müsstest Dir schon eine Funktion dazu schreiben.

[newuser01]

hmmm ok dann mach ich das mit Abfragen, nicht so schlimm

[Bummi]

ist doch alles in CPort drin

Delphi-Quellcode:

function StrToBaudRate(Str: string): TBaudRate;
function StrToStopBits(Str: string): TStopBits;
function StrToDataBits(Str: string): TDataBits;
function StrToParity(Str: string): TParityBits;
function StrToFlowControl(Str: string): TFlowControl;
function BaudRateToStr(BaudRate: TBaudRate): string;
function BaudRateToInt(BaudRate: TBaudRate): Integer;
function StopBitsToStr(StopBits: TStopBits): string;
function DataBitsToStr(DataBits: TDataBits): string;
function ParityToStr(Parity: TParityBits): string;
function FlowControlToStr(FlowControl: TFlowControl): string;

[newuser01]

Zitat von Bummi:

ist doch alles in CPort drin

Delphi-Quellcode:

function StrToBaudRate(Str: string): TBaudRate;
function StrToStopBits(Str: string): TStopBits;
function StrToDataBits(Str: string): TDataBits;
function StrToParity(Str: string): TParityBits;
function StrToFlowControl(Str: string): TFlowControl;
function BaudRateToStr(BaudRate: TBaudRate): string;
function BaudRateToInt(BaudRate: TBaudRate): Integer;
function StopBitsToStr(StopBits: TStopBits): string;
function DataBitsToStr(DataBits: TDataBits): string;
function ParityToStr(Parity: TParityBits): string;
function FlowControlToStr(FlowControl: TFlowControl): string;

ok danke

muss ich das dann mit dem zusatz "br" machen oder ohne also:

Code:

so?:

sBaudrate := 9600;
ComPort.BaudRate := StrToBaudRate('br'+sBaudrate);

oder so?:

Code:

sBaudrate := 9600;
ComPort.BaudRate := StrToBaudRate(sBaudrate);

[newuser01]

Noch eine Frage

Wenn ich zb. einen Hexwert zur Karte senden will, wie mach ich das

Hexwert: 01 02 01 00 00 00 3D

Ich verusch es derzeit so:

Code:

ComPort.WriteStr('01 02 01 00 00 00 3D');

Und fürs Answer der Karte hab ich bei "RxChar" folgendes drin:

Code:

procedure Tfrm_main.ComPortRxChar(Sender: TObject; Count: Integer);
var
sEmpfangen:String;
begin
ComPort.ReadStr(sEmpfangen, Count);
e_anwer.Text := sEmpfangen;
end;

aber es kommt nur Mist bei raus


sowas: Âü~>ÂüÂüÂü


Mach ich es so:

Code:

Function StrToHex(s: String): String;
Var i: Integer;
Begin
  Result:='';
  If Length(s)>0 Then
    For i:=1 To Length(s) Do
      Result:=Result+IntToHex(Ord(s[i]),2);
End;

procedure Tfrm_main.ComPortRxChar(Sender: TObject; Count: Integer);
var
sEmpfangen:String;
begin
ComPort.ReadStr(sEmpfangen, Count);
e_anwer.Text := StrToHex(sEmpfangen);
end;

Code:

ComPort.WriteStr(char(01)+char(02)+char(01)+char(00)+char(00)+char(00)+char(3D));

meckert er "Bezeichner D gefunden"

[totti14]

Hallo newuser01,
schaul dir mal den Source im BrainTool an.

Macht das was Du brauchst.

Gruß
totti14