размер файла > 4Гб в Delphi7

[Сергей Горбач]

Подскажите, может кто нибудь тоже сталкнулся с такой проблемой? Как работать с файлом в Delphi7 стандартными средствами, если его размер более 4Гб. Размер файла выдается неверно через FileSeek() и через FindNext() при поиске.
Пробовал корректировать процедуры системных модулей Delphi, но к положительному результату это так и не привело. У меня Windows XP SP3. Заранее благодарен

[s-andriano]

Самое простое - WinAPI.

PS. Честно говоря, на Делфи не пишу, но сильно подозреваю, что в последних версиях эта проблема решена.

[OCTAGRAM]

У TStream и Size, и Offset в Int64. Для работы с файлами TFileStream

[Stilet]

Пример:

uses   windows,
  SysUtils;
var sr:TSearchRec; c:Cardinal;
begin
 FindFirst('i:\Операционки\Fin.vdi',faAnyFile,sr);
 c:=sr.FindData.nFileSizeHigh*MAXDWORD+sr.FindData.nFileSizeLow;
 writeln(c);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Описание

nFileSizeHigh

Specifies the high-order DWORD value of the file size, in bytes. This value is zero unless the file size is greater than MAXDWORD. The size of the file is equal to (
nFileSizeHigh * MAXDWORD) + nFileSizeLow.

nFileSizeLow

Specifies the low-order DWORD value of the file size, in bytes.

для WIN32_FIND_DATA

[eoln]

Давно имел такую проблему. Можно сразу FindFirstFile и ещё поправка

nFileSizeHigh

The high-order DWORD value of the file size, in bytes.

This value is zero unless the file size is greater than MAXDWORD.

The size of the file is equal to (nFileSizeHigh * (MAXDWORD+1)) + nFileSizeLow.

И тип явно указываем.

uses   windows,
  SysUtils;
var  c:int64;
sr: _WIN32_FIND_DATA;
begin
 FindFirstFile('e:\Virtual\WinXP.vdi',sr);
 c := int64(sr.nFileSizeLow) or (int64(sr.nFileSizeHigh) shl 32);
 writeln(c);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Сергей Горбач]

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

Давно имел такую проблему. Можно сразу FindFirstFile и ещё поправка
И тип явно указываем.

uses   windows,
  SysUtils;
var  c:int64;
sr: _WIN32_FIND_DATA;
begin
 FindFirstFile('e:\Virtual\WinXP.vdi',sr);
 c := int64(sr.nFileSizeLow) or (int64(sr.nFileSizeHigh) shl 32);
 writeln(c);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Так все таки, можно ли каким либо способом прочитать и записать данные из/в файла за пределом 4Gb? За приведенный выше пример СПАСИБО, все работает.

[Serge_Bliznykov]

Так все таки, можно ли каким либо способом прочитать и записать данные из/в файла за пределом 4Gb?

Да. Выше же было сказано - используя TFileStream

[DelhiProgramer]

WinRAR через делфи кажется написан и там нельзя создать архив больше 4гб

[Serge_Bliznykov]

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

WinRAR через делфи кажется написан и там нельзя создать архив больше 4гб

Вы, ИМХО, заблуждаетесь и других "заблудить" пытаетесь.

из офицальной документации на WinRAR (версия 3.93 от 2010)

Ограничения WinRAR


--------------------------------------------------------------------------------


Количество файлов, которое можно добавить в архив, зависит от объёма доступной памяти и длины имён файлов. Для добавления одного файла в архив RAR требуется ориентировочно 128 байт памяти. Например, для архивации одного миллиона файлов необходимо около 128 Мбайт оперативной памяти. WinRAR тестировался в работе с более чем миллионом файлов.

Максимальный размер архива RAR, равно как и любого файла в архиве RAR, практически не ограничен — он составляет 8 эксабайт (что равнозначно 8 589 934 592 Гбайт или 9 223 372 036 854 775 800 байт). Обратите внимание, что создавать архивы размером свыше 4 Гбайт можно только на дисках с файловой системой NTFS, поскольку более старые файловые системы не поддерживают таких объёмных файлов.

Размер архива ZIP, равно как и любого файла в архиве ZIP, не может превышать 2 Гбайт.

В целом архивный формат RAR значительно лучше оптимизирован для решения сложных задач с использованием большого количества файлов и гигабайтных дисковых пространств.

[DelhiProgramer]

Я имел ввиду самораспаковывающийся SFX-архив (или как он там называется)