Почему не работает?

[shamos]

Почему не работает?

var
Timer01: TTimer;

procedure OnTimer01(Sender: TObject);
begin
     buf:=hstr('56 00 00 00 00 00 00 00 00 00');
     SendToServer();
end;

procedure Init; 
begin
     Timer01:=TTimer.Create(nil);
     Timer01.OnTimer:=@OnTimer01;
     Timer01.enabled:=true;
     Timer01.interval:=1000;
end;

procedure Free;
begin
       Timer01.enabled:=false;
end;

begin

end.

[NLObP]

shamos, а как ты проверял? У меня с заменой процедуры onTimer01 на это в логах пишет сообщение каждую секунду.

procedure OnTimer01(Sender: TObject);
begin
    SendMSG('работаю...');
end;

16.08.2012 21:32:58 Script: работаю...
16.08.2012 21:32:59 Script: работаю...
16.08.2012 21:33:00 Script: работаю...
16.08.2012 21:33:01 Script: работаю...
16.08.2012 21:33:02 Script: работаю...

[shamos]

Да но почему не отправляет пакеты?

[NLObP]

shamos, пошли клиенту в чат сообщение и смотри.

[shamos]

Бесполезно, он не отправляет пакеты.

[Zergatul]

Возможно с таймера он не знает какому соединению их слать, попробуй SendToServerEx

[shamos]

Zergatul, заработало.