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

[sergey.serg-72]

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

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

Да , Вы правы оказались, но даже мусор не надо было вводить банально так :111111111111 и всё в ошибку уйдёт.
Сегодня и старый опробован и по новому сделал (это для другой программы) .

Сделал проверку так :

 if (Sender = SpeedButton1) and (EDit2.Text = '')  then
begin
Application.MessageBox('Введите  адрес, с которого производить запись в файл  !', 'Сообщение ', MB_Ok + MB_ICONINFORMATION);
exit;
end;
begin
offset := StrToIntDef('$' + Edit2.text, -1);
if offset = -1 then
begin
Application.MessageBox('Введен некорректный адрес, с которого производить запись в файл!', 'Сообщение', MB_Ok + MB_ICONINFORMATION);
exit;
end;
end;


procedure TForm1.Edit2Click(Sender: TObject);
begin
LoadKeyboardLayout('00000409', KLF_ACTIVATE);
end;

Можно как дополнение в edit, сразу прописать стартовый адрес 0000.
И программа будет при загрузке, уже с нулевым адресом.
А можно и без ноля, и подскажет что надо ввести адрес записи и ,если адрес некорректный , окошко предупреждения. И пользователю удобно, не переключать на Английский и проверка хорошая.

[sergey.serg-72]

sergey.serg-72,

И о главном, сегодня неприятный момент выяснился про Наш Hex , что не ожидал да же .
Прислал сокурсник файл, типа софт какого то программатора не берёт файл нашего Hex, не поймут, в чём дело, прислали мне.
Стал разбираться , сделал в двух редакторах, сравниваю, отличий нет, всё идентично, не пойму в чём дело. Попросил сокурсника прислать софт программатора, стал сам проверять , сделал три файла , один наш и два от редакторов. Два от редакторов софт берёт, а наш нет, типа повреждён, или не соответствует размеру...
Ломал голову часа три, в чём дело ?, при сравнении нет расхождений.
Загнал в другую программу сравнения файлов, разницы тоже нет, всё идентично и только присмотревшись увидел что два редактора в конце файла, проставляют символ конец строки ODOA , которые мы убрали.... Стал в инете проверять конвертацию в intel Hex, везде проставляется в конце файла, во всех и редакторы тоже. Вот и меня осенило !!! видимо софт этого программатора, оказался дотошным и из за двух байт (конец строки ) расценил, что файл либо битый, либо не соответствует .... Стал проверять формат s19 и тоже все три программы и два редактора, в конце файла проставляют, эти злосчастные два байта (конец строки).
Видимо для не которых софтов программаторов, это критично.
Этот момент мы не учли , я с программаторами дел мало имел и даже не думал что это критично может быть. Хотя в описании intel hex нет, ни чего подобного. А в жизни оказалось важным (век живи, век учись),. Вот сегодня получил опыт и знания.
Видимо для форматов hex и srec, проставлять обязательно, в конце файла.

Далее прописал конец строки так :

 s := ':00000001FF';
s :=s+sLineBreak; //обязательно добавляем конец строки

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

[BDA]

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

нашёл в инете такой файл

Можно взять произвольный файл на компьютере и заменить у его расширение на bin, чтобы скормить конвертеру. Реальные bin вряд ли будут огромными, но "защиты от дурака" не предусмотрено в текущем коде.

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

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

Ну вот он мог и протестировать только на тех размерах bin, что действительно используются. А для произвольного размера что-то не учесть.

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

Проверки должны быть когда знаешь что программа пойдёт в массы.

В идеальном мире, да.

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

Многое ново для меня и впервые в коде

Из нового, вроде, только div и mod. Они используются для получения двух старших байт 4х-байтового адреса (cur_high_addr := (fbin.Position + offset) div $10000; ) или получения старшего и младшего байтов 2х-байтового адреса (sum := count + low_addr mod $100 + low_addr div $100; ).

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

Ломал голову часа три, в чём дело ?, при сравнении нет расхождений.

А ведь ранее эта проблема с наличием/отсутствием новой строки в конце уже обсуждалась (на примере неработающих конвертеров).

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

Хотя в описании intel hex нет, ни чего подобного. А в жизни оказалось важным

Это или недоработка программатора, так как в стандарте от Intel про переносы строк вообще ничего нет (https://archive.org/details/IntelHEXStandard), или они придерживаются немного другого стандарта.

Чуть измененный код: offset теперь типа Int64, чтобы верно обработать все 32битные смещения; фильтры убраны из кода (ушли в дизайнер формы); добавлен на форму ProgressBar, чтобы нескучно было ждать; добавлен грубый подсчет времени; немного переупорядочен код, чтобы уменьшить отступы.

procedure TForm1.Bin2HexClick(Sender: TObject);
const
  BYTES_IN_LINE = 16;
var
  fbin: TMemoryStream;
  ftxt: TMemoryStream;
  s, data_s: string;
  b: TBytes;
  offset: Int64;
  i, count, high_addr, cur_high_addr: integer;
  sum: byte;
  low_addr: word;
  start_conv, end_conv: TDateTime;
begin
  if Edit1.Text = '' then
    offset := 0
  else
  begin
    offset := StrToInt64Def('$' + Edit1.text, -1);
    if offset = -1 then
    begin
      Application.MessageBox(
        'Введен некорректный адрес, с которого производить запись в файл!',
        'Converter',
        MB_Ok + MB_ICONERROR
      );
      exit;
    end
    else if offset > High(LongWord) then
    begin
      Application.MessageBox('Слишком большой адрес!', 'Converter', MB_Ok + MB_ICONERROR);
      exit;
    end;
  end;
  if not dlgOpen1.Execute then
    exit;
  dlgSave1.FileName := ChangeFileExt(dlgOpen1.FileName, '.hex');
  if not dlgSave1.Execute then
    exit;
  start_conv := Now;
  fbin := TMemoryStream.Create;
  ftxt := TMemoryStream.Create;
  fbin.LoadFromFile(dlgOpen1.FileName);
  if fbin.Size + offset > High(LongWord) then
  begin
    Application.MessageBox('Слишком большой адрес!', 'Converter', MB_Ok + MB_ICONERROR);
    fbin.Free;
    ftxt.Free;
    exit;
  end;
  Bin2Hex.Enabled := False;
  ConvBar.Max := fbin.Size div BYTES_IN_LINE;
  SetLength(b, BYTES_IN_LINE);
  high_addr := -1;
  while fbin.Position < fbin.Size do
  begin
    ConvBar.Position := ConvBar.Position + 1;
    Application.ProcessMessages;
    low_addr := fbin.Position + offset;
    cur_high_addr := (fbin.Position + offset) div $10000;
    if cur_high_addr <> high_addr then
    begin
      high_addr := cur_high_addr;
      sum := 6 + high_addr mod $100 + high_addr div $100;
      sum := -sum;
      s := Format(':02000004%.4x%.2x%s', [high_addr, sum, sLineBreak]);
      ftxt.Write(s[1], Length(s));
    end;
    count := fbin.Read(b[0], BYTES_IN_LINE);
    sum := count + low_addr mod $100 + low_addr div $100;
    data_s := '';
    for i := 0 to count - 1 do
    begin
      data_s := data_s + IntToHex(b[i], 2);
      Inc(sum, b[i]);
    end;
    sum := -sum;
    s := Format(':%.2x%.4x00%s%.2x%s', [count, low_addr, data_s, sum, sLineBreak]);
    ftxt.Write(s[1], Length(s));
  end;
  s := ':00000001FF' + sLineBreak;
  ftxt.Write(s[1], Length(s));
  ftxt.SaveToFile(dlgSave1.FileName);
  fbin.Free;
  ftxt.Free;
  Bin2Hex.Enabled := True;
  ConvBar.Position := 0;
  end_conv := Now;
  s := Format('Файл успешно преобразован и записан за %d секунд(ы).', [SecondsBetween(start_conv, end_conv)]);
  Application.MessageBox(PAnsiChar(s), 'Converter', MB_Ok + MB_ICONINFORMATION);
end;

[sergey.serg-72]

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

Можно взять произвольный файл на компьютере и заменить у его расширение на bin, чтобы скормить конвертеру. Реальные bin вряд ли будут огромными, но "защиты от дурака" не предусмотрено в текущем коде.

Да я проще сделал , этот bin файл в редакторе склеил несколько раз, до огромного размера и сохранил в bin. Да и не нужна защита от дурака, Вы и так всё главное включили.
А дурак и в редакторе на касячит , на каждого дурака не угодишь.
А конвертер Ваш всей группой оценили, он хороший !

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

Ну вот он мог и протестировать только на тех размерах bin, что действительно используются. А для произвольного размера что-то не учесть.

Мог конечно, может так оно и было, но врятли , это утешит человека, который по надеялся на программу и в самый, не подходящий момент она выкидывает неприятный сюрприз....
По этому Вы правы, когда говорили что тесты и отладка, это главное лишнее тому подтверждение.

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

В идеальном мире, да.

Согласен, тут нашёл на сайте одном конвертер, он бесплатный, свободно скачивать можно.
Там bin -hex и из hex в bin. Делает всё корректно и большие файлы и давал ему файлы со смещением, он легко и корректно их переводил в bin, ни одного прокола всё корректно.
Единственный плохой (на мой взгляд) момент, он переводит в hex, всё в одну строку, что очень не удобно для анализа и исправления. Приходится в блокноте всё по рядам для лучшей наглядности.
Понятно что это не запрещено и так можно, но это для визуальности не очень хорошо.
Не зря все редакторы в 16 байт в строке, не гласно, но удобно. В остальном всё корректно и даже видно в процентах как выполняется и быстро делает всё.
И второй момент, фильтра нет и конвертер типа должен все форматы переводить в hex, но берёшь тот же s19, чтоб в hex и конверт в ошибку, за чем тогда даёшь возможность все форматы?
Тут автор не доглядел, этот момент. А пользователь видит, раз все можно, значит и s19, тхт и другие, а суёт в программу файл, а тот в ошибку однако...Фильтр надо было всё же ввести.

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

Из нового, вроде, только div и mod. Они используются для получения двух старших байт 4х-байтового адреса (cur_high_addr := (fbin.Position + offset) div $10000; ) или получения старшего и младшего байтов 2х-байтового адреса (sum := count + low_addr mod $100 + low_addr div $100; ).

Да на этом моменте споткнулся ещё не проходили div и mod, я этот момент сейчас изучил один даёт целочисленное значение от делимого удобно, второй mod остаток от целочисленного деления.
Единственное что пока не приходилось с этим сталкивать ся, в примерах на сайтах понятно когда 17/2 =8 отбрасываем 5, а вот по mod 19/ 4 =3 применять не приходилось и по этому пока момент не совсем понятный ... Разве отниманием от определённого значения (константы) нельзя добится того же ?

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

А ведь ранее эта проблема с наличием/отсутствием новой строки в конце уже обсуждалась (на примере неработающих конвертеров).

Да я про этот момент помню, но кто мог подумать что софт, какого то программатора упрётся на ерунде , не имеющей отношения к формату, а только на 2 байта размер больше. Вроде разработчик софта для программатора, это должен быть профи высокого класса, а получается что то же не всегда ....

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

то или недоработка программатора, так как в стандарте от Intel про переносы строк вообще ничего нет (https://archive.org/details/IntelHEXStandard), или они придерживаются немного другого стандарта.

Я тоже к этому пришёл уже, в софте данные разработчика, я ему отписал по этому поводу почему он так критично на конце строки упёрся и на основании чего?

[sergey.serg-72]

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

Чуть измененный код: offset теперь типа Int64, чтобы верно обработать все 32битные смещения; фильтры убраны из кода (ушли в дизайнер формы); добавлен на форму ProgressBar, чтобы нескучно было ждать; добавлен грубый подсчет времени; немного переупорядочен код, чтобы уменьшить отступы.

Да Вы правы идея та отличная я об этом и не подумал бы.

Но есть вопросы :
1) на этой строчке в ошибку уходит и не компилируется

s := Format('Файл успешно преобразован и записан за %d секунд(ы).', [SecondsBetween(start_conv, end_conv)]);
Компилятору не нравится SecondsBetween (пишет что ошибка идентификации ) как я понял что этот момент где то не прописан в глобальных переменных?
В общем не компилируется и в ошибку уходит на этой строчки.



3) не понятны эти переменные : start_conv, end_conv: TDateTime;(понятно что что то запускает от начало и до конца, явно с таймером связь) .
Видимо Вы таймер как то использовали на форме?
Не понятный момент с этими данными. (чего то не хватает)
С прогресс баром всё понятно .
И если убрать не рабочую строку (в ошибку которая уходит)
То всё отлично !
И под этим, Вы что подразумевали таймер ? SecondsBetwee не понятный момент но из за него ошибка и не компилируется.

А вот с этим понятно , я к стате изначально про него думал offset: Int64; сразу 8 байт может вмещать. Хотя максимальный ввод в программках что был это 7 значений и всё не введёшь больше. А так 5 и точка. Может в edit ограничение поставить в 5, или 7 символов максимально ?


Всё , вопрос снят полностью и с переменными start_conv, end_conv: TDateTime тоже разобрался почему компилятор бычился на SecondsBetween это функция и конечно её надо было прописать в ; uses DateUtils; Функция SecondsBetween в Delphi
Используемый модуль: DateUtils.
Я этого не знал, этого не проходили, но теперь знаю ,что это и с чем её едят...
Вопрос снят полностью.
Я добавил некоторые дополнения чтоб progresы Bar, не видим был при загрузке + применил свой приём, чтоб место не занимать на форме, в общем получился супер конвертер от BDA.
Для сокурснице поменял ProgressBar, на Gauge, с процентами и получился супер !

[sergey.serg-72]

sergey.serg-72,
Но всё это меркнет , на фоне того (сейчас Вас рассмешу ),что сегодня, по злой усмешки судьбы, или иронией ... Я вытащил "счастливый" билет, а точней чёрную метку для себя.
Сегодня как и предполагалось (но гораздо позже) тянули кому что писать и мне выпал srec....
Я в шок ушёл сразу.... Даже без комментариев , столько убил сил на hex, всё как таблицу умножения выучил, разобрался во всём и думал что всё будет отлично. Я srec забросил совсем изучать не до него было.Всё на hex поставил. И такая засада... ребята ржали до слёз, а мне не до смеха , если честно. Вот это залёт, так залёт !!!
При чём hex писать без смещений. А вот srec со смещением обязательно ( edit).
Ботан и так лучший, да и по hex всё благодаря Вам решили, а ему и выпал hex.
Я Джонсу и так и этак, мол пощади, лучше hex ...Джонс не в какую....
Пол группы повезло, так повезло. А остальные попали конкретно.....
Мне к стате, интуиция сразу подсказывала про srec изначально мелькнуло, но мне этот формат не понравился сразу почему то, вот не лежала к нему душа и всё тут.
Вот ирония судьбы.... Сейчас приступил к изучению srec, но как подумаю, что то дурновато становится... Вот такие пироги с котятами !!! Короче попадос полный !!!

[BDA]

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

в редакторе склеил несколько раз

Да, так и правда проще получить нужный размер.

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

Единственный плохой (на мой взгляд) момент, он переводит в hex, всё в одну строку

Предположу, что этот конвертер использует Linux переноc строки (#10), а обычный блокнот не умеет его показывать. Попробуйте открыть такой hex в Notepad++, например.

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

и конверт в ошибку

Это странно. Любой файл ведь можно расценивать как bin при конвертировании в hex.

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

Разве отниманием от определённого значения (константы) нельзя добится того же ?

Не очень понял, что от чего отнимать.

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

Может в edit ограничение поставить в 5, или 7 символов максимально ?

Тогда уж в 8 символов.

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

мне выпал srec

В принципе, отличия минимальные (https://en.wikipedia.org/wiki/SREC_(...SREC_Chart.png). Добавить стандартную шапку "S00600004844521B", вывести весь файл записями S3, добавить запись S5 (хотя HxD не стал ее добавлять, да и запись помечена как опциональная, так что можно не добавлять), завершить стандартной записью конца "S70500000000FA".

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

Проверки должны быть когда знаешь что программа пойдёт в массы.

Безошибочно редко когда получается. Спидраны без глитчей были бы длиннее и скучнее:Как пройти Шрек 2 за 17 минут | Разбор спидрана

[sergey.serg-72]

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

Предположу, что этот конвертер использует Linux переноc строки (#10), а обычный блокнот не умеет его показывать. Попробуйте открыть такой hex в Notepad++, например.

Да вроде про Linux в описании не было, может конечно и так вот файл после конвертера, конвертер этот тоже удалил надорвался на большом файле, при чём горазда меньшем , чем наш конвертер делает + в конвертере не обработана ошибка (что мол большой файл) а вылетает окно системы, что не очень хорошо для профи.
Что бы там не говорили, но пока нашему конвертеру нет альтернативы (редакторы не беру), так что труд то нужный, в инете полно конвертеров, да как показывает практика все в утиль пошли ...
Нельзя всё таки пускать в массы такие сырые проги.

[sergey.serg-72]

Файл

[sergey.serg-72]

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

Это странно. Любой файл ведь можно расценивать как bin при конвертировании в hex.

Расценивать конечно можно, но главное делать надо, а не в ошибку уходить.
Раз ушёл, значит не делает, значит фильтр не обходим, чтоб не вводить в заблуждение.