Цитата:
Сообщение от Byrger
case pck[1] of
#$ВС: begin
|
Пишешь #$DC, а проверяешь #$BC
Можешь сразу стартовать свою отсылку пакетов, исправив
delphi Код:
procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=true;
timer1.interval:=10000; //10 секунд
x:=0;
end;
посылка пакетов начнется через 10 сек после запуска скрипта,
а здесь сделай так
delphi Код:
procedure OnTimer;
begin
case x of
0: begin
usebuff(packet1,1);
inc(x);
timer1.interval:=200; //изменяем время на 200 мс
end;
1: begin
usebuff(packet2,0);
inc(x);
end;
2: begin
usebuff(packet1,1);
inc(x);
//откл.
timer1.enabled:=false;
end;
end;
end;