Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.18;
Скачать: CL | DM;

Вниз

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

 
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 байт, а в памяти все равно будет занимать страницу



Страницы: 1 вся ветка

Текущий архив: 2005.12.18;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.011 c
4-1129391237
Tristania
2005-10-15 19:47
2005.12.18
Работа с винчестером напрямую


14-1133254949
Mike Kouzmine
2005-11-29 12:02
2005.12.18
Проблема с WinXP Prof.


6-1125919503
ДимДимыч
2005-09-05 15:25
2005.12.18
TIdTCPServer &amp; TIdTCPClient <OnDisconnect>


6-1126098097
Signate
2005-09-07 17:01
2005.12.18
Indy 10 vs Indy 9


14-1132911097
Koala
2005-11-25 12:31
2005.12.18
Срочно!!! Нужна помощь в востановлении данных....





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский