cepreu, Повтор пакетов лучше оформить через таймер
например
delphi Код:
Var
Timer : TTimer;
procedure Init; //Вызывается при включении скрипта
begin
Timer :=TTimer.Create(nil);
Timer.enabled :=false; //таймер выключен
Timer.OnTimer :=@MyAction; //адрес процедуры,
//которая будет выполнятся
Timer.interval :=2000; //интервал в мс
end;
procedure Free; //Вызывается при выключении скрипта
begin
Timer.Free;
end;
procedure MyAction(Sender: TObject);
begin
buf:=hstr('бла бла бла'); // тут вписываешь пакет
SendToServerEx('а тут имя соединения');
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
......
//сочиняешь по какому условия включить таймер
Timer.enabled :=true
//и соответственно выключить
Timer.enabled :=false;
end;
end.