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

[BDA]

К функции относится только код до continue включительно. Остальное в процедуре. Если хочется менять начальный, конечный и адрес для игнорирования, то удобнее 3 эдита (или spinedit или scrollbar, но это уже украшательства для удобства пользователя).

[sergey.serg-72]

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

К функции относится только код до continue включительно. Остальное в процедуре. Если хочется менять начальный, конечный и адрес для игнорирования, то удобнее 3 эдита (или spinedit или scrollbar, но это уже украшательства для удобства пользователя).

значит с функцией я правильно разобрался.
Тогда не понятно с процедурой : 1)

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

buf_len := end_addr - begin_addr + 1;

если вставляю в процедуру то компилятор не опознаёт раз skip_addr :=
два buf_len
с buf это надо создавать новую переменную. или это моя переменная Buffer: String;?

что за переменные addr - begin_addr ?

Согласен пусть будет три эдита, красота не нужна.

[BDA]

Да, нужно объявить горсть новых переменных (4 штуки).

[sergey.serg-72]

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

Да, нужно объявить горсть новых переменных (4 штуки).

переменных типа word, int64, или string?

И как быть с этим из функции её тоже как переменную skip_ . ? компилятор не видит её из процедуры ...

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

К функции относится только код до continue включительно. Остальное в процедуре. Если хочется менять начальный, конечный и адрес для игнорирования, то удобнее 3 эдита (или spinedit или scrollbar, но это уже украшательства для удобства пользователя).

Вот что получилось, но считает не верно, где я ошибся ?

 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;

procedure TForm1.Button1Click(Sender: TObject);
Var
addr1,addr2,buf_len:int64; // переменные для начального адреса и конечного 
skip_: byte; // переменная для адреса байта исключения
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('не допустимый размер файла  !');
Fs.free;
exit;
end
else
begin
Fs.Position:=$05E;
Fs.Read(w,2);
w:=swap(w );
edit4.Text:=IntToHex(w,2);     // выводим прописанную контрольную сумму
end;
begin
skip_:=Strtoint('$' + Edit1.Text); // байт который надо исключить
addr1:=Strtoint('$' + Edit3.Text); // начальный адрес
addr2:=Strtoint('$' + Edit6.Text); // конечный адрес
end;
begin
buf_len :=addr1 - skip_ + 1;
Fs.Position :=addr1;
SetLength(buffer, buf_len);
Fs.Read(buffer[1], buf_len);
crc := CRC16XMODEM(PChar(buffer), buf_len, skip_ - addr2);
edit2.Text :=IntToHex(crc, 2);
end;
Fs.free;
end;
end;

Не пойму, что не так, где ошибся?

[BDA]

Пора уже начинать писать код с отступами (или хотя бы нажимать "автоформатирование"). Не запускал, но примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  addr1, addr2, skip_, buf_len: Integer;
  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(FileName, fmOpenRead);
      if fs.Size <> 96 then
      begin
        ShowMessage('недопустимый размер файла!');
        Fs.free;
        exit;
      end;
      Fs.Position := $05E;
      Fs.Read(w, 2);
      w := swap(w);
      edit4.Text := IntToHex(w, 2);     // выводим прописанную контрольную сумму
      skip_ := Strtoint('$' + Edit1.Text); // байт который надо исключить
      addr1 := Strtoint('$' + Edit3.Text); // начальный адрес
      addr2 := Strtoint('$' + Edit6.Text); // конечный адрес
      buf_len := addr2 - addr1 + 1;
      Fs.Position := addr1;
      SetLength(buffer, buf_len);
      Fs.Read(buffer[1], buf_len);
      crc := CRC16XMODEM(PChar(buffer), buf_len, skip_ - addr1);
      edit2.Text := IntToHex(crc, 2);
      Fs.free;
    end;
end;

[sergey.serg-72]

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

Пора уже начинать писать код с отступами (или хотя бы нажимать "автоформатирование"). Не запускал, но примерно так:

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

да,у меня почти так же, исправил как у ВАС. но результат нулевой. считает всё ровно не верно. где то ошибка явно.

[BDA]

Визуально в коде проблем не вижу, так что проверьте, что именно вписываете эдиты в качестве начального, конечного адресов и адреса пропуска.

[sergey.serg-72]

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

Визуально в коде проблем не вижу, так что проверьте, что именно вписываете эдиты в качестве начального, конечного адресов и адреса пропуска.

В первый едит ввожу как положено 2b (байт исключения по этому адресу. в третий едит ввожу начальный адрес 0 . в 6 едит ввожу 05е.

Ошибку нашёл. исправил и теперь всё отлично. ошибка в этой строке :
buf_len := addr2 - addr1 +1;
когда отнимаем от конечного адреса начальный и присваиваем переменной buf_len
то +1 не надо. не надо прибавлять.
Надо так : buf_len := addr2 - addr1;

[BDA]

Да, это зависит от интерпретации конечного адреса (входит или нет этот адрес в диапазон для расчёта).

[sergey.serg-72]

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

Да, это зависит от интерпретации конечного адреса (входит или нет этот адрес в диапазон для расчёта).

Ну. если мы берём конечный адрес как крайний. то конечно он входит, значит +1 это уже перескок на один адрес вперёд. А это неправильно.

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

И последний момент. думаю важный. чтоб универсально было.
Если не надо исключать байт из подсчёта. а пересчитать полностью.
То есть надо сделать чтоб ввёл в едит1 байт исключения. исключает, если не ввёл значит чтоб считал полностью. без исключения. это в функции менять надо ?