Einzelnen Beitrag anzeigen

Schmandi

Registriert seit: 21. Feb 2007
3 Beiträge
 
#4

Re: Binäres Senden und Empfangen über die serielle Schnittst

  Alt 21. Feb 2007, 13:53
Hey Dani,

vielen Dank für die schnelle Antwort.

Ich habe erstmal folgendes probiert und s geht super:

Delphi-Quellcode:
//Button Daten lesen und im Editfeld ausgeben
procedure TForm1.Button3Click(Sender: TObject);
var
I: integer;
x: char;
y: string;

begin
x := ApdComPort1.GetChar; //Empfangen von einem Byte (zum Test fest auf 43 gesetzt)
Edit1.Text := x; //Hier wird das ASCII Zeichen '+' ausgegeben
I := Ord(x);
Edit2.Text := IntToStr(I);//Hier wird die Zahl 43 ausgegeben.
end;

@Tobi: Danke für diesen weitern Tip, werde ich auch noch ausprobieren.

Grüsse,
Johannes
  Mit Zitat antworten Zitat