Релизовано порционное чтение-запись файлов при распаковке EFD (#64)

Co-authored-by: vkislitsin <vvkislitsin@gmail.com>

Author: vkislitsin

src/Модули/Распаковщик.os

@@ -526,17 +526,23 @@
 //
 Процедура ЗаписатьФайл(Поток, Знач ОписаниеФайла, Знач КаталогРаспаковки)
 
+	ПутьКФайлу = ОбъединитьПути(КаталогРаспаковки, ОписаниеФайла.Имя);
+	ОбеспечитьКаталог(ПутьКФайлу, Истина);
+
 	Чтение = Новый ЧтениеДанных(Поток);
 	Чтение.Пропустить(ОписаниеФайла.Смещение);
-	БуферДанные = Чтение.ПрочитатьВБуферДвоичныхДанных(ОписаниеФайла.Размер);
-	Чтение.Закрыть();
+	ЗаписьДанных = Новый ЗаписьДанных(ПутьКФайлу);
 
-	ПутьКФайлу = ОбъединитьПути(КаталогРаспаковки, ОписаниеФайла.Имя);
+	ПорцияДанных = 10 * 1024 * 1024; // 10 Мб
+	Остаток = ОписаниеФайла.Размер;
 
-	ОбеспечитьКаталог(ПутьКФайлу, Истина);
+	Пока Остаток > 0 Цикл
+		БуферДанные = Чтение.ПрочитатьВБуферДвоичныхДанных(Мин(Остаток, ПорцияДанных));
+		ЗаписьДанных.ЗаписатьБуферДвоичныхДанных(БуферДанные);
+		Остаток = Остаток - ПорцияДанных;
+	КонецЦикла;
 
-	ЗаписьДанных = Новый ЗаписьДанных(ПутьКФайлу);
-	ЗаписьДанных.ЗаписатьБуферДвоичныхДанных(БуферДанные);
+	Чтение.Закрыть();
 	ЗаписьДанных.Закрыть();
 
 	Лог.Информация(СтрШаблон("Записан файл %1", ПутьКФайлу));