PHP код:
const
name = 'name';
var
timer:TTimer;
TimerStep:byte;
procedure Init;
begin
TimerStep:=1;
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=700; //время задержки между отправкой пакетов.
end;
procedure Free;
begin
timer.free;
end;
procedure OnTimer;
begin
case TimerStep of
1:
begin
timer.interval:=600;
buf:=Hstr('14 56 8A 02 10 00 00 00 00 ');
SendToServerEx(name);
// SendMsg('1');
Inc(TimerStep);
end;
2:
begin
buf:=Hstr('14 E8 B9 0F 10 00 00 00 00 ');
SendToServerEx(name);
// SendMsg('2');
Inc(TimerStep);
end;
3:
begin
buf:=Hstr('2F 3E 01 00 00 00 00 00 00 00 ');
SendToServerEx(name);
// SendMsg('3');
TimerStep:=1;
timer.enabled:=false;
timer.interval:=600; //60000 мс = 1 минута
end;
end;
end;
begin
if FromClient and (pck[1]=#$1B) and (pck[2]=#$08)and (pck[3]=#$00) then
begin
timer.enabled:=true;
end.
А вот так?