Сорь, недоглядел ))
конечно надо заменить
buf:=hstr('7C B1 19 00 00');
SendToServer;
на
buf:=hstr('7C B1 19 00 00');
SendToClient;
Добавлено через 4 минуты
delphi Код:
if FromServer and (pck[1]=#$62) then begin
D := ReadD(2);
if (D=1517) and f then begin
Counter := 10;
Timer.enabled :=true; //опять запускаем
end;
end;
можно конечно проверить пакет и на последний 0
delphi Код:
if FromServer and (pck[1]=#$62) then begin
D := ReadD(2);
if (D=1517) and f then begin
D := ReadD(6);
if (D=0) then begin
Counter := 10;
Timer.enabled :=true; //опять запускаем
end;
end;
end;
Добавлено через 4 минуты
испарвил скрипт в 4 посте
Добавлено через 10 минут
Цитата:
Сообщение от Pusha
мда я конечно нешарю во всём этом но (хз у меня 5 по паскалю) но за что отвечает
(pck[1]=#$49)
|
это отлавливает напмсаное в чат START и включает посылку пакетов