 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Аналог Truncate для TFileStream 
| Dapo |
|
|||
|
Опытный  Профиль Группа: Участник Сообщений: 417 Регистрация: 18.4.2002 Репутация: нет Всего: 1 |
Как с помощью TFileStream можно обрезать файл, аналогично ф-ии Truncate(F)?
|
|||
|
||||
Загрузка ...
| Dapo |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 417 Регистрация: 18.4.2002 Репутация: нет Всего: 1 |
Неужели никто не знает? Вот подробнее. что я делаю: Для чтения и записи в файл я использую TFileStream, теперь возникла необходимость удаления блока из файла. Алгоритм используется следующий: курсор переводиться на конец удаляемого блока, затем все что после курсора копируется выше на размер удаляемого блока, ну и последнее - файл обрезается на количество байт удаленного блока. Так как обрезать то?
|
|||
|
||||
| Dapo |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 417 Регистрация: 18.4.2002 Репутация: нет Всего: 1 |
Сейчас проблему обхожу так: создаю Temp-файл в который записываются нужные блоки, удаляю старый файл и переименовываю Temp-файл в исходное название.
|
|||
|
||||
| Dapo |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 417 Регистрация: 18.4.2002 Репутация: нет Всего: 1 |
Люди! Никто с файлами не работал что ли? Или только писать и читать приходилось, а удалять из файла нет? Ведь вопрос-то скорее всего пустяковый! Неужели все так тупо и делается? Может в АПИ что-то есть? Как тот-же truncate работает?
|
|||
|
||||
| Перчес_Анонимус |
|
|||
|
Unregistered |
почему бы и не сделать это трункэйтом?
объявляешь переменную file of byte в нужный момент закрываешь ТФайлСтрим <TFileStream>.free дальше - assignFile(<file of byte>,<your filename>); seek(<file of byte>,<int64>); truncate(... блоки, естессно, проще и быстрей сместить Стримом, обрезать - так. ;) |
|||
|
||||
| Dmitry V.Abramov |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 177 Регистрация: 30.9.2003 Где: Saint-Petersburg Репутация: 5 Всего: 4 |
--------------------
/DVA |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0416 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |