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

[sergey.serg-72]

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

Вы адреса верно задаете?

Да, и 2В и 2С и даже 2Ф и 2D , все варианты пробовал, всё ровно не верно.

[sergey.serg-72]

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

Вы адреса верно задаете?

Да, разные пробовал и в +1 и в минус 1 от 2В.
при 2С, разница в 3000.....

[BDA]

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

Да, разные пробовал и в +1 и в минус 1 от 2В.

Так а причем здесь адрес исключения, если нужно увеличить конечный адрес на 1?

[sergey.serg-72]

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

Так а причем здесь адрес исключения, если нужно увеличить конечный адрес на 1?

Да. об этом не подумал, что конечный надо увеличить. Это , если один байт исключения, а если 2 байта исключить. то адрес 5E., если один байт то адрес 5F.

[sergey.serg-72]

А на 32-checksum32 как я понял, нужна новая функция ? Она основная в коде как я понял?

Интересный момент. если на байт исключения, то выставляем адрес в +1, если 2 байта исключения. адрес остаётся 5Е. а на 32 на 2 позиции придётся вперёд по адресу. при байте исключения ?

[BDA]

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

а на 32 на 2 позиции придётся вперёд по адресу. при байте исключения ?

Нет, на 1, но только в данном случае. Зависит от того, что именно тритон делает с адресами. Он может выравнивать как оба адреса по границе 4 байта, так и просто считать сумму только от диапазона, кратного 4 байтам (т.е. неявно менять только конечный адрес). Это нужно в тритоне посчитать суммы от разных диапазонов, чтобы понять его методику, или поискать ответы в инструкции, если она есть. То же самое относится и к checksum16 (что при исходных начальном, конечном адресах и адресе исключения нужно прибавить 1 к конечному адресу, чтобы результат совпал с тритоном).

[sergey.serg-72]

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

Нет, на 1, но только в данном случае. Зависит от того, что именно тритон делает с адресами. Он может выравнивать как оба адреса по границе 4 байта, так и просто считать сумму только от диапазона, кратного 4 байтам (т.е. неявно менять только конечный адрес). Это нужно в тритоне посчитать суммы от разных диапазонов, чтобы понять его методику, или поискать ответы в инструкции, если она есть. То же самое относится и к checksum16 (что при исходных начальном, конечном адресах и адресе исключения нужно прибавить 1 к конечному адресу, чтобы результат совпал с тритоном).

Нет. к сожалению инструкции к тритону нет. посчитать только. если так.

[sergey.serg-72]

https://programmersforum.ru/attachme...4&d=1637702450

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

То же самое относится и к checksum16 (что при исходных начальном, конечном адресах и адресе исключения нужно прибавить 1 к конечному адресу, чтобы результат совпал с тритоном).

Не понял в нашем коде надо прибавить , или вводом в адресном окне программы ?

[BDA]

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

или вводом в адресном окне программы ?

Да, вводом. Кстати, тритон на картинке sum32 как раз захватил байты 69 и AC в сумму.

[sergey.serg-72]

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

Да, вводом.

понял , у меня тут вопрос. решил дополнить окошком. чтоб когда есть совпадение, окошко вылетало, всё получилось. при совпадении окошка есть.

но проблема в том.. что после загрузки 16. загружаешь 8 и тут окно системы. что занято другим процессом... без добавки всё отлично. добавил условие и стало окно системы .
Что то не так сделал явно, наверное поток не закрывается? подскажите плиз ошибку.
код :

 Fs.Position := addr1;
 SetLength(buffer, buf_len);
 Fs.Read(buffer[1], buf_len);
crc :=CRC16MODBUS(PChar(buffer), buf_len, skip_ - addr1, skip_2 - addr1);
if w = crc then
 begin
edit2.Text := IntToHex(crc, 4);
MessageBox(handle,PChar('Есть совпадение !'), PChar('собщение'), 64);
 end
 else
begin
 edit2.Text := IntToHex(crc, 4);
end;
 Fs.free;
end;
end;

Явно где то намудрил.