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

sergey.serg-72 · 15.03.2021, 18:33

Цитата:

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

Осталось удалить offset из объявлений переменных, инициализацию offset нулем и прибавление offset к fbin.Position.

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

Код:

 const
BYTES_IN_LINE = 16;
var
fbin: TMemoryStream;
ftxt: TMemoryStream;
s, data_s: string;
b: TBytes;
i, count,  high_addr, cur_high_addr: integer;
sum: byte;
low_addr: word;
begin
with dlgOpen1 do
begin
Filter := 'Binary file (*.bin)|*.bin';
if Execute then
begin
fbin := TMemoryStream.Create;
ftxt := TMemoryStream.Create;
fbin.LoadFromFile(FileName);
SetLength(b, BYTES_IN_LINE);
high_addr :=0;
while fbin.Position < fbin.Size do
begin
low_addr := fbin.Position ;
cur_high_addr := (fbin.Position ) 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';
ftxt.Write(s[1], Length(s));
dlgSave1.Filter := 'Intel HEX File (*.hex)|*.hex';
dlgSave1.FileName := ChangeFileExt(FileName, '.hex');
if dlgSave1.Execute() then
begin
ftxt.SaveToFile(dlgSave1.FileName);
Application.MessageBox(' HEX  Файл  успешно  записан.', 'Сообщение', MB_Ok + MB_ICONINFORMATION);
end;
fbin.Free;
ftxt.Free;
end;
end;
end;

sergey.serg-72 · 15.03.2021, 20:25

sergey.serg-72,

Сейчас пробую из HEX в bin преобразовать.
Должно быть легче.

Фиг там легче, какая то засада обрезает тоже, другие не берёт ....

Код:

  var
  S: String;
  i,j,C: Integer;
  F: TFileStream;
  ABytes: TBytes;
  ST: TStringList;
begin
 dlgOpen1.Filter := ' (*hex)|*.hex';
if dlgOpen1.Execute then
 begin
  F := TFileStream.Create(ChangeFileExt( dlgOpen1.FileName, '.bin'), fmCreate);
  ST := TStringList.Create;
  ST.LoadFromFile( dlgOpen1.FileName);
  SetLength(ABytes, 0);

  for j := 0 to ST.Count - 1 do
  begin
    S := Copy(ST[j], 10, Length(ST[j])-11);
    C := Length(S) div 2;
    SetLength(ABytes, Length(ABytes) + C);
    for i := 1 to C do
      ABytes[j*C+i-1] := StrToInt('$'+S[i*2-1]+S[i*2]);
  end;
  F.Write(ABytes[0], Length(ABytes));
Application.MessageBox(' Bin  Файл  успешно  записан.', 'Сообщение', MB_Ok + MB_ICONINFORMATION);
  F.Free;
  ST.Free;
end;
end;

BDA · 16.03.2021, 05:54