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.
|