1й вариант мимо 2й почти правильно...
delphi Код:
Var
timer:TTimer;
procedure Init; //Вызывается при включении скрипта
begin
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=true;
timer.interval:=1000; //время задержки
end;
procedure Free;
begin
timer.Free; //Освобождаем память (Спасает от ошибок и вообще Эстетически верно)))
end;
procedure OnTimer(Sender: TObject); //Процедура вызывается, если (timer.enabled=true),
begin // каждые timer.interval (мс)
buf:=#$00; //Пакет, который посылаем
SendToServerEx(Name);
end;
Вот так...
Если присвоить true-таймер будет выполняться (1й раз выполняется по прошествию времени таймера (Если хочешь чтобы при включении скрипта и потом каждые (время таймера), то просто поставь отправку этого пакета перед этой строчкой
Оффтоп
timer.enabled:=true;
или сразу после нее...
Если timer.enabled:=false; таймер останавливается...
В
procedure Init; указываешь начально состояние (При включении скрипта работает или нет)(эта процедура выполняется при включении скрипта)