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

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

удалить часть файла

file ©   (2006-01-17 14:07:00) 

имею файл, как мне удалить часть его с байта X по байт Y? очень нужно

---

begin...end   (2006-01-18 15:24:00) [1]

> file   (18.01.06 14:21) [9]

> есть ли аналог truncate для tfilestream?

Есть. TFileStream.Size.

---

BiN   (2006-01-18 14:37:00) [2]

> file   (18.01.06 14:21) [9]

[7] работает для всех потомков TStream, и для TFileStream, в частности.

---

file   (2006-01-18 14:21:00) [3]

тады вопрос, есть ли аналог truncate для tfilestream? если нет, то как быть

---

Германн   (2006-01-18 02:50:00) [4]

> file   (17.01.06 20:42) [3]
>
> попробую, но трудоемко, хотелось бы узнать как осуществить
> это именно на файле

Вот "именно на файле" - "просто" невозможно.

---

BiN   (2006-01-17 22:11:00) [5]

Выше в [6] ошибка
Коленка кривая.

нужно так
procedure DeleteStream(Stream, Temp: TStream; Len: Int64);
var
k: Int64;
begin
k:=Stream.Size-Stream.Position;
if Len<k then
begin
  Stream.Seek(Len, soCurrent);
   Temp.CopyFrom(Stream, k-Len);
   Stream.Seek(k, soEnd);
  Stream.CopyFrom(Temp, 0);
end;
Stream.Size:=Stream.Position;
end;


---

BiN   (2006-01-17 22:05:00) [6]

Вроде вот оно. трудоёмкое, блин

procedure DeleteStream(Stream, Temp: TStream; Len: Int64);
var
 k: Int64;
begin
 k:=Stream.Size-Stream.Position;
 if Len<k then
 begin
   Stream.Seek(Len, soCurrent);
   Temp.CopyFrom(Stream, k);
   Stream.Seek(k+Len, soEnd);
   Stream.CopyFrom(Temp, 0);
 end;
 Stream.Size:=Stream.Position;
end;

---

Джо   (2006-01-17 21:21:00) [7]

> [3] file   (17.01.06 20:42)
> попробую, но трудоемко,

Что там трудоемкого? Там кода на 5, максимум 10 строк. Как именно — смотри выше посты коллег по цеху.

---

PAVIA   (2006-01-17 21:19:00) [8]

Открываешь файл копируешь все данные начиная с Y до конца файла в позицию X; затем удаляешь точто ненужно.
procedure Seek(var F; N: Longint); -переходит на позицйию N
procedure Truncate(var F); -удаляет все начитая с текущей позиции

---

file   (2006-01-17 20:42:00) [9]

попробую, но трудоемко, хотелось бы узнать как осуществить это именно на файле

---

Игорь Шевченко   (2006-01-17 14:13:00) [10]

Переписать в новый файл, пропустив часть с Х по Y

---

Ega23   (2006-01-17 14:11:00) [11]

Первое, что пришло в голову - 2 потомка TStream, например TMemoryStream. В один LoadFromfile, пишешь с начала первого до байта X во второй, и с байта Y до конца.
Потом второй - SaveToFile.

---

Наверх