Создать копию бинарного файла в формате txt, с разбивкой строк и адресацией.

[sergey.serg-72]

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

Не в цикле. Сначала вынести этот новый код, который пишет нули, например, перед циклом "for j := Low(ranges3) to High(ranges3) do" (можно и после цикла, зависит от желаемого результата). Потом в новом коде поменять j на 0, чтобы использовать информацию о первом диапазоне.

Сделал так

 s := 'S00600004844521B' + sLineEnd;
ftxt.Write(s[1], Length(s));


 addr := ranges3[0, 0];
  while addr < ranges3[0, 1] do
  begin
    read_count := Min(BYTES_IN_LINE, ranges3[0, 1] - addr);
    count := read_count + ext_bytes;
    sum := count + addr and $FF + (addr shr 8) and $FF + (addr shr 16) and $FF + (addr shr 24) and $FF + $00 * read_count;
    sum := $FF - sum;
    data_s := StringOfChar('0', 2 * read_count);
    s := Format(data_line, [count, addr, data_s, sum]);
    ftxt.Write(s[1], Length(s));
    Inc(addr, read_count);
  end;
  fbin.Position :=ranges3[0, 0];
  offset :=ranges3[0, 2] - ranges3[0, 0];
  while fbin.Position < ranges3[0, 1] do
  begin
    addr :=fbin.Position;
    read_count := fbin.Read(b[0], min(BYTES_IN_LINE, ranges3[0, 1]-addr));
    Inc(addr, offset);
  end;

for j := Low(ranges3) to High(ranges3) do
begin
fbin.Position := ranges3[j, 0];
offset := ranges3[j, 2] - ranges3[j, 0];
while fbin.Position < ranges3[j, 1] do

begin
addr := fbin.Position;
read_count := fbin.Read (b[0], min(BYTES_IN_LINE, ranges3[j, 1]+1 -addr));
Inc(addr, offset);
count := read_count + ext_bytes;
sum := count + addr and $FF + (addr shr 8) and $FF + (addr shr 16) and $FF;
data_s := '';
for i := 0 to read_count - 1 do
begin
data_s := data_s + IntToHex(b[i], 2);
Inc(sum, b[i]);
end;
sum := $FF - sum;
s := Format(data_line, [count, addr, data_s, sum]);
ftxt.Write(s[1], Length(s));
end;
end;
ftxt.Write(termination_line[1], Length(termination_line));
MessageBox(handle,PChar(' Файл сконвертирован и записан !'+#13#10), PChar('сообщение'), 64);
fbin.Free;
ftxt.Free;
exit;
end;
end;
end;

Нули пишет от 0 адреса , а дойдя до 800 на который должен писать пишет FF,
По конкретному адресу 800 не пишет.

[sergey.serg-72]

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

if Edit2.Text = '' then

Супер сработало ! только почему сендер не сработал, загадка .....

[BDA]

Этот код лишний:

  fbin.Position :=ranges3[0, 0];
  offset :=ranges3[0, 2] - ranges3[0, 0];
  while fbin.Position < ranges3[0, 1] do
  begin
    addr :=fbin.Position;
    read_count := fbin.Read(b[0], min(BYTES_IN_LINE, ranges3[0, 1]-addr));
    Inc(addr, offset);
  end;

"+ $00 * read_count;" для нулей это можно не прибавлять (N + 0 = N).
"read_count := fbin.Read (b[0], min(BYTES_IN_LINE, ranges3[j, 1]+1 -addr));" +1 не нужен.

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

Нули пишет от 0 адреса , а дойдя до 800 на который должен писать пишет FF

Что именно сейчас в ranges3?

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

только почему сендер не сработал

А почему должен был сработать?

[sergey.serg-72]

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

Этот код лишний:
Код:
fbin.Position :=ranges3[0, 0];
offset :=ranges3[0, 2] - ranges3[0, 0];
while fbin.Position < ranges3[0, 1] do
begin
addr :=fbin.Position;
read_count := fbin.Read(b[0], min(BYTES_IN_LINE, ranges3[0, 1]-addr));
Inc(addr, offset);
end;
"+ $00 * read_count;" для нулей это можно не прибавлять (N + 0 = N).
"read_count := fbin.Read (b[0], min(BYTES_IN_LINE, ranges3[j, 1]+1 -addr));" +1 не нужен.

Убрал всё лишнее, но продолжаются 0 с 0 адреса, а к 800 FF.

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

Что именно сейчас в ranges3?

Сейчас вот так :

  ($0000, $06C0, $800),
    ($0870, $1F20, $900),
    ($1080, $3A90, $1020),
    ($3DD0, $42C0, $1500),
    ($4C60, $58E0, $1800),
    ($6030, $73C0, $1860),
    ($0BAE0, $BF60, $1920),
    ($0E800, $FFFF, $2000)

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

А почему должен был сработать?

как почему? код на срабатывание, а он не срабатывал.

[BDA]

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

Сейчас вот так

Простая тестилка диапазонов:

procedure TForm1.btn1Click(Sender: TObject);
const
  ranges: array[0..7] of array[0..2] of Integer = (
    ($0000, $06C0, $800),
    ($0870, $1F20, $900),
    ($1080, $3A90, $1020),
    ($3DD0, $42C0, $1500),
    ($4C60, $58E0, $1800),
    ($6030, $73C0, $1860),
    ($0BAE0, $BF60, $1920),
    ($0E800, $FFFF, $2000)
  );
var
  i, j, offset_i, offset_j: integer;
begin
  with mmo1 do
  begin
    Clear;
    Lines.BeginUpdate;
    for i := Low(ranges) to High(ranges) do
    begin
      offset_i := ranges[i, 2] - ranges[i, 0];
      for j := i + 1 to High(ranges) do
      begin
        offset_j := ranges[j, 2] - ranges[j, 0];
        if (ranges[i, 1] > ranges[j, 0]) and (ranges[i, 0] < ranges[j, 1]) then
          Lines.Add(Format('old %d intersects old %d', [i, j]));
        if (ranges[i, 1] > ranges[j, 0] + offset_j) and (ranges[i, 0] < ranges[j, 1] + offset_j) then
          Lines.Add(Format('old %d intersects new %d', [i, j]));
        if (ranges[i, 1] + offset_i > ranges[j, 0]) and (ranges[i, 0] + offset_i < ranges[j, 1]) then
          Lines.Add(Format('new %d intersects old %d', [i, j]));
        if (ranges[i, 1] + offset_i > ranges[j, 0] + offset_j) and (ranges[i, 0] + offset_i < ranges[j, 1] + offset_j) then
          Lines.Add(Format('new %d intersects new %d', [i, j]));
      end;
    end;
    Lines.EndUpdate;
  end;
end;

mmo1 это TMemo. У диапазонов (старых и новых) куча пересечений между собой. Если вы ищете и проверяете правильность данных просто по адресу, то, может быть, смотрите не на те данные, т.к. для одного адреса будет несколько записей.

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

код на срабатывание, а он не срабатывал.

Аналогия такая. Вы хотите проверить, что тарелка пустая, а проверяете: входная дверь не заперта И тарелка пустая. Проверка сендера никак не относится к пустоте эдита.

[sergey.serg-72]

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

mmo1 это TMemo. У диапазонов (старых и новых) куча пересечений между собой. Если вы ищете и проверяете правильность данных просто по адресу, то, может быть, смотрите не на те данные, т.к. для одного адреса будет несколько записей.

Круто, то что надо ,BDA Вы гений !

[sergey.serg-72]

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

как почему? код на срабатывание, а он не срабатывал.

Разобрался в этом моменте но опять, благодаря Вам !

[sergey.serg-72]

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

Простая тестилка диапазонов:

BDA , а вот и недостаток выяснился , батан прислал диапазон вот этот

 const
ranges: array[0..1] of array[0..2] of Integer = (  
      ($0000, $0FB9, $17FF ),
       ($0FBA, $F78D, $0FFFF)
);

И мина получается , файл с неполной строкой, получается и код наш не останавливается на адресе конечном FFFF а проскакивает до 1E7D3 и что странно конструкция не останавливает выход за диапазон. Причина думаю в неполной строке файла и смещение не учитывается.
Как такое возможно ?

for j := Low(ranges) to High(ranges) do
begin
if ranges[j, 1] > fbin.Size then
Break;
fbin.Position := ranges[j, 0];
offset := ranges[j, 2]- ranges[j, 0];;
while fbin.Position < ranges[j, 1] do
begin
addr := fbin.Position;
read_count := fbin.Read (b[0], min(BYTES_IN_LINE, ranges2[j, 1] + 1 - addr)); 
Inc(addr, offset);

И ещё неправильно конвертирует и ошибка открытия

[BDA]

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

ошибка открытия

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

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

код наш не останавливается на адресе конечном FFFF

А почему он должен останавливаться, если конец второго диапазона после переноса 1E7D2.

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

ranges2[j, 1] + 1 - addr

Опять единица лишняя.

[sergey.serg-72]

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

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

исключено , редактор тритона , всё открывает. Батан какой то ребус дал с таким диапазоном.
Редактор не при чём.