Код:
VAR
Timer:TTimer;
Procedure Init;
begin
Timer := TTimer.Create(nil) ;
Timer.Interval := 1000;//Интервал.
Timer.Enabled := False ;//Его включеность при старте.
Timer.Ontimer := @OnTimer ; //Вызов Процедуры.
End;
Procedure Free;
begin
timer.free;
end;
Procedure OnTimer(Sender : TObject) ;
begin
Timer.enabled:=false;
buf:=#$42;
SendToServer;//Отправили Пакет.
end;
begin
if FromServer and (pck[1]=#$39) then Timer.enabled:=true;
end.
//Включили таймер.
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
|