Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как изменить определенный байт в файле [D5, D6, D7, WinXP]

wipr © (2006-08-11 21:16:00)
Имею файл 10Мбайт, может быть и больше. Необходимо например изменить только к примеру 28 байт.
Я открывал 2 файла и писал байты из одного в другой при этом заменял необходимый байт. Ото допустимо с маленькими файлами. С большими это неудобно.
Можно ли это сделать не перибирая все байты. Если это возможно, то подскажите как это делается. Был бы рад кусочку кода.

wipr (2006-08-11 21:58:00) [1]
Большое спасибо. Все получилось.

begin...end (2006-08-11 21:38:00) [2]
> wipr (11.08.06 21:32) [4]

Параметры этих функций описаны в справке.

В FileSeek 28 -- число байтов, на которое нужно сместить указатель внутри файла, а 0 указывает "отправную точку" для смещения -- от начала файла. В FileWrite B -- это переменная, содержимое которой нужно записать в файл (в данном случае это Byte, ведь нужно изменить 1 байт), а sizeof(B) указывает, сколько байтов из памяти нужно записать в файл (1 байт).

wipr (2006-08-11 21:32:00) [3]
Большое спасибо. Кажется то что надо. Но не могли бы Вы уточнить
в FileSeek(hF, 28, 0);
что собой представляет 28, а что 0
в FileWrite(hF, B, sizeof(B))
что собой представляет B, а что sizeof(B)

begin...end (2006-08-11 21:28:00) [4]
Для одного байта можно и так (здесь байты в файле считаются с нуля):

var
hF: Integer;
B: Byte;
begin
B := ...;
hF := FileOpen('C:\MyFile.txt', fmOpenWrite);
if hF > -1 then
try
FileSeek(hF, 28, 0);
FileWrite(hF, B, sizeof(B))
finally
FileClose(hF)
end
end.

wipr (2006-08-11 21:21:00) [5]
Для меня это ново. Если можно поподробнее.

Чапаев (2006-08-11 21:19:00) [6]
Смотри в сторону file mapping. Работаешь с файлом как с обычным массивом в оперативке.

Наверх

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