Показать сообщение отдельно
Старый 20.05.2011, 22:16   #9
Новичок
 
Регистрация: 16.02.2010
Сообщений: 20
Сказал Спасибо: 5
Имеет 0 спасибок в 0 сообщенях
0rfin пока неопределено
По умолчанию

Я думал readd читает из buf т.к writed пишет в buf.

Так пашет
delphi Код:
begin     if fromclient and (pck[1]=#$59) then          begin         x:=readd(2);y:=readd(6);z:=readd(10)+1000;hd:=readd(14);dt:=readd(18);                 sendmsg('newpck: '+strtohex(buf));//-- контроль         end;                      if fromclient and (pck[1]=#$56) and (pck[2]=#$0D) then //0D pobeda social          begin                      buf:=#$59;writed(x);writed(y);writed(z);writed(hd);writed(dt);            pck:='';           SendToServer;          end; end.

А почему то вот так нет?

delphi Код:
begin        if fromclient and (pck[1]=#$59) then         begin         buf:=pck;         z:=ReadD(10)+1000;         end;                     if fromclient and (pck[1]=#$56) and (pck[2]=#$0D) then //0D pobeda social          begin           WriteD(z,10);           SendToServer;          end;   end.
0rfin вне форума   Ответить с цитированием