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

ПомогитеПожалуйста, все так как я и думал. Но скрипт будете писать сами. Вот набросок процедуры таймера и главного блока:
Код:
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.
Информацию по работе таймера можете без проблем найти на форуме.
__________________

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

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