USB-Port, Python to Delphi, Delphi XE3

[dummzeuch]

Wie Sherlock schon schreibt: "\n" ist Python nur ein Linefeed (#10).
Ansonsten kannst Du davon ausgehen, dass Sensoren bei serieller Kommunikation immer nur ASCII-Zeichen senden und empfangen. Je nachdem, welche Serial Port Komponenten Du verwendest, konvertiert die die Bytes fehlerhaft. Am Besten Du liest und schreibst nicht Strings sondern RawByteArray's.

[newIndy]

Danke an euch beide.
Lesen und schreiben klappt jetzt.
Ich habe die 'ReadLine' entsprechend umgeschrieben.

Function TSerialPort.ReadLine:String;

var d: array[1..100] of Byte;

s: string;

i: Integer;

BytesRead:Cardinal;

begin

BytesToRead := SizeOf(d);

Result := '';

if not ReadFile(ComFile, d, BytesToRead, BytesRead, nil) then

begin

{ Raise an exception }

MainForm.Memo1.Lines.Add('Fehler, BytesRead: '+IntToStr(BytesRead));

end else MainForm.Memo1.Lines.Add('BytesRead: '+IntToStr(BytesRead));

s := '';

for i := 1 to BytesRead do s := s + Chr(d[i]);

Result := s;

end;

Schöne Feiertage