Копирование(удаление) произвольного фрагмента из файла > 2ГБ

[A_Ton]

Имею типизированный файл, в записи массив и группа данных к нему. Пока размер исходного файла не превышал 2Гб задача не вызывала проблем. Определял указатели начала и конца фрагмента и копировал в новый файл по необходимости или фрагмент или всё кроме фрагмента. Хотелось бы разобраться как подобную задачу решить для случая если фрагмент находится за пределами 2Гб. Можете подсказать что принципиально меняется?

[GunSmoker]

Ваша вера в наши телепатические способности помогает скорейшему решению вашей проблемы.

Если не понятно: ГДЕ КОД?

Навскидку: использовать TFileStream и позиционироваться через Int64.

[A_Ton]

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

Ваша вера в наши телепатические способности помогает скорейшему решению вашей проблемы.

Если не понятно: ГДЕ КОД?

Навскидку: использовать TFileStream и позиционироваться через Int64.

Я неверующий...
Зачем код? Вопрос ведь задан иначе!
Читаю нормально, правильно позиционируюсь в исходном файле ( Int64 ). Запись не получается!!! Не пойму как правильно писать выбранный из подобных файлов фрагмент!!!
Мне хотелось бы аргументированный типичный базовый пример вполне типичной задачи.
ЗЫ
Денег нет и не требуйте!

[GunSmoker]

Я тогда не понимаю вопроса. Потому что ничего там принципиально не меняется.

В чём проблема-то?

[A_Ton]

>В чём проблема-то?
Запись не осуществляется. Удаётся создать только пустой файл, после некоторого времени работы процедуры вылетаю с этим пустым файлом.

Вот часть кода с удалением фрагмента, удивлён что нет общего решения в Делфях ( мне это кажется странным для типичной задачи ):

Hdc:=CreateFile(PChar(SaveFDlg.File Name),GENERIC_WRITE,0,nil,
CREATE_NEW,FILE_FLAG_WRITE_THROUGH, 0);
If Hdc=0 then Begin
MessageBox(Handle,'Не могу открыть файл для копии!','Ошибка',MB_ICONERROR);
Exit; end;
for i:= 0 to NFrames-1 do begin
if (i>=FrStPos) and (i<=FrEndPos) then continue;
RdKadr(i);
WriteFile(Hdc,RecFile,SizeOf(RecFil e),bytesWritten, nil);
end;
CloseHandle(Hdc);

RdKadr(i) - читает прекрасно RecFile и пусть она Вас не смущает, многократно проверено в том числе и визуально.
Извините, не могу нормально отобразить код на форуме.

[BOBAH13]

Если понял задачу, то проблема в том, что у вас в корне не верный подход. Зачем удалять куски из файла? Разумеется чтобы удалить запись (раз типизированный файл). А почему не пойти другим путем. К примеру, запись будет содержать флаг 0 - удален, 1 - занят. В таком случае, вам стоит всего лишь найти удаляемую запись и переписать всего 1 бит прекрасно ведь, лучше чем 2 гига перегонять по диску. Ну разумеется Вы скажете, а как же размер, таким образом файл будет расти не по дням, а по часам. Так дело в том, что у вас типизированный файл, а значит один и тот же тип / запись одного и того же размера, а следовательно если надо добавить новую запись, ищите запись в файле у которой наш флаг сброшен в 0 (удалена) и пишите на ее место новую запись. Опять такие, запишите всего лишь размер записи, а не 2 гига

[A_Ton]

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

Зачем удалять куски из файла?

Вы поняли правильно. NFrames - количество записей в фале, где-то до 4000.
Границы циклов определяю верно уже неск. лет, можно не сомневаться
Исходный файл является ДОКУМЕНТОМ и редактированию НЕ ПОДЛЕЖИТ!
Кроме того с файлом копией нужного участка девушкам работать легче и быстрее. Хранить и передавать когда их десятки в месяц тоже проще.

[GunSmoker]

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

вылетаю

Подробно поясните, что это значит.

[A_Ton]

>Подробно поясните, что это значит.
Создался пустой файл, программа ещё некоторое время проработала над копированием ( вижу индикацию ) , а затем завершается с ошибкой. Файл остаётся пустым. В том слуае если файл меньше 2ГБ всё проходит нормально.

[DIgorevich]

Если все раньше работало нормально, то не может эта ошибка быть из-за файловой системы? FAT16 (он не поддерживает файлы больше 2 ГБ) вместо FAT32?