Так и думал.
Редкий момент - рождение легенды про глюк системы.ByteResive := SysComRead(Port,ReciveBuffer+totalBytesResive,255, 0);
ReadTimeout(IN:=(ByteResive=0),PT:=T#10ms);
IF ByteResive > 0 THEN
totalBytesResive := totalBytesResive + ByteResive;
Пришлите извне байт так 300..500. Разом. И Вы запорете данные расположенные после буфера.
А если буфер в разделе объявлений последний - получите би-и-п и перезагрузку. И начнете жалавацца начальству - овен такой, овен сякой, выходите подлые трусы
А Вы, блин, сдвигаете константное окно для приема за пределы буфера. Не факт что именно Ваша проблема - из-за этого. Но легенда - пойдет в мир.
Может кто и поднялся на 11й уровень, но я не Герасимов, не могу по берцовой кости восстановить облик неардентальца. И, например, предсказать когда и где упадет SerialOpen - по
не в состоянии.Кусок кода чтения из порта:
Последний раз редактировалось Валенок; 06.10.2014 в 23:29.