Есть скрипт, грубо говоря стырил его
отсюда...немного доделал... запускаю...ошибок никаких не пишет...но пакеты не отправляются( в чем прикол не пойму...помогите)
Код:
var
Timer01: TTimer;
TimerCycle:integer;
procedure Init;
begin
Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
Timer01.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer01.interval:=2700; //интервал(в милисекундах) как часто таймер срабатывает
TimerCycle:=1;
end;
procedure OnTimer01(Sender: TObject);
begin
case TimerCycle of
1:begin
buf:=hstr('0C 0D 7C 11 10 00 00 00 00');
SendToServer;
Inc(TimerCycle);
Exit;
end;
2:begin
buf:=hstr('43 4C 00 76 A0 04 10');
SendToServer;
Inc(TimerCycle);
Exit;
end;
3:begin
buf:=hstr('65 76 A0 04 10 00 00 00 00');
SendToServer;
TimerCycle=1;
Exit;
end;
end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
timer01.Free; //освобождаем занимаемую память таймером
end;
begin
timer01.enabled:=true;
end.