Считать большой файл частями

← →
Tapok (2005-11-24 09:27) [0]

Зравствуйте. Я пишу программу, которая упаковывает несколько файлов в один (что то типа архиватора).
Для расчета размера буфера, в который будет прочитан файл я использую такую функцию
function GetFileBufferSize(DriveName: String; SizeOfFile: Int64): LongWord; var MemStatus: MEMORYSTATUS; SPerClr,BytesPerSector, NumOfFreeClrs,TtlNumOfClrs: LongWord; begin Result := 0; MemStatus.dwLength := SizeOf(MemStatus); GlobalMemoryStatus(MemStatus); //если размер файла превышает доступную физ.память div 2 if SizeOfFile >= (MemStatus.dwAvailPhys div 2) then begin GetDiskFreeSpace(PChar(DriveName),SPerClr, BytesPerSector,NumOfFreeClrs,TtlNumOfClrs); Result := BytesPerSector; // размер буфера равен размеру кластера end else Result := SizeOfFile; // или размеру файла end;
Дальше файл читается и записывается в архив

while not EOF(F) do
beign
BlockRead(..
BlockWrite(..
end;
С небольшими файлами не возникает проблем, а при чтении больших иногда выскакивает EInOutError.
Можно было бы читать и записывать по одному байту, но это дико медлено...
Подскажите как правильно рассчитать размер буфера для файла?

← →
umbra © (2005-11-24 11:19) [1]

зачем по байту? лучше установить размер буфера кратный размеру страницы памяти (4096 байт). А то если читать покластерно, а файловая система система NTFS, то получится чтение по 512 байт, а в памяти все равно будет занимать страницу

Считать большой файл частями Найти похожие ветки