Код:
procedure OnTimer(Sender: TObject);
begin
begin
case Step of
1:
begin
buf:=HStr('B2 00 57 71 FF 00 32 00 00 00');
SendToServerEx(name);
Timer.interval:=600;
Inc(Step);
end;
3:
begin
buf:=HStr('B2 00 57 71 FF 00 33 00 00 00');
SendToServerEx(name);
Step:=1;
Timer.enabled:=false;
end;
end;
end;
end;
Цитата:
Проблема в том, что выполняется только первый Step, а иногда и он не выполняется ( чистый рандом ), второй степ вообще не выполняется.
|
Вот смотри ты проверяешь значение степ на 1 и отсылаешь пакет и ставишь степ = 2.
если степ 2 то оно нечего не делает.У тебя проверка только на 1 и 3 нужно добавить 2 или сделать так
Код:
procedure OnTimer(Sender: TObject);
begin
begin
case Step of
1:
begin
buf:=HStr('B2 00 57 71 FF 00 32 00 00 00');
SendToServerEx(name);
Timer.interval:=600;
Inc(Step);
end;
2:
begin
buf:=HStr('Второй пакет');
SendToServerEx(name);
Timer.interval:=600;
Inc(Step);
end;
3:
begin
buf:=HStr('B2 00 57 71 FF 00 33 00 00 00');
SendToServerEx(name);
Step:=1;
Timer.enabled:=false;
end;
end;
end;
end;