Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.03.2014, 21:17   #91
Семён-2014@
Пользователь
 
Регистрация: 28.01.2014
Сообщений: 37
По умолчанию продолжение

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

Хотелось бы попросить ещё помощи! Есть бинарный файл, в нём надо удалить (Delete)первые 152 байта( с начало файла) и сохранить в туже директорию, из которой был взят файл. Чтоб одной кнопкой открыть, удалить 152 байта и сохранить в бине. Спасибо!
Семён-2014@ вне форума Ответить с цитированием
Старый 29.03.2014, 21:30   #92
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Код:
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;
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 29.03.2014, 22:21   #93
Семён-2014@
Пользователь
 
Регистрация: 28.01.2014
Сообщений: 37
По умолчанию ответ

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

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

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

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

Последний раз редактировалось Семён-2014@; 29.03.2014 в 22:24.
Семён-2014@ вне форума Ответить с цитированием
Старый 29.03.2014, 22:32   #94
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Код:
if opendialog1.execute() then
begin
  f1 := tmemorystream.Create;
  f2 := tfilestream.Create(ChangeFileExt(opendialog1.filename, '.bin'), fmopenwrite or fmcreate);
  f1.LoadFromfile(opendialog1.filename);
...
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 29.03.2014, 23:24   #95
Семён-2014@
Пользователь
 
Регистрация: 28.01.2014
Сообщений: 37
Радость ответ

Цитата:
Сообщение от 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@ вне форума Ответить с цитированием
Старый 29.03.2014, 23:28   #96
Семён-2014@
Пользователь
 
Регистрация: 28.01.2014
Сообщений: 37
По умолчанию продолжение

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

Последний раз редактировалось Семён-2014@; 30.03.2014 в 00:36.
Семён-2014@ вне форума Ответить с цитированием
Старый 19.11.2015, 22:32   #97
Семён-2014@
Пользователь
 
Регистрация: 28.01.2014
Сообщений: 37
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
file->HEX HEX->BIN kakawkin Общие вопросы Delphi 1 25.04.2012 01:02
перевод чисел из hex в bin. ASM. crashmanx Помощь студентам 0 25.12.2011 21:35
Нужно реализовать программу на Дельфи Aizada Помощь студентам 1 16.05.2011 21:45
Перевод BIN -> HEX Piar Помощь студентам 2 20.05.2009 15:44