Potrzebuję odczytać dane z urządzenia pomiarowego - jest to waga dla samochodów ciężarowych. Wysyłam co sekundę polecenie przez port COM:
procedure TForm1.Timer1Timer(Sender: TObject);
var
c: integer;
str: string;
begin
ComPort.WriteStr('<RN1>');
c := Memo1.Lines.Count - 1;
str := Memo1.Lines[c] + #13#10;
WyslijDane(str);
Memo1.Clear;
end;
W Memo dostaję odpowiedź taką:
<000011.10.1703:1021561 0 0 39540kg 1 32559>
Jak dobrać się do tych kilogramów? Używam komponentu ComPort 4.1. Próbowałem obrabiać to jako string - usuwałem niepotrzebne wartości z łańcucha, ale bez skutku - wyrzuca jakieś śmieci. Jak to zrobić?
W dokumentacji mam opis jak zbudowana jest odpowiedź z urządzenia:
[ < ] [ Kod błędu ] [ Dane ] [ > ] [ CR ] [ LF ]
Proszę o pomoc.