Показать сообщение отдельно
Старый 14.02.2011, 00:39   #20
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Ну вот, все правильно сделали, молодцы. С включением будет выглядить так:
Код:
const
name = 'IhelpYou';
interval = 100; //в мс
var
TimerEnchant:TTimer;



procedure Init;
begin
TimerEnchant:=TTimer.Create(nil);
TimerEnchant.OnTimer:=@enchant;
TimerEnchant.enabled:=false;
TimerEnchant.interval:=interval;
end;


procedure Free;
begin
TimerEnchant.free;
end;

procedure enchant;
begin
SendToServerEx(name);
end;

begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
TimerEnchant.enabled:=true;
end;

end.
Ну а выключение я думаю сумеете дописать
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием