подскажите пожалуйста
пакет ExFishingEnd
не вычитывается последний 8й байт из-за чего постоянно "сорвалась"
перепробовал всё..
tempi:=1;
msg.Lines.Add('S>Пакет ExFishingEnd #$FE1F00'+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi)));
для
FE 1F 00 9A 76 70 48 01
возвращает
$FE1F00 Rez:254 Rez:31 Rez:0 Rez:154 Rez:118 Rez:112 Rez:72 Rez:0 Rez:0
... как обойти?
|