Кружок нубов(Вопрос-Ответ)

[Stasrus]

Помогите поправить скрипт, что уже только не делал никак не выходит, нужно чтобы пакеты отправлялись все и в строго определенном порядке.
Пробывал по разному и таймером и переменными пытался условия ставить, и через case ничего не помогает, пакеты перемешиваются или отправляются не все...

Начальный вариант без моих замутов:
const
b1='11 11 11 ';
b2='22 22 22 ';
b3='33 33 33 ';
begin
buf:=hstr(b1);
SendToServer;
buf:=hstr(b2);
SendToServer;
buf:=hstr(b3);
SendToServer;
end.

[NLObP]

Stasrus, можно delay() вставить между посылками с временем не более 500, еще лучше через таймер.

[Stasrus]

NLObP,
Все равно с таймером путается порядок отправки и\или отправляется по нескольку раз один и тотже пакет
Вот вариант с таймером

//(c)dmitry501
const
b1='11 11 11 ';
b2='22 22 22 ';
b3='33 33 33 ';


var
tick: Integer;

procedure Init;
begin

end;
function Pause(Timewait: Integer):Boolean;
// сквозная проверка без остановки скрипта (c)dmitry501
var
t : integer;
begin
result := false;
t := Round(Time*86400);
if t > (tick + Timewait) then
begin
tick := t;
result := true;
end;
end;



begin
if pause(5) then
begin
buf:=hstr(b1);
SendToServer;
end;
if pause(10) then
begin
buf:=hstr(b2);
SendToServer;
end;
if pause(15) then
begin
buf:=hstr(b3);
SendToServer;
end;


end.

хотелось бы получить что то типа такого:

const
b1='11 11 11 ';
b2='22 22 22 ';
b3='33 33 33 ';
var
x: integer;
begin
x:=1;
end;
if x=1 then
begin
buf:=hstr(b1);
SendToServer;
x:=x+1;
end;
if x=2 then
buf:=hstr(b2);
SendToServer;
x:=x+1;
end;
if x=3 then
buf:=hstr(b3);
SendToServer;
x:=1;
end;
end.

[NLObP]

Сообщение от Stasrus

хотелось бы получить что то типа такого:

Типа такого уже выкладивали. Примерно так.

const
  b1='11 11 11 '; 
  b2='22 22 22 '; 
  b3='33 33 33 '; 
var
  x: integer;
  PauseTimer: Ttimer;     //таймер паузы

procedure Init; //Вызывается при включении скрипта
begin
  PauseTimer:=TTimer.Create(nil);
  PauseTimer.Enabled:=true;
  PauseTimer.Interval:=1000; //время задержки между посылками пакета
  PauseTimer.OnTimer:=@OnPause;
  x:=1;
end;

procedure Free; //Вызывается при выключении скрипта
begin
  PauseTimer.Enabled:=false;
  PauseTimer.free;
end;

// Парсер/Исполнитель: главный цикл обработки команд Валкера
//******************************************************************************
procedure  OnPause(Sender: TObject);
var
  s, cmd, param : string;
begin
  case x of
    1: begin
      buf:=hstr(b1);
      SendToServer;
      inc(x);
    end;
    2: begin
      buf:=hstr(b2);
      SendToServer;
      inc(x);
    end;
    3: begin
      buf:=hstr(b3);
      SendToServer;
      inc(x);
    end;
    4: begin
      x:=1;
      PauseTimer.Enabled:=false; //отключаем посылку
    end;
  end;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

end.

[Stasrus]

NLObP, Неработает так как нужно, как и в моих скриптах или посылает не все или меняет местами...

[NLObP]

Сообщение от Stasrus

NLObP, Неработает так как нужно, как и в моих скриптах или посылает не все или меняет местами...

Вроде ничего не путает. Скорость посылки 500 мс. Запускал несколько раз (14 от предыдущей попытки).