[DpblH]

QaK пасиб. прописал. но скрипт всё равно работает ни как как я хочу. цыкл в нём неработает. каждые 2 минуты надо посылать два пакета

Добавлено через 4 часа 33 минуты
понял свои ошибки. подправьте если коряво. щас попробую впихнуть кота не в цикл

const

  name='ктоКидает';
  name2='бд';
  name3='свс';



 var
  timer1: TTimer;
  x: integer;

  

procedure OnTimer1(Sender: TObject);
begin



case x of
1:begin
  buf:=hstr('42');
       writeS(name2);
        buf:=buf + hstr('00 00 00 00');
        SendToServerEX(name);
          inc(x);
         timer1.interval := 5000;
        end;

2:begin
  buf:=hstr('42');
       writeS(name3);
        buf:=buf + hstr('00 00 00 00');
        SendToServerEX(name);  
         timer1.interval := 125000;
        x:=1;
        end;




 end;


end;
//******************************************************************************
//                 Вызывается при включении скрипта
//******************************************************************************
procedure Init;
begin

 
  UseForConnectName:='ктоКидает';
  timer1:=TTimer.Create(nil);//выделяем памать и т.п.
  timer1.OnTimer:=@OnTimer1;//привязываем процедуру к событию
  timer1.enabled:=true;//начальное положение true-включен/false-выключен
  timer1.interval:=1000;//интервал
    x := 1; 
end;

 procedure Free; 
   begin
   timer1.free;
    end;


begin


end.

UseForConnectName(name); так правельнее будет? через постоянные

Добавлено через 20 часов 45 минут
прошу помоч со скриптом AutoBD_SVS by Ad переделать его для кота.