Запись данных в структуру

[MatrixGru]

Не получается разобрать поступающие данные с устройства...

Структура данных такова:
Поле | Размер
Заголовок 0x01 | 1 байт
Длина пакета | 2 байта
Тэг 1 | 1 байт
Данные, соответствующие тэгу 1 зависит от типа тэга


Я создал такую запись и пытаюсь присвоить ей приходящие данные, но что то не так....

type
THEAD = packed Record
header: Byte;
len: Word;
tag:Byte;
end;

...

var
HEAD:THEAD;
begin
buffer := Socket.ReceiveText;

HEAD:=buffer; //ВОт здесь что то не так. Несоответствие типов, оба типа по 4 байта... Понимаю что не верно, но как правильно будет...???


end;

Помогите. Спасибо!

[Человек_Борща]

var
HEAD:THEAD;
begin
buffer := Socket.ReceiveText;

HEAD:=buffer; //ВОт здесь что то не так.

Конечно - не так! ВЫ получаете текст, а потом говорите компилятору "сам разбирайся".

По памяти надо:
ReciveBuf(HEAD, SizeOf(THEAD)); как-то так. С Сервера так же НЕ текст должен идти.

[MatrixGru]

Приходят данные:
Ђ
Б8682040054149242

Но при заполнении моей структуры и после вывода, все по нулям... что то нет так может описал...

[Slym]

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

Приходят данные: ЂБ8682040054149242

Но при заполнении моей структуры и после вывода, все по нулям... что то нет так может описал...

в Hex давай... поле длинна заголовка не соответствует пакету (большое)

var
  Buf:PAnsiChar;
  len:Integer;
  Hex:AnsiString;
begin
  len:=Socket.ReceiveLength;
  GetMem(Buf,len);
  Socket.ReceiveBuf(Buf^,len);
  SetLength(Hex,len*2);
  BinToHex(Buf,PAnsiChar(@Hex[1]),len);
  Caption:=Hex;
end;

[MatrixGru]

Вроде разобрался со всем...

А имеется способ, сначала получить данные в промежуточную переменную, как я выше писал : buffer := Socket.ReceiveText; ????
А после полученными данными заполнить запись... Т.к. у меня есть еще одна запись очень большой размерности (70 полей), а через сокет не все сразу приходит, а по частям. Думаю сначала все получить а после в запись упихать и дальше работать ....

[MatrixGru]

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

в Hex давай... поле длинна заголовка не соответствует пакету (большое)

var
  Buf:PAnsiChar;
  len:Integer;
  Hex:AnsiString;
begin
  len:=Socket.ReceiveLength;
  GetMem(Buf,len);
  Socket.ReceiveBuf(Buf^,len);
  SetLength(Hex,len*2);
  BinToHex(Buf,PAnsiChar(@Hex[1]),len);
  Caption:=Hex;
end;

Вот что в HEX вывелось: 011780011102C1033836383230343030353 43134393234043200F83E

[Slym]

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

Вот что в HEX вывелось: 011780011102C1033836383230343030353 43134393234043200F83E

длинна пакета 1780 - много
если длинна 17 - нормально = 23, т.е. поле длинна 1 байт а заголовок 5 байт

THEAD = packed Record
header,len,tag: Byte;
dummy: word;
end;

для простоты промежуточную переменную TMemoryStream, хотя я бы делал в блокирующем режиме и все хранил в стеке как угодно