Цитата:
Сообщение от Fer123
Оффтоп
DELPHI Код:
var
TimerCycle:integer;
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=10;
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
TimerCycle:=1;
end;
procedure OnTimer(Sender: TObject);
begin
case TimerCycle of
1:begin
buf:=packet1;
sendtoserver;
Inc(TimerCycle);
end;
2:begin
buf:=packet2;
sendtoserver;
Inc(TimerCycle);
timer.interval:=6000;
end;
3:begin
buf:=packet3;
sendtoserver;
TimerCycle:=1;
timer.interval:=10;
end;
end;
end;
procedure Free;
begin
timer.free;
end;
begin
if FromClient and (pck=HStr('13 0D 00 00 00 00 00 00 00 00')) then timer.enabled:=true;
if FromClient and (pck=HStr('13 0C 00 00 00 00 00 00 00 00')) then timer.enabled:=false;
end.
|
Не работает (
Код:
var
TimerCycle:integer;
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=10;
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
TimerCycle:=1;
end;
procedure OnTimer(Sender: TObject);
begin
case TimerCycle of
1:begin
buf:=HStr('3E 3E 84 06 10 00 00 00 00');
sendtoserver;
Inc(TimerCycle);
end;
2:begin
buf:=HStr('BD 12 00 A1 C5 01 10');
sendtoserver;
Inc(TimerCycle);
timer.interval:=6000;
end;
3:begin
buf:=HStr('86 A0 C5 01 10 00 00 00 00');
sendtoserver;
TimerCycle:=1;
timer.interval:=10;
end;
end;
end;
procedure Free;
begin
timer.free;
end;
begin
if FromClient and (pck=HStr('13 0D 00 00 00 00 00 00 00 00')) then timer.enabled:=true;
if FromClient and (pck=HStr('13 0C 00 00 00 00 00 00 00 00')) then timer.enabled:=false;
end.
Таймер не включается (
if FromClient and (pck=HStr('13 0D 00 00 00 00 00 00 00 00')) then
срабатывает но дальше 0 эмоций