Кружок нубов(Вопрос-Ответ)

[alexteam]

написано на коленке.

var
timer:ttimer;

procedure ontimer(sender:tobject);
begin
pck := hstr('packet'); //пакет
sendtoserverex('charname');
end;

procedure init;
begin
timer := ttimer.create(nil);
timer.ontimer := @ontimer;  
timer.interval := 10;  //интервал (ms)
timer.enabled := true;
end;

procedure free;
begin
timer.free;
end;

begin
end.

[Archibal]

Сообщение от alexteam

написано на коленке.

var
timer:ttimer;

procedure ontimer(sender:tobject);
begin
pck := hstr('packet'); //пакет
sendtoserverex('charname');
end;

procedure init;
begin
timer := ttimer.create(nil);
timer.ontimer := @ontimer;  
timer.interval := 10;  //интервал (ms)
timer.enabled := true;
end;

procedure free;
begin
timer.free;
end;

begin
end.

а если несколько пакетов то надо будет с каждым пакетом добавлять строчку pck := hstr('packet');