Цитата:
Сообщение от supernewbie
а что с ним собственно? почему не увеличиваешь переменную?
delphi Код:
Procedure OnTimer01(Sender : TObject) ;
begin
case TimerCyrcle01 of
1: begin buf := hstr('04 76 19 10 48') ;
SendToServerEx(name) ;
TimerCyrcle01:=2;
end;
2: begin buf := hstr('04 76 19 10 48') ;
SendToServerEx(name) ;
TimerCyrcle01:=3;
end;
3: begin buf := hstr('21 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 33 00 30 00 33 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 35 00 37 00 37 00 00 00') ;
SendToServerEx(name) ;
TimerCyrcle01:=1;
end;
end;
end;
|
спасиб, а можно чтоб он выполнил все нужные пакеты тока 1 раз, а не зацикленно?
Добавлено через 3 минуты
и от чего зависят эти цифры?
TimerCyrcle01:=
1;