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
