Из байтового массива в запись

[Pykhov]

Считываю данные с прибора в массив byteR и побайно переношу в запись

  Tanswer = Packed Record
    idT:Word;
    idP:Word;
    length:Word;
    address:byte;
    fun:byte;
    error:byte;
    Data:array[0..255] of word;
    //Data:array[0..255] of single;
  end;

 var
   byteR:array [0..255]of byte;
   PAnswer:Tanswer;


Cli.Socket.ReceiveBuf(byteR, sizeof(byteR));
  PAnswer.idT:=byteR[0];
  PAnswer.idT:=PAnswer.idT shl 8;
  PAnswer.idT:=PAnswer.idT+byteR[1];
  PAnswer.idP:=byteR[2];
  PAnswer.idP:=PAnswer.idP shl 8;
  PAnswer.idP:=PAnswer.idP+byteR[3];
  PAnswer.length:=byteR[4];
  PAnswer.length:=PAnswer.length shl 8;
  PAnswer.length:=PAnswer.length+byteR[5];
  PAnswer.address:=byteR[6];
  PAnswer.fun:=byteR[7];
  PAnswer.error:=byteR[8];
  for i := 0 to ((PAnswer.length-2)div 2) do
    begin
      PAnswer.Data[i]:=byteR[9+i*2];
      PAnswer.Data[i]:=PAnswer.Data[i] shl 8;
      PAnswer.Data[i]:=PAnswer.Data[i]+byteR[9+i*2+1];
    end;

Данный код работает но не нравится как его реализовал ).

[Slym]

ReceiveBuf(PAnswer, sizeof(Tanswer ));
или
ReceiveBuf(PAnswer.idT, sizeof(PAnswer.idT));
ReceiveBuf(PAnswer.idP, sizeof(PAnswer.idP));
ReceiveBuf(PAnswer.length, sizeof(PAnswer.length));
...

[Pykhov]

Сообщение от Slym

ReceiveBuf(PAnswer, sizeof(Tanswer ));
или
ReceiveBuf(PAnswer.idT, sizeof(PAnswer.idT));
ReceiveBuf(PAnswer.idP, sizeof(PAnswer.idP));
ReceiveBuf(PAnswer.length, sizeof(PAnswer.length));
...

Не работает всякая хрень вылвзит

[northener]

Считываю данные с прибора в массив byteR и побайно переношу в запись

Убей не вижу где считывание в массив byteR.
Более того на первый взгляд нужно оставить в коде только строчку

Cli.Socket.ReceiveBuf(PAnswer, sizeof(PAnswer));

а всё что после нее просто выбросить в помойку.

[Pykhov]

Сообщение от northener

Убей не вижу где считывание в массив byteR.

Извеняюсь при редактирование не то вставил
Cli.Socket.ReceiveBuf(byteR, sizeof(byteR));


Cli.Socket.ReceiveBuf(PAnswer, sizeof(PAnswer));получаю не тот результат

[Slym]

big-endian
читаем http://ru.wikipedia.org/wiki/%CF%EE%...E0%E9%F2%EE%E2

ReceiveBuf(PAnswer, sizeof(Tanswer ));
swap(PAnswer.idT);...

АХ ДА... не забываем про переменную часть согласно PAnswer.length т.е. 2 раза ReceiveBuf

Tanswer = Packed Record
    idT:Word;
    idP:Word;
    length:Word;
    address:byte;
    fun:byte;
    error:byte;
  end;
Data:array[0..255] of word;
...
ReceiveBuf(PAnswer, sizeof(Tanswer ));
ReceiveBuf(Data, PAnswer.length);