robisz MEGA BABOLE w kodzie - podstawowym to jest brak sprawdzania tego co ci przyleciało w PacketUDP. Jeśli przyleciał pusty string albo za krótki albo nie zawierający cyfr to będziesz dostawał takie komunikaty które są normalne jak świat - bo jak może nie być range error gdy np masz string '123' a ty chcesz sprawdzić jego 7 element if P[7] = toż to nonsens
Ty sobie zakładasz że jak przyleci w P[2] literka P to na 100% w StrtoInt(P[7]) = 0 a jak string będzie krótszy to ci się wyrypie, jeśli w tym miejscu nie będzie cyfry tylko litera to kolejny błąd wywali StrToInt .... jak już to stosuj StrToIntDef( P[7], -1 ) ... który nie wywali błędu jeśli w P[7] będzie litera albo nawet pusty znak to podstawi ci np -1
Tak czy inaczej to jest kompletnie zła droga parsowania nadlatujących danych a testować to możesz sobie w byle buttonie - masz przykład
daj sobie raz P := '' a innym razem P := '5P' jak tu w kodzie - zobaczysz co się dzieje i że nie ma to nic wspólnego z MkUDPS, a taki komunikat widziałeś że to w MkUDPS i słusznie bo babola robiłeś w metodzie tego komponentu. Postaw sobie Button na formie 
i wklej jego kod jak niżej - dostaniesz to samo a może jeszcze czegoś się nauczysz - bo nie można sobie zakładać że zawsze ci przyleci to czego oczekujesz
[syntax=c]procedure TForm1.Button1Click(Sender: TObject);
begin
P := '';
P := '5P';
// Pogoda-------------------------------------------
if StrtoInt(P[1]) = 5 then begin
if P[2] = 'P' then begin
// wilgotność------------------------
if StrtoInt(P[3]) = 6 then begin
W := P[4] + P[5] + P[6];
Wa := StrtoInt(W);
Wb := Wa / 10;
Label8.Caption := FloatToStr(Wb);
end;
end;
end;
if StrtoInt(P[1]) = 5 then begin
if P[2] = 'P' then begin
// ciśnienie------------------------
if StrtoInt(P[7]) = 0 then begin
P := P[8] + P[9] + P[10] + P[11] + P[12];
Pa := StrtoInt(P);
Pb := Pa / 10;
Label6.Caption := Format('%0.1f hpa', [Pb]);
end;
if StrtoInt(P[7]) = 1 then begin
P := P[8] + P[9] + P[10] + P[11];
Pa := StrtoInt(P);
Pb := Pa / 10;
Label6.Caption := Format('%0.1f hpa', [Pb]);
end;
end;
end;
end;[/syntax]
i weź formatuj te beginy tak - bo inaczej to masz tak rozstrzelony ten kod że nie dziwię, się że ciężko ci go nawet analizować
masz tu więc pięknie odtworzony twój błąd i wskazane przez co to się dzieje i dlaczego tak nie można podchodzić do parsowania danych, wystarczy że pusta linia przyleci bo wysłany został tylko CRLF którego komponent usunie i będziesz miał po :
[syntax=c]P := PacketUDP[/syntax]
zawartość P = '' i już się zburzy cała twoja układanka tym właśnie range check errorem
Statystyki: Napisane przez mirekk36 — 20 maja 2025, o 06:56
]]>
