Цитата:
Сообщение от BioDread
Другой вопрос: как сделать так чтобы определённый пакет отправлялся череp время и каждый раз прибавлялось +1 к четвёртому байту
5d 5e 5f и т.д. пока не дойдёт до определённого значения и обратно 5d 5e 5f...
|
Я делаю примерно так, только задержка в виде delay, т.к. таймер со сквозным проходом вв новых версиях не работает:
var intbyte, tmpint: integer;
Процедура ТЕСТ
for i:=0 to Определенное_Значение do
begin
buf:='';
WriteC(tmpint+i);
intbyte:=copy(buf,1,(length(buf)));
buf:=HStr('5d5e5f') + HStr(intbyte);
SendToServer;
// А тут можеш поставить delay, но я НЕ РЕКОМЕНДУЮ.
end;
Конец процедуры
Условие прихода пакета 5d
tmpint:=ReadC(4);
Вызов процедуры
TEST
Конец условия