Hello,
I am trying to use TLazSerial for some serial data transmission.
I have 2 LazSerial components.
First reads the data from com port - virtual com port com0com ... parses some data
Second sends the received data to another serial port also virtual com0com
I see that sometimes all freezes application not responding any more.
Here is my code to receive and send:
procedure TForm1.LazSerial1RxData(Sender: TObject);
var xxx,rt,min,sec,st,alge,tis,dvo: string;
begin
xxx:= LazSerial1.SynSer.RecvTerminated(1,char(10));
rt:=copy(xxx,4,8);
min:= copy(xxx,4,2);
sec:= copy(xxx,7,2);
st:= copy(xxx,10,2);
tis:=copy(xxx,11,1);
dvo:=copy(xxx,6,1);
Memo1.Lines.BeginUpdate;
Memo1.Lines.Add(min+sec+st);
Memo1.Lines.EndUpdate;
Memo1.SelStart := Length(Memo1.Lines.Text)-1;
Memo1.SelLength:=0;
if dvo=':' then
alge:='A'+min+sec+st+' : . '+char(13)
else
alge:='A'+min+sec+st+' . '+char(13);
if StrToIntdef(tis,0)> 0 then
alge:='A'+min+sec+st+tis+' : . '+char(13);
Memo2.Lines.BeginUpdate;
Memo2.Lines.Add(alge);
Memo2.Lines.EndUpdate;
Memo2.SelStart := Length(Memo2.Lines.Text)-1;
Memo2.SelLength:=0;
lazserial2.SynSer.SendString(alge);
lazserial2.SynSer.Flush;
end;