Эх... вот создаешь темы, создаешь...
Вот способ с 2мя таймерами:
(Как в 1 уложить хз это думать головой нада)
delphi Код:
const
Name='Nickers'; //Ник
N=3; //Сколько раз послать пакет
var
timer, timer2 : TTimer;
j:integer;
procedure OnTimer(Sender: TObject);
begin
buf:= ; //Сюда пакет по типу: "buf:=#$FF#$01#$00#$00#$00;"
SendToServerEx(Name);
inc(j);
if j=N then
begin
timer.enabled:=false;
timer2.enabled:=true;
j:=0;
end;
end;
procedure OnTimer2(Sender: TObject);
begin
timer1.enabled:=true;
timer2.enabled:=false;
end;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=true;
timer.interval:=1000; //1 сек
timer2:=TTimer.Create(nil);
timer2.OnTimer:=@OnTimer2;
timer2.enabled:=false;
timer2.interval:=6000; //6 сек
j:=0;
end;
procedure Free;
begin
timer.free;
timer2.free;
end;
begin
end.
Как-то так... Не проверял, ошибки не исключены...
(Прошу выложить способ с 1м таймером, мне будет интересно разобрать)
По вопросам скриптописания добро пожаловать в соответствующую >>>темку<<< (У меня в подписи)