Дельфи 7 Не получается реализация CRC16, на простом задание завис.

[sergey.serg-72]

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

Вы пока не исправили ошибку со "скачущим" begin (но это влияет на неверность расчета, но не на компилируемость). Скопировал ваш код как есть и не получил ошибок. Значит ошибка закралась в вызов функции CRC16CCITT.

скачущая begin . вот так надо?

 function CRC16(P: PChar; Len: Word; 
 skip_i : Integer;  Poly, Init, XorOut: Word; RefIn, RefOut: Boolean): Word;
var
  i, j: Integer;
begin
  Result := Init;


  for i := 0 to Len - 1 do
  if i = skip_i then
continue;

if RefIn then
      Result := Result xor reverse(ord(P[i]))
    else
      Result := Result xor (ord(P[i]) shl 8);
    for j := 0 to 7 do
    begin
      if (Result and $8000) <> 0 then
        Result := (Result shl 1) xor Poly
      else
        Result := Result shl 1;
    end;
  end;
  if RefOut then
    Result := reverse(Result);
  Result := Result xor XorOut;
end;

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

Значит ошибка закралась в вызов функции CRC16CCITT.

А где тут ошибка может закрасться ?

 function CRC16CCITT(P: PChar; Len: Word; skip_i: Integer): Word;
begin
  Result := CRC16(P, Len, skip_i ,  $1021, $FFFF, 0, False, False);
end;

[BDA]

Сообщение от sergey.serg-72

вот так надо?

А теперь begin не хватает. А его нужно поставить между for и if с проверкой skip_i. Вы будто в морской бой играете, а не код пишете.

Сообщение от sergey.serg-72

А где тут ошибка может закрасться ?

Это описание функции, а не её вызов. Компилятор также указывает строку кода, которая ему не нравится. Какая именно строка его смущает?

[sergey.serg-72]

Сообщение от sergey.serg-72

Вы пока не исправили ошибку со "скачущим" begin

Покажите пожалуйста. где этот begin. прям в код тыкнете мне. не пойму я ни как.

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

А теперь begin не хватает. А его нужно поставить между for и if с проверкой skip_i. Вы будто в морской бой играете, а не код пишете.

Точно ведь. башка уже не соображает. на простом валюсь, исправил

for i := 0 to Len - 1 do
 begin
  if i = skip_i then
continue;

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

Это описание функции, а не её вызов. Компилятор также указывает строку кода, которая ему не нравится. Какая именно строка его смущает?

Вот. наконец то . компилируется отлично первая проверка отлично. проверьте финишный полный код :

function CRC16(P: PChar; Len: Word;
 skip_i : Integer;  Poly, Init, XorOut: Word; RefIn, RefOut: Boolean): Word;
var
  i, j: Integer;
begin
  Result := Init;

 for i := 0 to Len - 1 do
 begin
  if i = skip_i  then
continue;

if RefIn then
      Result := Result xor reverse(ord(P[i]))
    else
      Result := Result xor (ord(P[i]) shl 8);
    for j := 0 to 7 do
    begin
      if (Result and $8000) <> 0 then
        Result := (Result shl 1) xor Poly
      else
        Result := Result shl 1;
    end;
  end;
  if RefOut then
    Result := reverse(Result);
  Result := Result xor XorOut;
end;
/////////////////////////////////////////////////////////


 function CRC16CCITT(P: PChar; Len: Word; skip_i: Integer): Word;
begin
  Result := CRC16(P, Len, skip_i ,  $1021, $FFFF, 0, False, False);
end;
//////////////////////////////////////////////////////////

Теперь так ?

[BDA]

Сообщение от sergey.serg-72

Теперь так ?

Да, похоже на правду.

[sergey.serg-72]

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

Да, похоже на правду.

Да, точно похожа на правду, сегодня сам удивился как вчера тупил так, на ерунде.
перегруз видимо. Сегодня со свежей головой всё снова пробежал и всё понятно и ясно.
Все тесты прошла, всё корректно . Теперь зато есть два варианта на выбор, кому-то с едит, а кому то без едита. Всегда хорошо когда есть выбор. А главное без таблиц обошлись А универсальная функция это вообще бомба .

изучаю https://ru.wikipedia.org/wiki/Циклич...0%BE%D0%B2_CRC

Интересная таблица , ну про CRC8,16,32 слышали все. А вот про crc 3,4,5,8 и.т.д думаю что не многие.

Просмотрел таблицу есть CRC-15 и CRC-15/MPT1327 получается что контрольная сумма CRC-15 -0x59E 1,5 байта? , а вот CRC-15/MPT1327 так и не понял чем отличается (кроме входного полинома) от CRC16 ? как я понял что наша универсальная функция смело подходит под CRC-15/MPT1327 ?, впринципие у CRC-15 двух байтовый полином , всё так же как и в CRC16, только контрольная сумма странная -0x59E , а вот CRC-15/MPT1327 мне кажется сможет с нашими функциями работать смело без переделок.
Вот и вопрос, а зачем нужна CRC15, когда есть CRC16? так и не нашёл в интернете ответа на этот вопрос.

[BDA]

Сообщение от sergey.serg-72

мне кажется сможет с нашими функциями работать смело без переделок

Без переделок точно не получится, так как у CRC15 и CRC16 разная степень полинома (width).

Сообщение от sergey.serg-72

а зачем нужна CRC15, когда есть CRC16?

Значит где-то удобнее. Нашел такое упоминание:

A 15-bit CRC is used in CAN protocols. The following sample CAN frame
(in binary here) is converted to hexadecimal for the calcWord call.
The bits after the 15-bit CRC are not included in the CRC::
0 11101000001 0 0 0 0001 00010010 011000010111011 1 1 1 1111111
This sample CAN frame was found in this paper:
<http://www.anthony-marino.com/documents/HDL_implementation_CAN.pdf>

Правда, ссылка у меня не открылась.

[sergey.serg-72]

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

Без переделок точно не получится, так как у CRC15 и CRC16 разная степень полинома (width).

(width) 15 СRС15 и у (width) 16 у СRС16 степени правильно?

function reverse(f: Word): Word;
begin
f := ((f shr 1) and $5555) or ((f and $5555) shl 1);
f := ((f shr 2) and $3333) or ((f and $3333) shl 2);
f := ((f shr 4) and $0F0F) or ((f and $0F0F) shl 4);
f := (f shr7) or (f shl 7);
Result := f;

 function CRC15(P: PChar; Len: Word;
 skip_ : Integer;  Poly, Init, XorOut: Word; RefIn, RefOut: Boolean): Word;
var
  i, j: Integer;
begin
  Result := Init;

 for i := 0 to Len - 1 do
 begin
  if i = skip_ then
continue;

if RefIn then
      Result := Result xor reverse(ord(P[i]))
    else
      Result := Result xor (ord(P[i]) shl 7);
    for j := 0 to 7 do
    begin
      if (Result and $8000) <> 0 then
        Result := (Result shl 1) xor Poly
      else
        Result := Result shl 1;
    end;
  end;
  if RefOut then
    Result := reverse(Result);
  Result := Result xor XorOut;
end;

Наверное так ? или что то путаю ?

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

Правда, ссылка у меня не открылась.

и у меня не открывается .

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

Значит где-то удобнее. Нашел такое упоминание:

Не нашёл ничего конкретного. но как понял для радиосвязи.

[BDA]

Сообщение от sergey.serg-72

Наверное так ?

Функцию reverse не надо менять.

function CRC15(P: PChar; Len: Word; skip_i: Integer; Poly, Init, XorOut: Word; RefIn, RefOut: Boolean): Word;
var
  i, j: Integer;
begin
  Result := Init;
  for i := 0 to Len - 1 do
  begin
    if i = skip_i then
      Continue;
    if RefIn then
      Result := Result xor (reverse(ord(P[i])) shr 1)
    else
      Result := Result xor (ord(P[i]) shl 7);
    for j := 0 to 7 do
    begin
      if (Result and $4000) <> 0 then
        Result := (Result shl 1) xor Poly
      else
        Result := Result shl 1;
    end;
  end;
  if RefOut then
    Result := reverse(Result) shr 1;
  Result := Result xor XorOut;
  Result := Result and $7FFF;
end;

[sergey.serg-72]

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

Функцию reverse не надо менять.
Код:
function CRC15(P: PChar; Len: Word; skip_i: Integer; Poly, Init, XorOut: Word; RefIn, RefOut: Boolean): Word;
var
i, j: Integer;
begin
Result := Init;
for i := 0 to Len - 1 do
begin
if i = skip_i then
Continue;
if RefIn then
Result := Result xor (reverse(ord(P[i])) shr 1)
else
Result := Result xor (ord(P[i]) shl 7);
for j := 0 to 7 do
begin
if (Result and $4000) <> 0 then
Result := (Result shl 1) xor Poly
else
Result := Result shl 1;
end;
end;
if RefOut then
Result := reverse(Result) shr 1;
Result := Result xor XorOut;
Result := Result and $7FFF;
end;

С reverse понятно .

Разница не большая но не всё ясно

(Result and $8000) // 4000 не ясно

Result := Result xor (ord(P[i]) shl 8);// 7 здесь ясно

Result := Result and $7FFF; // и здесь не понятно

[BDA]

В result 15битное число, поэтому для проверки старшего бита новая маска 4000. И перед возвратом из функции в result 16й бит обнуляется.