Есть рабочий скрипт отлавливающий и отправляющий нужный пакет нужное количество раз:
Код:
var
i:integer;
begin
if FromClient and (pck[1]=#$3D) then begin
buf:=pck;
for i:=1 to 100 do
SendToServer;
end;
end.
---
Хочу сделать задержку между каждой отправкой пакета, но не могу прикрутить таймер правильно:
Код:
var
Timer01: TTimer;
i:integer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=true;
Timer01.interval:=500;
i:=1;
end;
procedure OnTimer01(Sender: TObject);
begin
if FromClient and (pck[1]=#$3D) then begin
buf:=pck;
SendToServer;
end;
i:=i+1;
for i:=1 to 100 do
end;
procedure Free;
begin
Timer01.Free;
end;
begin
end.
Где ошибка, помогите плиз