Работа с файлами форматов bin, Hex, на языке Pascal Дельфи-7, реализовать программу.

[Семён-2014@]

Добрый вечер участникам форума!

Хотелось бы попросить ещё помощи! Есть бинарный файл, в нём надо удалить (Delete)первые 152 байта( с начало файла) и сохранить в туже директорию, из которой был взят файл. Чтоб одной кнопкой открыть, удалить 152 байта и сохранить в бине. Спасибо!

[BDA]

var
  f1: tmemorystream;
  f2: tfilestream;
begin
  f1 := tmemorystream.Create;
  f2 := tfilestream.Create('2.bin', fmopenwrite or fmcreate);
  f1.LoadFromfile('1.bin');
  f1.Position := 152;
  f2.CopyFrom(f1, f1.Size - 152);
  f1.Free;
  f2.Free;
end;

[Семён-2014@]

Я наверное не так чуток выразился. Есть файл формата .e2p(это тот же бин, но впереди файла 152 байта надстройки оборудования, по этому его так обзывают) их надо вырезать(удалить) , они лишние и сохранить файл уже в чистом бине, туда, от куда он был взят, он может быть и на диске с и D,F,G.... Да и ещё чтоб на выходе сохранял название файла, какое при загрузки было.

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

Cannot open file ''D:\ .e2p''. не удаётся найти указанный файл.

И кидает на эту строку:
f1.Position := 152;

[BDA]

if opendialog1.execute() then
begin
  f1 := tmemorystream.Create;
  f2 := tfilestream.Create(ChangeFileExt(opendialog1.filename, '.bin'), fmopenwrite or fmcreate);
  f1.LoadFromfile(opendialog1.filename);
...

[Семён-2014@]

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

if opendialog1.execute() then
begin
  f1 := tmemorystream.Create;
  f2 := tfilestream.Create(ChangeFileExt(opendialog1.filename, '.bin'), fmopenwrite or fmcreate);
  f1.LoadFromfile(opendialog1.filename);
...

BDA огромное спасибо! то что доктор прописал!

[Семён-2014@]

А ещё можно спросить? как реализовать , такую операцию как SwapByte, eep, в Bin это перестановка байтов. В редакторе выделяется файл, и жмётся это функция и байты переставляются, а как в программке реализовать эту функцию?

[Семён-2014@]

[QUOTE=Семён-2014;1329399]Вот мы с Вами коллеги оказывается , только я по крупному быту.
Вот поэтому и занялся программированием чтоб необходимые для работы программки писать. В прошивах основная беда, это контрольная сумма, хранящаяся в ней, какие то изменения прописались и всё прошива не работоспасобная, требуется исправление, или замена. А вот как эту сумму вычислить? вот тут та и главная проблема, либо если знаеш где неправильные данные прописались и в редакторе правиш, либо новую, но согласен достать новую тоже проблема. Поэтому стараюсь с рабочих доноров считывать в базу и держать, когда нет какой то на помощь форумчан, другого здесь не дано. Процесс постоянный, производители всегда меняют адресса и данные, от линейки, к линейки, это не сконьчаемая борьба....