вот написал с помощью delay()
Код:
const
name = 'AntBuf';
begin
if FromServer and (pck[1]=#$39) then begin //от сервера получен пакет $39
if ReadS(2) = 'Пиротехник' then //проверяем от кого
buf:=hstr('43 01 00 00 00');
delay(5000);
buf:=hstr('43 01 00 00 00')
else
buf:=hstr('43 00 00 00 00'); //Создаем пакет "Отказать в пати"
pck :=''; //убиваем этот пакет
SendToServer; //Отправляем его на сервер
end;
end.
Но чего то выдает ошибку на против "else"
Добавлено через 36 минут
Цитата:
Сообщение от goodvin1709
Код:
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.
//Включили таймер.
|
А как можно несколько пакетов отсылать с определенным промежутком времени , каждого пакета?