Показать сообщение отдельно
Старый 26.09.2011, 03:44   #11
Пользователь
 
Регистрация: 01.08.2010
Сообщений: 82
Сказал Спасибо: 49
Имеет 5 спасибок в 4 сообщенях
semiromid пока неопределено
По умолчанию

Вот так работает .Сделал как сказал NLObP

Код:
const
name = 'Кортик';  

begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Перотехник' then            //проверяем от кого
       buf:=hstr('43 01 00 00 00')
    else
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                              //Отправляем его на сервер
  end;  

end.
Но теперь другая проблемка. Я хочу что бы отправлялось 2-а пакета этот buf:=hstr('43 01 00 00 00') и еще другой buf:=hstr('49 01 00 00 00').Не могу понять как сделать что бы это реализовать



И еще после прихода пакета buf:=hstr('49 01 00 00 00'). возможно сделать метку ? или может функцию .Я хочу что бы после выполнения этого пакета , бафер бафа 1-н раз .

Последний раз редактировалось semiromid, 26.09.2011 в 07:56.
semiromid вне форума   Ответить с цитированием