ПомогитеПожалуйста, все так как я и думал. Но скрипт будете писать сами. Вот набросок процедуры таймера и главного блока:
Код:
Procedure OnTimer01(Sender: TObject);
begin
buf:=#$CF;
WriteD(a);
WriteD(b);
WriteD(c);
WriteD(d);
SendToServerEx(name);
end;
Код:
begin
if (FromServer) and (pck[1]=#$CF) and (ConnectName=name) then
begin
a:=ReadD(2);
b:=ReadD(6);
c:=ReadD(10);
d:=ReadD(14);
end;
end.
Числа a,b,c,d целые. Вам остается организовать создание и включение таймера, а также объявить переменные.
BioDread, вы также создавайте таймер, в нем делаете отправку пакета нужное количество раз с помощью команды SendToServerEx(name); и выключение таймера. При получении нового пакета #$23 сбиваете счетчик итераций таймера на начальное значение и включаете его.
Код:
begin
if FromServer and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
Timer01.Enabled:=True;
end;
end.
Информацию по работе таймера можете без проблем найти на форуме.