Цитата:
Сообщение от Stasrus
хотелось бы получить что то типа такого:
|
Типа такого уже выкладивали. Примерно так.
delphi Код:
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.