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

[BDA]

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

Adr2=$02D-$05E;

Не знаю, сработает ли сложение. В глаза бросается отрицательный Adr2.

[sergey.serg-72]

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

Можно пойти разными путями. Или "готовить" входные данные, исключая ненужный байт, или засунуть логику пропуска прямо в функцию подсчета (топорно, зато меньше думать):

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

Попробовал по вашему методу, выходит другая сумма, а как узнать правильную?
Онлайн калькулятор, думаю не поможет ?
Сделал по вашему так :

function CRC16CCITT(P: PChar; Len: Word): Word;
var
i, j: Integer;
begin
Result :=0;
for i := 0 to Len - 1 do

begin
 if i = $2C then
  continue;

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 $1021
else
Result := Result shl 1;
end;
end;
end;

А так, будет правильно подсчитано?

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

Не знаю, сработает ли сложение. В глаза бросается отрицательный Adr2.

Сложение срабатывает и выводит сумму, вопрос в другом, а правильная ли она ?
Надо знать точную , правильную сумму, тогда можно вывод сделать, а так , получается разными методами, на выходе разные суммы, какая из них правильная ?

[BDA]

Не знаю, зачем вы отказались от использования "TBytes = array of Byte;" в пользу string (как было в старой программе bin->hex).

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

Сложение срабатывает

Когда я говорю "сработает", то имею ввиду, что программа корректна и выдает правильный результат.

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

Сложение срабатывает и выводит сумму, вопрос в другом, а правильная ли она ?

Попробуйте все-таки в своем коде исправить adr2. Глядишь и совпадут суммы.

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

а можно как то узнать контрольную сумму, как то подсчитать?

Конечно можно. Просто удалите в файле ненужный байт и считайте контрольную сумму этого файла чем хотите (хоть онлайн, хоть редакторами).
Еще можно избежать сложения буферов, чуть изменив функцию:

function CRC16XMODEM(P: PChar; Len, Init: Word): Word;
begin
    Result := Init;
    ...

crc := CRC16XMODEM(PChar(Buffer2), Adr2, CRC16XMODEM(PChar(Buffer1), Adr1, 0));

Код не запускал, так что это только в качестве наброска идеи.

Опять же, лучший подход сложно выбрать, не зная, куда выведет фантазия преподавателя по части выдумывания новых усложнений. Если он предложит еще парочку байтов выколоть, то устанешь кусочками читать.

[sergey.serg-72]

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

Конечно можно. Просто удалите в файле ненужный байт и считайте контрольную сумму этого файла чем хотите (хоть онлайн, хоть редакторами).
Еще можно избежать сложения буферов, чуть изменив функцию:

Удалил в редакторе , получилась сумма : 69АС, при этом произошло смещение на один байт, а смещение не влияет на сумму?

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

Попробуйте все-таки в своем коде исправить adr2. Глядишь и совпадут суммы.

Не совсем понял, а что в коде исправить adr2.?

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

Код не запускал, так что это только в качестве наброска идеи.

Опять же, лучший подход сложно выбрать, не зная, куда выведет фантазия преподавателя по части выдумывания новых усложнений. Если он предложит еще парочку байтов выколоть, то устанешь кусочками читать.

Ни один из вариантов, не ведёт к нужной сумме, лучше конечно функцией отделаться, проще и лучше, но

 function CRC16XMODEM(P: PChar; Len, Init: Word): Word;
var
i, j: Integer;
begin
  Result := Init;
for i := 0 to Len - 1 do
begin
if i = $02C then
continue;
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 $1021
else
Result := Result shl 1;
end;
end;
end;

Этот вариант не выводит правильную сумму, хотя вариант был бы оптимальным.
Нет, думаю, что больше не должен препод изголитса чтоб по байтно группу.

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

Не знаю, зачем вы отказались от использования "TBytes = array of Byte;" в пользу string (как было в старой программе bin->hex).

А где у меня в старой было Bytes = array of Byte;"?

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

Опять же, лучший подход сложно выбрать, не зная, куда выведет фантазия преподавателя по части выдумывания новых усложнений. Если он предложит еще парочку байтов выколоть, то устанешь кусочками читать.

Вот попробовал функцией , результат получается ;61Е7, а должен быть 69АС
при чём в функции и так делал ; Result :=Len; и так Result :=0; оба результата не верны.
Значит функцией не получается.

[BDA]

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

а смещение не влияет на сумму?

Нет.

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

а что в коде исправить adr2.?

В файле "Тест-3" байт 0E находится по адресу 2B, а не 2C. Перепроверьте в своем коде adr, adr2 и выставление position перед чтением.

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

А где у меня в старой было Bytes = array of Byte;"?

В старой апрельской программе.

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

при чём в функции и так делал ; Result :=Len; и так Result :=0; оба результата не верны.

Так и не надо редактировать Init.

[sergey.serg-72]

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

В старой апрельской программе.

Так это когда было, я забыл давно, что там , делалось и как.

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

В файле "Тест-3" байт 0E находится по адресу 2B, а не 2C. Перепроверьте в своем коде adr, adr2 и выставление position перед чтением.

Блин, я уже запутался в каком коде, вроде и 2В выставлять, но результат не тот.

Сейчас вот новый код, но он в ошибку уходит, не компилируется .

 function CRC16CCITT(P: PChar; Len,Init: Word): Word;
var
i, j: Integer;
begin
Result :=Init;
for i := 0 to Len - 1 do
begin
if i = $2B then
continue;

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 $1021
else
Result := Result shl 1;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const Adr=$02b-$0;  Adr2=$02D-$05E;
Var
crc,W: Word;
Buffer,Buffer2,F: String;
fs: TFileStream;
Begin
edit2.Clear;
edit4.Clear;
edit5.Clear;
OpenDialog1.Filter:='BIN (*.bin)|*.bin';
with OpenDialog1 do
if Execute then
begin
fs:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
Fs.Position:=$05E;
Fs.Read(w,2);
w:=swap(w );
edit4.Text:=IntToHex(w,2);

Fs.Position:=$02B;
SetLength(Buffer, Adr);
Fs.Read(Buffer[1],Adr);

Fs.Position:=$02D;
SetLength(Buffer2, Adr2);
Fs.Read(Buffer2[1],Adr2);

crc := CRC16CCITT(PChar(Buffer2), Adr2, CRC16XMODEM(PChar(Buffer1), Adr1, 0));

edit2.Text :=IntToHex(crc, 2);
Fs.free;
end;
end;

ругается на эту строку, не пойму, в чём проблема?

 crc := CRC16CCITT(PChar(Buffer2), Adr2, CRC16XMODEM(PChar(Buffer1), Adr1, 0));

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

Так и не надо редактировать Init.

Ни чего не надо редактировать, всё оказалось проще не куда.
BDA, Вы изначально были правы , надо было, в функцию добавить :

begin
if i = $02B then
continue;

И второе надо было адрес полностью :

const Adr=$05E-$0;

Всё и код старый прекрасно справляется с поставленной задачей.
Вот я тормоз, перекурил, отдохнул и меня осенило сразу.

Вот полный, рабочий код :

{$R *.dfm}
function CRC16XMODEM(P: PChar; Len: Word): Word;
var
i, j: Integer;
begin
Result :=0;
for i := 0 to Len - 1 do
begin
if i = $02B then
continue;
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 $1021
else
Result := Result shl 1;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const Adr=$05E-$0;
Var
crc,W: Word;
Buffer: String;
fs: TFileStream;
Begin
edit2.Clear;
edit4.Clear;
edit5.Clear;
OpenDialog1.Filter:='BIN (*.bin)|*.bin';
with OpenDialog1 do
if Execute then
begin
fs:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
if fs.Size > 96 then
begin
ShowMessage('Некорректный  размер  файла ( Строго 96 байт )  !');
Fs.free;
exit;
end
else
begin
edit5.Text:=ExtractFileName(OpenDialog1.FileName);
label2.Caption:= 'Size :'+' ' +IntToStr(fs.Size)+ ' ' + ' '+'Byte';
Fs.Position:=$05E;
Fs.Read(w,2);
w:=swap(w );
edit4.Text:=IntToHex(w,2);

Fs.Position:=$0;
SetLength(Buffer, Adr);
Fs.Read(Buffer[1],Adr);
crc :=CRC16XMODEM(PChar(Buffer),Length(Buffer));
edit2.Text :=IntToHex(crc, 2);
Fs.free;
end;
end;
end;

Делов оказалось на 5 минут и в 2 строки. А воды море вышло.....

Всё отлично получилось и просто. Огромное спасибо BDA за помощь.

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

Не знаю, зачем вы отказались от использования "TBytes = array of Byte;" в пользу string (как было в старой программе bin->hex).

Да, BDA Вы правы оказались поднял старые архивы и нашёл.

Можно и так :

 type
  TBytes = array of Byte;

var
b: TBytes;

SetLength(b, Adr);

Да , можно без string было обойтись Byte.
Сейчас и этот вариант отработаю.
Подзабывается старое, хорошо , что напомнили.

Ещё раз огромная благодарность BDA за помощь !.

[BDA]

Ну хорошо, что разобрались.

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

ругается на эту строку, не пойму, в чём проблема?

Но с ошибками компилятора лучше научиться разбираться самому, чем ждать ответов. У вас переменные и функция по-другому названы, вот компилятор и не находит их.
И стоит проверять на неравенство, чтобы и меньшие по объему файлы не пропускать:

if fs.Size <> 96 then

[sergey.serg-72]

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

Но с ошибками компилятора лучше научиться разбираться самому, чем ждать ответов. У вас переменные и функция по-другому названы, вот компилятор и не находит их.
И стоит проверять на неравенство, чтобы и меньшие по объему файлы не пропускать:

Да, сейчас посмотрел, это факт не внимательность.

BDA, Вы наверное пророк? препод приматался к функции, говорит что она работает только, если с 0 адреса подсчитывать :

function CRC16XMODEM(P: PChar; Len: Word): Word;
var
i, j: Integer;
begin
Result :=0;
for i := 0 to Len - 1 do
begin
if i = $02B then
continue;
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 $1021
else
Result := Result shl 1;
end;
end;
end;

А, если как он сказал начать отчёт не с 0, адреса, а с 20 скажем?

конструкция перестаёт работать нормально

procedure TForm1.Button1Click(Sender: TObject);
const Adr=$05E-$0;
Var

$20
пытался изменить адрес в константе, на $05E- $20;

Подсчитывает неправильно из чего сделал вывод: что проблема в функции function CRC16XMODEM(P: PChar; Len: Word): Word;
Изменение адреса в константе и в коде не помогает.

Отсюда вопросы : 1)как изменить функцию, чтоб при заданном адресе скажем с 10, или с20 адреса функция правильно подсчитывала ? 2) вопрос у нас есть константа, это фиксированный адрес для массива const Adr=$05E-$0; а можно ли сделать так, чтоб адрес задавался в ручную, скажем из edit ?
Сижу, всю ночь, так и не разобрался, в инете не нашёл ни чего, такое делать, раньше не приходилось.

Почитал, что то типа так делают :b := Strtoint('$' + Edit4.Text);
FS.Position :=Strtoint('$' + edit5.Text) ;
Но не понятно как задавать адрес с10 скажем по 100 как в tdit вводить const Adr=$05E-$0;?
Мне кажется это не реально. Весь мозг сломал, не могу даже подступится.

Слёзно прошу объяснить.

p.s

Тему тогда продолжим, ведь всё относится к теме.

[BDA]

function CRC16XMODEM(P: PChar; Len: Word; skip_i: Integer): Word;
var
  i, j: Integer;
begin
  Result := 0;
  for i := 0 to Len - 1 do
  begin
    if i = skip_i then
      continue;

...

begin_addr := // забрать из эдита
end_addr := // забрать из эдита
// проверить, что 0 <= begin_addr <= end_addr < 96
skip_addr := // забрать из эдита

buf_len := end_addr - begin_addr + 1;
Fs.Position := begin_addr;
SetLength(buffer, buf_len);
Fs.Read(buffer[1], buf_len);
crc := CRC16XMODEM(PChar(buffer), buf_len, skip_addr - begin_addr);

[sergey.serg-72]

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

function CRC16XMODEM(P: PChar; Len: Word; skip_i: Integer): Word;
var
i, j: Integer;
begin
Result := 0;
for i := 0 to Len - 1 do
begin
if i = skip_i then
continue;

...

begin_addr := // забрать из эдита
end_addr := // забрать из эдита
// проверить, что 0 <= begin_addr <= end_addr < 96
skip_addr := // забрать из эдита

buf_len := end_addr - begin_addr + 1;
Fs.Position := begin_addr;
SetLength(buffer, buf_len);
Fs.Read(buffer[1], buf_len);
crc := CRC16XMODEM(PChar(buffer), buf_len, skip_addr - begin_addr);

BDA я чуток не допонял это всё функция ? или к функции только это относится?

begin_addr := // забрать из эдита
end_addr := // забрать из эдита
// проверить, что 0 <= begin_addr <= end_addr < 96
skip_addr := // забрать из эдита

А вот эта часть кода. уже к процедуре?

 buf_len := end_addr - begin_addr + 1;
Fs.Position := begin_addr;
SetLength(buffer, buf_len);
Fs.Read(buffer[1], buf_len);
crc := CRC16XMODEM(PChar(buffer), buf_len, skip_addr - begin_addr);[/QUOTE]

что то я потерялся совсем, вроде понятно, а вроде не понятно совсем.

Как я понимаю что skip_addr := // забрать из эдита это должно быть в функции, а вот

begin_addr := // забрать из эдита
end_addr := // забрать из эдита в процедуре, а зачем три едита? двумя не обойтись?

Дальше вот эта строка :// проверить, что 0 <= begin_addr <= end_addr < 96 это в функции должна быть, или в процедуре?

Вот делаю так : но не в функции. не в процедуре компилятор ругается

 skip_i:=Strtoint('$' + Edit3.Text);

не нравится компилятору skip_i:

С функцией кажется разобрался наверное так :

 function CRC16XMODEM(P: PChar; Len: Word; skip_i: Integer): Word;
var
i, j: Integer;
begin
Result := 0;
for i := 0 to Len - 1 do
begin
if i = skip_i then
continue;
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 $1021
else
Result := Result shl 1;
end;
end;
end;

А вот дальше не понимаю этого ;

begin_addr := // забрать из эдита
end_addr := // забрать из эдита
// проверить, что 0 <= begin_addr <= end_addr < 96
skip_addr := // забрать из эдита

buf_len := end_addr - begin_addr + 1;