COM port read

procedure TForm1.ComPort2RxChar(Sender: TObject; Count: Integer);
var str:string;
vtg:Double;
begin
Comport2.ReadStr(str, Count);
idUDPClient2.Send(str); // самому себе
IdUDPClient3.Send(str); // на катрту
end;

2023-02-06 16:17 Delphi