Обмен данными с устройством через Com port

[qwertyui123]

вот скрин пакетов обмена

одна из формул расчета кодов массива тока
CD(i)=2048+K(i)*I(i)+CDB i=0..63

[Slym]

k1,k2,v1,is0,is1:byte;
склейка
x:=k1 or (k2 shl 1) or (v1 shl 2) or (is0 shl 3) or (is1 shl 4);
резка
k1:=x and 1;
k2:=(x shr 1) and 1;
v1:=(x shr 2) and 1;
is0:=(x shr 3) and 1;
is11:=(x shr 4) and 1;

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

Извиняйте, что снова влезаю в то, чего не понимаю, но разве простой record не в теме?

type
  TPacket = record
  Code:Byte;
  Control:byte;
  CDMultiple:Byte;
  Reserved1:byte;
  Reserved2:byte;
  Reserved3:byte;
  Reserved4:word;
  Reserved5:word;
  Reserved6:word;
  CAPCode:word;
  Words:array[0..63] of word;
end;

типа такого...

[qwertyui123]

Сообщение от Человек_Борща

Извиняйте, что снова влезаю в то, чего не понимаю, но разве простой record не в теме?

type
  TPacket = record
  Code:Byte;
  Control:byte;
  CDMultiple:Byte;
  Reserved1:byte;
  Reserved2:byte;
  Reserved3:byte;
  Reserved4:word;
  Reserved5:word;
  Reserved6:word;
  CAPCode:word;
  Words:array[0..63] of word;
end;

типа такого...

думаю в теме, raxp правильно мне подсказал, что именно так надо формировать пакет для отправки и приема

[northener]

Сообщение от Человек_Борща

Извиняйте, что снова влезаю в то, чего не понимаю, но разве простой record не в теме?

type
  TPacket = record
  Code:Byte;
  Control:byte;
  CDMultiple:Byte;
  Reserved1:byte;
  Reserved2:byte;
  Reserved3:byte;
  Reserved4:word;
  Reserved5:word;
  Reserved6:word;
  CAPCode:word;
  Words:array[0..63] of word;
end;

типа такого...

Простой нет. А вот packed record в самый раз.

[raxp]

Да, по этому поводу рекомендую почитать данную тему http://www.programmersforum.ru/showthread.php?t=102830.