Sdpo serial component received data problem

[wiz]

Has any body tried the Sdpo serial component with Lazarus.

The incoming data stream has a CR/LF inserted into it after every eight bytes received.

Can any body tell me where they are coming from?

[wiz]

It is caused by a timing issue.

Adding a trial & error sleep() command to the start of the TSdpoSerial.OnRxData event allows time for the synaser text buffer to fill with complete lines of received text before using Memo.Lines.Add to display them.

The TMemo component was adding the CR/LF after each incomplete packet of data was Added.

[jl]

I was trying out the demo.  Could open port, but the memo only displayed whatever i sent.  For example, if I send AT, it displays AT.  The original synaser demo worked fine.  I tried adding sleep(3000) as follows, but it doesn't help.  What have i done wrongly? 

procedure TFMain.SerialRxData(Sender: TObject);
begin
  sleep(3000);
  Memo.Lines.Add(Serial.ReadData);
end;         

[Mike James]

The SDPO serial component works fine.

I found it best to buffer the incoming data into a TQueue. In the received data event copy all received data bytes into the TQueue. Then in a TTimer event parse the bytes in the TQueue.

Regards,

-=mike=-

[jl]

I tried the following, doesn't work as well.   

procedure TFMain.SerialRxData(Sender: TObject);
var
i:integer;
s,s1:string;
begin
  s:='';
  for i:=1 to 20000 do begin
  s:= Serial.ReadData;
  if s<>'' then s1:=s1+s;
  end; //for
  Memo.Lines.Add(s1);
end;     

[jl]

I found the problem.  Thanks for your comments.   

Had to amend:

procedure TFMain.BSendClick(Sender: TObject);
begin
  Serial.WriteData(EditSend.Text+#$0D);
end;