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

[sergey.serg-72]

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

Ну он мог бы явно как-то сообщать, что берет другой диапазон. Просто sum32 предполагает складывание 32битных чисел (4 байта), а если диапазон не кратен 4 байтам, то тритон выкручивается как может. Кстати, инструкция есть (http://www.triton-prog.ru/Dnl/Triton.pdf), но там про кнопку SUM буквально один абзац.

да. действительно инструкция из пару строчек. Вот он и выкручивается. а в программе на 32. при подсчёте тоже на +1 адрес надо сдвигать вперёд.

[sergey.serg-72]

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

buf_len считается в байтах, так что и массив нужно делать типа Byte.

A: array of word; надо сделать не word . а byte ? я правильно понял?
и для 16 и для 32?

[sergey.serg-72]

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

Их нужно разместить до показа MessageBox. Тогда, скорее всего, не будет ошибок о занятости файла.

К стате пока пробовал, с этой строчкой тестил файл контролка в одном совпадала с подсчитанной, в другом CRC нет. но окошко почему то вылетело, хотя разные CRC и сумма во втором не совпадала. а окошко сработало. Почему ?

[BDA]

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

сделать не word . а byte ? я правильно понял?
и для 16 и для 32?

Да.

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

окошко почему то вылетело, хотя разные CRC и сумма во втором не совпадала. а окошко сработало. Почему ?

Не знаю, это надо смотреть конкретные файл и вводимые в эдиты значения, при которых появляется окошко совпадения, хотя суммы не совпадают.

[sergey.serg-72]

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

Fs.Position := addr1;
SetLength(buffer, buf_len);
Fs.Read(buffer[1], buf_len);
Fs.free;
crc :=CRC16MODBUS(PChar(buffer), buf_len, skip_ - addr1, skip_2 - addr1);
edit2.Text := IntToHex(crc, 4);





if w = crc then
MessageBox(handle, PChar('Есть совпадение!'), PChar('Сообщение'), MB_ICONINFORMATION);

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

Не знаю, это надо смотреть конкретные файл и вводимые в эдиты значения, при которых появляется окошко совпадения, хотя суммы не совпадают.

Да, файл тот же тестовый , просто посчитал crc modbus и внёс в файл, стал проверять все crc помимо modbus сработало и rеllo, сумма разная а окошко вылетало у обоих. я так и не понял.

[sergey.serg-72]

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

Не знаю, это надо смотреть конкретные файл и вводимые в эдиты значения, при которых появляется окошко совпадения, хотя суммы не совпадают.

Причину выяснил, виновница не checksum16,, а CRC8 сейчас отработал два варианта. 1 вариант
Fs.Read(buffer[1], buf_len);
B:=CRC8(PChar(buffer), buf_len, skip_ - addr1, skip_2 - addr1);
edit2.Text := IntToHex(B, 2);
if w = B then
MessageBox(handle, PChar('Åñòü ñîâïàäåíèå!'), PChar('Ñîîáùåíèå'), MB_ICONINFORMATION);
Fs.free;
end;
end;строчки

что с этим кодом, что с моим ошибка и процесс занят.
А без проверки на совпадение, всё корректно и отлично. Причина найдена.
Не нравится именно на crc8. остальные нормально.