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

[A_Ton]

>(Выругался трёхэтажным матом) КАКОЙ ошибкой?
External Exception C0000017, эт при прогоне проги в среде Д7.

[GunSmoker]

Ну вот. C0000017 - это Out of memory.

С этой информацией с хорошей вероятностью можно предположить, что проблема в вашей RdKadr.

[GunSmoker]

На всякий случай уточню: вы в курсе, что такое адресное пространство процесса и чему оно равно для 32-х разрядного процесса?

[A_Ton]

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

Ну вот. C0000017 - это Out of memory.

С этой информацией с хорошей вероятностью можно предположить, что проблема в вашей RdKadr.

В этом что-то есть. Если я имитирую копирование фрагмента копированием только 1 фрейма из области до 2Гб то файл наполняется нормально. Но если этот опыт повторить для такого же 1 фрейма из области за 2Гб то через некоторое время вылетаю.
Процедура RdKadr от профи, при чтении пашет без проблем... Буфер содержит не только запись?
Вот код ReadKadr:
----------------------
function FileSeek(Handle: Integer; const Offset: Int64; Origin: Integer): Int64;
begin
{$R-} Result := Offset;
Int64Rec(Result).Lo := SetFilePointer(THandle(Handle), Int64Rec(Result).Lo,
@Int64Rec(Result).Hi, Origin); {$R+} end;
----------------------
procedure RdKadr(Pos: Integer);
begin
try DatErr:=False;
FileSeek(Hd,Int64(Pos) * Int64(SizeOf(TRecInFile)),0);
FileRead(Hd,RecFile,SizeOf(TRecInFi le));
except DatErr:=True; { ShowMessage('Ошибка чтения файла видео!'); } end; end;

[GunSmoker]

В вашем коде, в вызовах CreateFile, WriteFile, CloseHandle нет ничего, что могло бы приводить к такой ошибке. Вывод? Проблема в коде, который вы не показали: RdKadr.

Процедура RdKadr от профи

Какое это имеет значение? Он мог действовать в иных предположениях, нежели вы.

Вот код ReadKadr:

Я не вижу здесь никакой ReadKadr. Я вижу здесь куски несвязного кода.

[A_Ton]

>Он мог действовать в иных предположениях,
Нет, из его примера чтения файлов.
>Я вижу здесь куски несвязного кода.
Не горячитесь. ReadKadr использует функцию позиционирования и я её привёл вверху.
Позиционирование/чтение из ReadKadr под функцией. Остальные детали только затруднят.
Pos - то самое i в вызове ReadKadr(i);

[eoln]

Если из приведённых кусков ничего не добавляя (кроме переменных и пары строк на открытие/закрытие файла...) слепить всё это дело, то это дело нормально работает - проверил на файле 2,7 ГБ. Так что проверяем по F8 на какую строчку ругается, либо нормальный код показываем.

[A_Ton]

>либо нормальный код показываем
Код показан. Нечего добавить. Вы проверяли с каким размером записи? Может в этом дело?
Есть еще подозрение, что проблема возникает при переходе через 2Гб рубеж. Т.е если выбранный фрагмент этот рубеж не включает то всё нормально.

>F8
Не реально.

[GunSmoker]

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

Остальные детали только затруднят.

Проблема сидит в остальных деталях. Вы ещё не поняли? С хорошей долей вероятности, проблема у вас вовсе не в файле, а в выделении памяти. Файл вообще не причём.

[A_Ton]

>Есть еще подозрение, что проблема возникает при переходе через 2Гб рубеж. Т.е если выбранный фрагмент этот рубеж не включает то всё нормально.
Проверил это предположение. Действительно если я оставляю только фрагмент находящийся ЗА(ДО) ПРЕДЕЛАМИ 2Гб то всё НОРМАЛЬНО. у меня это примерно после(ДО) 2100 записей. В случае если граница попадает в область копирования - вылетаю...
Поясняю.
1. Удаляю область включающую границу, т.е. копирую то что за пределами 2Гб - норма.
2. Удаляю область включающую границу, но копирую то что до 2ГБ - пишет в файл, но завершается с ошибкой.
3. Удаляю область НЕ включающую границу, т.е. копирую то что до и за пределами 2Гб - создается файл 0 размера и вылетаю.
И чего теперь делать?