Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как поменять в файле один (или несколько) байт?

Автор: EKoshelev 15.10.2006, 09:17

Интересно как поменять в файле один или несколько байтов.

Можно конечно скопировать исх. файл по байтам и в процессе копирования изменить чё надо. Но это долго. Можно ли сделать это как-нибуть по быстрее?

Автор: volvo877 15.10.2006, 09:20

Какой файл-то?

Если открыть как бестиповый (или File Of Char), то в чем проблема? Seek еще никто вроде не отменял...

Автор: BUGOR 15.10.2006, 13:36

Можно использовать Memory Mapped Files. Тоже быстро получится.

Автор: Snowy 15.10.2006, 15:28

Код


var
  fs: TFileStream;
  s:  string;
begin
  s := #$FF#$AB#$28#$4A; // Например хотим прописать туда байты FF AB 28 4A
  try
    fs := TFileStream.Create('', fmOpenReadWrite or fmShareDenyNone);
    try
      fs.Seek($A200, soBeginning); // прописать в позицию в файле $A200
      fs.Write(s[1], Length(s));
    finally
      fs.Free;
    end;
  except end;
end;

Автор: EKoshelev 15.10.2006, 17:30

Snowy, спасибо брат

Просто я не знал, что всё прогрессивное человечество уже работает с TFileStream.