Я думал 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.