Кружок нубов(Вопрос-Ответ)

[hash]

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

hash, поищи по форуму "отправка пакетов по таймеру", или как-то так. Твоя реализация таймера - говно не совсем правильная =)

все на, что хватило ума, но уверен - это глупо

const
Name='123';   
var
Timer01, Timer02: TTimer;
procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=2000;

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=5000;
end;

procedure OnTimer01(Sender: TObject);
begin
buf:=hstr('1F 8F A0 00 10 B8 41 02 00 78 28 FF FF 53 F5 FF FF 00'); 
SendToServer;
Timer01.enabled:=false;
end;

procedure OnTimer02(Sender: TObject);
begin
buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 35 00 39 00 5F 00 42 00 75 00 66 00 66 00 20 00 31 00 30 00 34 00 30 00 20 00 31 00 30 00 36 00 38 00 20 00 31 00 30 00 33 00 35 00 20 00 31 00 30 00 37 00 37 00 20 00 31 00 32 00 30 00 34 00 20 00 31 00 32 00 36 00 38 00 20 00 31 00 30 00 33 00 36 00 20 00 31 00 30 00 34 00 35 00 20 00 31 00 30 00 34 00 38 00 20 00 31 00 30 00 38 00 36 00 20 00 31 00 32 00 34 00 30 00 20 00 31 00 32 00 34 00 32 00 20 00 31 00 33 00 38 00 38 00 20 00 31 00 33 00 35 00 36 00 20 00 32 00 37 00 31 00 20 00 32 00 37 00 34 00 20 00 32 00 37 00 35 00 20 00 33 00 31 00 30 00 20 00 32 00 36 00 34 00 20 00 32 00 36 00 35 00 20 00 32 00 36 00 37 00 20 00 32 00 36 00 38 00 20 00 32 00 36 00 39 00 20 00 33 00 30 00 34 00 20 00 33 00 34 00 39 00 20 00 33 00 36 00 34 00 00 00 ');
SendToServer;
Timer02.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
end;

begin
if FromClient and (ConnectName=Name) and (pck = HStr('19 D8 4D 1D 10 00 00 00 00')) then begin
timer01.enabled:=true;
timer02.enabled:=true;
end;

end.