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

[sergey.serg-72]

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

BDA, это не совсем то , скажем что заполнения не всего файла, а определённого адреса, который задан как тут например : inc(p, $10);
for i := 1 to 100 do
begin
p^ := $00;
inc(p);
end
Только по одному адресу , остальные игнорятся.

И вообще , есть что то подобное, адресное для TFileStream; ?
Бывает что только один адрес нужно затереть, а не всё.

И как я понял это пишет только для FF, а если для 00 нужно?
Что то универсальное бы и простое типа как выше в примере. Только для TFileStream?

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

Да, можно. Добавить ранее упоминавшийся код перед считыванием:

При таком коде, данные не записывает, в выходном файле , одни FF , а данные где?
Нет, не подходит такой вариант, нужен адресный и чтоб данные не терялись, а просто по определённому адресу после считывания данных, записывались 00.

Только типа такого,

begin
p := Stream.Memory;
inc(p, $010);
for i := 1 to 71 do
begin
p^ := $00;
inc(p);
end;

но под TFileStream.

[BDA]

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

При таком коде, данные не записывает, в выходном файле , одни FF , а данные где?

Я код не запускал, но должно было записать каждый диапазон 2 раза: сначала диапазон со старыми адресами полностью из FF, затем диапазон с новыми адресами с данными из старого диапазона.

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

И как я понял это пишет только для FF, а если для 00 нужно?

Нужно исправить две строки. Подсказка, вот эти:

sum := count + addr and $FF + (addr shr 8) and $FF + (addr shr 16) and $FF + (addr shr 24) and $FF + $FF * read_count;
data_s := StringOfChar('F', 2 * read_count);

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

И вообще , есть что то подобное, адресное для TFileStream; ?
Бывает что только один адрес нужно затереть, а не всё.

TMemoryStream загружает данные из файла в память. Поэтому можно её напрямую редактировать. А с TFileStream придется "бегать" по самому файлу и писать данные в файл (меняя Position и делая Write). Но у вас-то не такая ситуация, бинарный файл открывается только на чтение, и из него берутся какие-то данные для записи в текстовый файл.

[sergey.serg-72]

Да, это я понял , что за место $FF, 00 это не проблема .

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

Нужно исправить две строки. Подсказка, вот эти:
Код:
sum := count + addr and $FF + (addr shr 8) and $FF + (addr shr 16) and $FF + (addr shr 24) and $FF + $FF * read_count;
data_s := StringOfChar('F', 2 * read_count);

Да, это я понял , что за место $FF, 00 это не проблема .

 sum := count + addr and $00 + (addr shr 8) and $00 + (addr shr 16) and $00 + (addr shr 24) and $00 + $00 * read_count;
data_s := StringOfChar('0', 2 * read_count);

[sergey.serg-72]

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

Я код не запускал, но должно было записать каждый диапазон 2 раза: сначала диапазон со старыми адресами полностью из FF, затем диапазон с новыми адресами с данными из старого диапазона.

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

[BDA]

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

за место $FF, 00 это не проблема

В sum не все FF надо заменять на 00.

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

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

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

[sergey.serg-72]

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

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

да самый первый !

этот
($0000, $030, $00000),
Считать и на это место 00

[BDA]

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

да самый первый !

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

[sergey.serg-72]

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

TMemoryStream загружает данные из файла в память. Поэтому можно её напрямую редактировать. А с TFileStream придется "бегать" по самому файлу и писать данные в файл (меняя Position и делая Write). Но у вас-то не такая ситуация, бинарный файл открывается только на чтение, и из него берутся какие-то данные для записи в текстовый файл.

И ещё один момент, я закрепляю полученные знания и отрабатываю старые уроки за одно.
Решил усовершенствовать код start_pos , end_pos . Считывание вырезанного куска из файла, в заданом диапазоне.

  var
  Stream: TMemoryStream;
  p: ^Byte;
  i, start_pos, end_pos: integer;

begin
if (sender <> Button1 ) and (EDit1.Text = '')  then
begin
MessageBox(handle,PChar('начальный адрес ввести'+#13#10), PChar('сообщение'), 64);
exit;
end;
if (sender <> Button1 ) and (EDit2.Text = '')  then
begin
MessageBox(handle,PChar('конечный адрес ввести'+#13#10), PChar('сообщение'), 64);
exit;
end;
dlgOpen.Filter := 'Bin File (*.Bin)|*.Bin';
if not dlgOpen.Execute then
exit;
Stream := TMemoryStream.Create;
Stream.LoadFromFile(dlgOpen.FileName);
if Stream.Size < 0 then
begin
MessageBox(handle,PChar('не тот размер файла '), PChar('сообщение'), 64);
Stream.Free;
exit;
end;
start_pos :=Strtoint('$' + edit1.Text) ;
end_pos := Strtoint('$' + edit2.Text) ;
Label1.Caption := IntToStr(Stream.Size) + ' ' + ' '+'Bytes';
begin
Stream.Size := end_pos +1 ;
p := Stream.Memory;
for i := 0 to start_pos-1 do
begin
p^ := $FF;
inc(p);
end;
dlgsave.Filter := 'Bin File (*.Bin)|*.Bin';
dlgsave.FileName := dlgopen.FileName;
if not dlgSave.Execute then
begin
Stream.Free;
exit;
end;
Stream.SaveToFile(dlgSave.FileName + '_file copy_.bin');
Label4.Caption := IntToStr(Stream.Size) + ' ' + 'Bytes';
MessageBox(handle,PChar('файл сделан !'+#13#10), PChar('сообщение'), 64);
Stream.Free;
end;
end;

Всё вырезает, но возникли трудности :
1) не срабатывает код при пустых edit, не пойму почему ?

begin
if (sender <> Button1 ) and (EDit1.Text = '')  then
begin
MessageBox(handle,PChar('начальный вдрес ввести'+#13#10), PChar('сообщение'), 64);
exit;
end;
if (sender <> Button1 ) and (EDit2.Text = '')  then
begin
MessageBox(handle,PChar('конечный адрес ввести'+#13#10), PChar('сообщение'), 64);
exit;
end;
dlgOpen.Filter := 'Bin File (*.Bin)|*.Bin';
if not dlgOpen.Execute then
exit;

2) Кусок вырезается с FF вверху, это понятно, но как усовершенствовать код с помощью скажем комбобкса , поставил галочку и считанный кусок данных, записался с 0 адреса , только чистые данные, без FF в верху. Снял галочку с FF в верху ? Чтоб и так и так было?
3) Я в редакторе когда, по адресам передвигаюсь, то адрес не в ручную ввожу, а из блокнота , чтоб быстрей и не в ручную каждый раз вводить. В редакторе тоже edit . Скопировал из блокнота адрес, вставил в edit и передвигайся.
Если в программе так делаю, то ошибка вылетает и требуется вводить в ручную, не пойму почему, но ошибка постоянно вылетает, пока в ручную не введу адрес.
Может в настройках edit что то выставлять надо, чтоб скопированный адрес принимала? , а то в ручную постоянно вбивать, не удобно при тестах. Я что то такого раньше не замечал, копировал и вставлял, а тут прям беда.... Может все проблемы из за Stream: TMemoryStream;?

[sergey.serg-72]

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

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

То есть за место j в цикле поставить 0 ?

[sergey.serg-72]

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

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

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

 for j := Low(ranges3) to High(ranges3) do
begin
addr := ranges3[j, 0];
 while addr < ranges3[j, 1] do
begin
read_count := Min(BYTES_IN_LINE, ranges3[j, 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[j, 0];
offset := ranges3[j, 2] - ranges3[0, 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] - addr));
Inc(addr, offset);
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;