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

[shamos]

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

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, заработало.