Hi, wir haben das Problem in den Griff bekommen: Das VB/Dephi Program sammelt einfach solange die Strings bis der Zeilenumbruch kommt:
Code:
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
Str: String;
position: integer;
const
strUmbruch = #13 + #10;
begin
ComPort.ReadStr(Str, Count);
Serial_in := Serial_in + Str;
position := pos(strUmbruch, Serial_in);
if position <> 0 then
begin
Delete(Serial_in, length(Serial_in)-1, length(serial_in));
listbox1.items.add(Serial_in);
Serial_in := '';
end;
end;
@pebisoft:
Und wie funktioniert das beim Senden von Strings an das Board?
mfg
jagdfalke
Lesezeichen