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

[BDA]

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

на 1, но только в данном случае

В этом, кажется, не прав. Даже без исключения байта тритон уже захватывает 2 лишних байта в конце (по сравнению с выделенным диапазоном). А если один байт исключить, то прибавлять к адресу нужно будет уже 3, но в файле нет 3 лишних байтов (в конце всего 2). Так что нужно смотреть, как в этом случае выкручивается тритон (какой диапазон берет).

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

когда есть совпадение, окошко вылетало

Попробуйте так:

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);

[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);

Нет при совпадении окошка не вылетает. полный игнор.
И я заметил, что косяки в программме из за Checksum16 . открываешь любые всё гуд, как только открыл Checksum16 и после любой другой. сразу ошибка и процесс занят. Именно с Checksum16 связано, что то не то с кодом. почему после него другие не открываются, а в ошибку уходят и процесс занят?...

[sergey.serg-72]

BDA. а Checksum-32 можно тоже функцию . или это уже не выполнимо ?

[BDA]

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

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

Покажите код кнопки для вызова подсчета Checksum16 целиком.

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

Checksum-32 можно тоже функцию

Да практически то же, что и Checksum16:

function checksum32(P: PChar; Len: Word; skip_1, skip_2: Integer): LongWord;
var
  i, j: Integer;
begin
  Result := 0;
  j := 0;
  for i := 0 to Len - 1 do
  begin
    if (i = skip_1) or (i = skip_2) then
      Continue;
    Result := Result + ord(P[i]) shl (8 * j);
    j := (j + 1) mod 4;
  end;
end;

[sergey.serg-72]

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

function checksum32(P: PChar; Len: Word; skip_1, skip_2: Integer): LongWord;
var
i, j: Integer;
begin
Result := 0;



j := 0;
for i := 0 to Len - 1 do
begin
if (i = skip_1) or (i = skip_2) then
Continue;
Result := Result + ord(P[i]) shl (8 * j);
j := (j + 1) mod 4;
end;
end;

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

[sergey.serg-72]

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

function checksum32(P: PChar; Len: Word; skip_1, skip_2: Integer): LongWord;
var
i, j: Integer;
begin
Result := 0;
j := 0;
for i := 0 to Len - 1 do
begin
if (i = skip_1) or (i = skip_2) then
Continue;
Result := Result + ord(P[i]) shl (8 * j);
j := (j + 1) mod 4;
end;
end;

Правильно , я вчера такую же функцию использовал, но результат не верный, сейчас перепроверил .
результат Тритон :А1186956
Программа ; F4AF6956
Суммы на выходе разные.


Код такой :

 var
A: array  of longword; //
f: TFileStream;
crc,w: longWord;
 addr1, addr2, addr3,skip_1 ,skip_2, buf_len:integer;

begin

with OpenDialog1 do
if Execute then
begin
F:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyNone);
if F.Size < 0  then
begin
ShowMessage('íå òîò ôàéë  !');
F.Free;
exit;
end;
begin
 edit5.Text:=ExtractFileName(OpenDialog1.FileName);
label2.Caption:= 'Size :'+' ' +IntToStr(f.Size)+ ' ' + ' '+'Byte';
addr3:= StrToIntDef('$' + Edit6.Text, -1); // eiia?iue aa?an
F.Position :=addr3;
F.Read(w, 4);
//w := swap(w);
Edit4.Text:=' '+IntToHex(w,4);
skip_2:= StrToIntDef('$' + Edit8.Text,-1);
skip_1 := StrToIntDef('$' + Edit7.Text,-1);  //
addr1 := Strtoint('$' + Edit1.Text); //
addr2 := Strtoint('$' + Edit3.Text); //
buf_len:= addr2 - addr1;
F.Position:= addr1;;
SetLength(A,  buf_len);
F.Read(A[0], buf_len);
crc :=checksum32(PChar(A), buf_len, skip_1 - addr1, skip_2 - addr1 );

edit2.Text := IntToHex(crc, 4);
label1.Caption:='Checksum_32 ';
if w = crc then
MessageBox(handle, PChar('есть совпадение'), PChar('сообщение'), MB_ICONINFORMATION);
A:=nil;
end;
F.Free;
end;
end;

Вроде всё правильно, но результат не тот .

[BDA]

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

Тритон :А1186956
Программа ; F4AF6956
Суммы на выходе разные.

Потому что тритон посчитал сумму не от выделенного диапазона, а захватил еще 2 байта в конце. Попробуйте в тритоне выделить файл целиком - будет та же сумма.

[sergey.serg-72]

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

Потому что тритон посчитал сумму не от выделенного диапазона, а захватил еще 2 байта в конце. Попробуйте в тритоне выделить файл целиком - будет та же сумма.

Да, точно но это неправильно, что сумма без двух байт, что с ними, сумма одна и не меняется, это неправильно, для чего , тогда выделение ?

А программа когда полностью файл, то совпадает, если ограничить адресом, то сумма другая, а Тритон, что так, что так, сумма одна, это неправильно, значит тритон косячит ?

[sergey.serg-72]

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

Покажите код кнопки для вызова подсчета Checksum16 целиком.

Вот код полностью :

var
A: array  of word; //
f: TFileStream;
crc,w: Word;
 addr1, addr2, addr3,skip_1,skip_2, buf_len:integer;
begin
label1.Caption:=' ';
edit2.Clear;
edit4.Clear;
edit5.Clear;
OpenDialog1.Filter := 'BIN (*.bin)|*.bin';
with OpenDialog1 do
if Execute then
begin
F:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyNone);
if F.Size < 0  then
begin
ShowMessage('не тот файл  !');
F.Free;
exit;
end;
begin
 edit5.Text:=ExtractFileName(OpenDialog1.FileName);
label2.Caption:= 'Size :'+' ' +IntToStr(f.Size)+ ' ' + ' '+'Byte';
addr3:= StrToIntDef('$' + Edit6.Text, -1); // eiia?iue aa?an
F.Position :=addr3;
F.Read(w, 2);
//w := swap(w);
Edit4.Text:=' '+IntToHex(w,2);
skip_2:= StrToIntDef('$' + Edit8.Text,-1);
skip_1 := StrToIntDef('$' + Edit7.Text,-1);  //
addr1 := Strtoint('$' + Edit1.Text); //
addr2 := Strtoint('$' + Edit3.Text); //
buf_len:= addr2 - addr1;
F.Position:= addr1;;
SetLength(A,  buf_len);
F.Read(A[0], buf_len);
crc :=checksum16(PChar(A), buf_len, skip_1 - addr1, skip_2 - addr1 );
edit2.Text := IntToHex(crc, 4);
label1.Caption:='Checksum_16 ';
if w = crc then
MessageBox(handle, PChar('Есть совпадение!'), PChar('Сообщение'), MB_ICONINFORMATION);
A:=nil;
end;
F.Free;
end;
end;

[BDA]

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

сумма одна, это неправильно, значит тритон косячит ?

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

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

A: array of word;

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

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

A:=nil;
F.Free;

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