| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как прочитать файл в буфер , мне нужно файл с прошивкой

af ©   (2002-06-05 18:10:00) 

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

---

Aleks1   (2002-06-06 02:47:00) [1]

Ты глючишь. Считал, изменил, записал в файл. Ну а дальше тут что? И причем здесь программатор? Кстати вещь вообще НЕ ДЕШЕВАЯ?

Имхо, по-моему ты ищешь HEX-Редактор. Их есть у меня, да и у многих других тоже!

---

cyborg   (2002-06-05 23:41:00) [2]


Var
Buf : Pointer;
Size : Integer;
Begin
Size:=Размер файла;
GetMem(Buf,Size);
try
Читаем файл в память по адресу P^.
Изменяем в P^ что угодно.
Пишем в файл из P^ колво Size.
finally
FreeMem(Buf,Size);
End;


Только смотри что-бы памяти хватило :-)

---

ah   (2002-06-05 20:28:00) [3]

ну ладно, вроде понятно , ну а если предварительно мне нужно изменить формат, т.е. не сразу скопировать , а с изменениями ..

---

Romkin   (2002-06-05 18:48:00) [4]

Ну что-то вроде

i: integer;

AStream := TFileStream.Create(<FileName>);
i:= 10;
try
AStream.Position := 0;
AStream2 := TFileStream.Create(<NewFileName>);
try
AStream2.CopyFrom(AStream, AStream.Size);
AStream2.Seek(10, soFromBeginning);
AStream2.Write(i, SizeOf(Integer));
finally
AStream2.Free;
end;
finally
AStream.Free;
end;


---

Наверх