Вопрос по записи в файл

[denis76560]

Здравствуйте уважаемые форумчане, возникла следующая задача, прочитать файл в память, заменить один байт в нем и сохранить на диск.
Например, имея файл из 4-х байт



Нужно например заменить второй байт на FF
Чтоб получилось так:



Причем находил примеры кода (так называемого патчинга файла) то есть переход по заданному смещению и замена байта в файле на диске, но это не то что мне нужно, так как мне перед этим нужно прочитать файл в память, заменять файл нужно уже именно памяти, только потом уже записывать на диск.

Как это можно сделать программно, прошу Вашей помощи.

[Serge_Bliznykov]

используйте TFileStream

примерно так:

          fs := TFileStream.Create(FileName,   fmOpenReadWrite or fmShareExclusive);
          fs.Position := 1;
          fs.Read(Buf,1);
          if Buf=$32 then begin
            Buf := $FF;
            fs.Position := 1;
            fs.write(Buf,1);
          end;
          fs.Free;

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

ой, простите. я именно это и предложил Вам.

а что значит - прочитать файл в память?

var Buf : array of byte;

так?

ну так прочитайте:

SetLength(Buf, fs.size);
fs.Read(Buf[0], fs.size);

поменять в памяти:

Buf[1] := $FF;

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

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

Смысл какой в этом?

[denis76560]

копнул в сторону TFilestream как вы изначально и предложили, пробовал сделать так

var
Data:  Byte;
i:Integer;
begin
  Data:=$FF;

  fss1:= TFilestream.Create('c:\1.txt', fmOpenRead);

  for i:= 1 to 3 do
  begin
  fss2:= TFilestream.Create('C:\Users\Denis\Desktop\'+inttostr(i)+'.txt', fmCreate);
  fss2.CopyFrom(fss1,fss1.Size);
  fss2.Position:=i;
  fss2.WriteBuffer(Data, 1);
  fss2.Free;
  end;

  fss1.Free;
end;

Но при второй попытке чтения попытке чтения stream (в выделенной строке) происходит ошибка

То есть первый файл 1.txt создается измененный как и положенно а вот дальше программа встает с ошибкой. Ппробовал выносить fss2.Free; за пределы цикла - увы не помогло.

[Аватар]

fss1 позицию в 0 перед копированием?

[denis76560]

Спасибо Вам обоим, разобрался с Вашей помощью =)

[FaTaL]

Но TFileStream это не память. Это файл. Раз хотите именно в памяти, то используйте например TMemoryStream