вроде так
Код:
var
Timer01: TTimer;
procedure OnTimer01(Sender: TObject);
begin
buf:=hstr('19 92 F1 10 40 00 00 00 00'); //отсылаем пакет
SendToServer; // на сервер
Timer01.enabled:=false; //останавливаем таймер
end;
procedure Init;
begin
Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
Timer01.enabled:=false; //начальное положение включен/выключен
Timer01.interval:=10000; //интервал
end;
procedure Free;
begin
timer01.free;
end;
begin
if FromClient and (pck = HStr('19 92 F1 10 40 00 00 00 00')) then begin
Timer01.enabled:=true;
pck:='';
end;
end.
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Последний раз редактировалось TAMBIK, 13.08.2009 в 17:31.
|