Удаление n-байт из позиции m в TFileStream

[Anton911]

Всем привет, в общем вопрос такой.
В FileStream загружен файл 900 мб, я перемещаюсь в позицию 3000, как удалить/вырезать с 3001 до 5000 байт?

[FaTaL]

Создать TMemoryStream, загрузить в него с 0 по 3000 байт и с 5001 до конца. Освободить TFileStream.Free и сохранить на его место TMemoryStream.SaveToFile

[Anton911]

Пишет ошибку Out of memory

[FaTaL]

Значит что-то не так делаете. Давайте свой код.

[Anton911]

var ImgArhStream:TFileStream;
const
  ArhBlockCount=2048; //Размер одного блока (байт)
  MaxBlock=480768; //Максимум блоков

procedure RemoveFile(Index:integer);
  var
  StrangeIndex:integer;
  TempChr:array[1..ArhBlockCount] of AnsiChar;
  BlockIndex:integer;
  sMemory:TMemoryStream;
  Strange,Offset:DWORD;
begin
Strange:=Files[Index].FileStrange;
Offset:=Files[Index].FileOffset;
ImgArhStream.Position:=ArhBlockCount*Offset; //Смещение измеряется в блоках (1 блок=2048 байт)
sMemory:=TMemoryStream.Create;
ImgArhStream.position:=0; //Устанавливаем позицию на начало
    for BlockIndex := 0 to Offset-1 do от нуля до смещения (измеряется в блоках 2048 байт)
      begin
      ImgArhStream.Read(TempChr,ArhBlockCount); //Записываем в TempChr 2048 байт
      sMemory.Write(TempChr,ArhBlockCount); //Записываем в память 2048 байт
      end;
ImgArhStream.position:=(Offset+Strange+1)*ArhBlockCount; //Устанавливаем позицию на следующий блок после блока Смещение+Размер файла
  for BlockIndex := Offset+Strange+1 to MaxBlock do
    Begin
    ImgArhStream.Read(TempChr,ArhBlockCount);
    sMemory.Write(TempChr,ArhBlockCount);
    End;
ImgArhStream.Free;
sMemory.SaveToFile(Form1.Edit_PathToImg.Text);
sMemory.Free;
ImgArhStream:=TFileStream.Create(Form1.Edit_PathToImg.Text, fmOpenReadWrite);
end;

Инициализация и освобождение ImgArhStream в процедуре которая вызывает эту процедуру.

[chertovich]

Сообщение от Anton911

Всем привет, в общем вопрос такой.
В FileStream загружен файл 900 мб, я перемещаюсь в позицию 3000, как удалить/вырезать с 3001 до 5000 байт?

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

[Аватар]

Файл вообще-то достаточно большой. Лучше результат тоже в TFileStream, а потом исходный файл удалять, а вновь полученный переименовывать

[Anton911]

Я вот эксперементировал, до 850 мб он нормально записывал, а если больше 850 то out of memory. Чтож Придется через второй FileStream. Спасибо всем за ответы, всем +

[3D Hunter]

А знаешь почему так? Скорей всего памяти оперативной у тебя 2 гб стоит и Win7, либо 1 гб и WinXP. Памяти не хватает на большие объемы, вот и получаем AV.