кошмар, спасибо большое
я в шоке, что не увидел, что у меня вместо второго шага стоит третий...вот балбес, целую тему создал. хотя в любом случае я бы наверно не скоро заметил это.
спасибо еще раз.
А вот пользуясь случаем хотел бы поинтересоваться, ConnectName нормально я прописал? В смысле не всегда правильно то, что вроде бы работает
у меня по крайней мере.
Добавлено через 2 часа 16 минут
С этим я разобрался, все таки смог через имя соеденения активировать скрипт по старинке.
Но как ставлю задержки ( интервал времени ), выполняется только первый шаг и последний, второй не выполняется:
PHP код:
const
name='deffol';
var
Timer:TTimer;
StepSkill:byte;
procedure Init;
begin
StepSkill:=1;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.enabled:=false;
end;
procedure Free;
begin
Timer.free;
end;
procedure OnTimer(Sender: TObject);
begin
case StepSkill of
1:
begin
buf:=HStr('пакет');
SendToServerEx(name);
Inc(StepSkill);
timer.interval:=200;
end;
2:
begin
buf:=HStr('пакет');
SendToServerEx(name);
Inc(StepSkill);
timer.interval:=200;
end;
3:
begin
buf:=Hstr('кулёк');
SendToServerEx(name);
Timer.enabled:=false;
StepSkill:=1;
end;
end;
end;
begin
if FromClient and (pck[1]=#$xx) and (ReadH(6)=yy) and (ConnectName=name) then
Timer.enabled:=true;
end.
Пробовал с каждыми действием добавлять шаг, то есть не через Inc(SkillStep), а через SkillStep:=2 ( в первом шаге ), SkillStep:=3 ( во втором ), ну и в третьем возвращать так же как в конце таймера. В этом случае скрипт выполнялся как мне нужно, но всего лишь один раз, после он будто выключался. Подскажите где ошибся
или опять мб что-то забыл. Без интервала никак