LazSerial -- ReadUntilChar ??
lazarus / 62-General

----------------------------------------------------------------------
HatForCat · 2017-01-17 23:23

Using LazSerial and the data stream from the Arduino is coming in at
115200. Each line is terminated with either a "<" or ">" plus #13#10,
or #10#13 can't remember.

Is there some way for LazSerial to ReadUntilChar then send that data
to a Memo dropping the #13#10 while still continue to gather incoming
stuff?

Here's what I was using in TurboPower ADPort in Delphi...

Code: [Select]procedure TfrmMain.tpPortTriggerAvail(CP: TObject;
Count: Word);
var
  i : Word;
  C : Char;
begin
  for i:=1 to Count do
  begin
    C:=tpPort.GetChar;
    case C of
      #0..#31,#127..#255 : {Don't display} ;
      '>','<' : begin
        strIn:=strIn+C;
        HandleIncomingStr;  // Add to Memo etc
      end;
      else strIn:=strIn+C;
    end;
  end;
end;