[Bacek]

Сообщение от Fer123

Оффтоп

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 эмоций