TComPort

[NewMember]

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

в запросе всего 8 байт, т.е. формируете массив, заполняете его (как заполнять ссылку давал в личке) и отсылаете через WriteFile().

это значит, что второй, третий и четвертый байт в пакете нужно поразрядно инвертировать через xor:

var mas: array[0..7] of byte;
...
mas[2]:= mas[2] xor $FF;
mas[3]:= mas[3] xor $FF;
mas[4]:= mas[4] xor $FF;

если под "нормальными" байтами имеется ввиду неизмененные байты в пакете, т.е. нулевой (DEL) и пятый (или 6) байт (ETX), ведь 1 байт - стоповый (нельзя), 2-4 - измененные ("ненормальные"), то их:

function CRC(BufferData: TDataByte): byte;
const polinomio: byte= $40;
begin
 result:= (BufferData[0] xor BufferData[5]) or polinomio
end;

Как правильно вручную задать команду на устройство? Примеров с инэта перепробовал уйму, но результат 0-вой, будь-те любезны помочь составить команду...

 procedure TForm1.Button1Click(Sender: TObject);
const polinomio: byte = $40;
var
mas:array[0..7] of byte;
Str:string;
i:integer;
j:integer;
begin
mas[0]:=(127);      //DEL ASCII 
mas[1]:=ord(^B);  //аналогично ord(char('STX'))...

mas[2]:=((ord(Char('Q'))) xor $FF)); // не разобрался, как работает, поч $FF? насколько я понял сравнение, то есть массив 2 раза заполнять   
                                                    //нужно и сравнивать?
mas[3]:=(ord('9') xor $FF);             // ---\\---
mas[4]:=(ord('ETX')  XOR $FF);
mas[5]:=ord('ETX');
mas[6]:= (mas[0] xor mas[5]) or polinomio; //контр. сумма и смещения ?
....
for i:= 0 to 7 do
  ComPort1.WriteStr(Char(mas[i]));

Объясните пожалуйста....

Знаю что написал ахинею, //mas[2]:=((ord(Char('Q'))) xor $FF));

примеров с инэта много перерыл.... но вообще действительно никак...

[NewMember]

raxp, объясните пожалуйста..