Что-то на кодил. Сохранение изменний. Не работает подключение DLL в контексте exe

Author: khorevaa

bin/v8unpack/v8unpack.exe

@@ -0,0 +1,48 @@
+#Использовать "../../bindata"
+#Использовать logos
+
+Перем КомпонентаГотова;
+Перем Лог;
+Перем ПутьКФайлу;
+
+// Производит распаковку формы .bin
+//
+// Параметры:
+//   ПутьКФайлуФормы - Строка - Путь к файлу form.bin
+//   ПутьККаталогуФормы - Строка - Путь к каталогу распаковки
+//
+Процедура Распаковать(Знач ПутьКФайлуФормы, Знач ПутьККаталогуФормы) Экспорт
+	
+	Если Не КомпонентаГотова Тогда
+		ПодготовитьКомпоненту();
+	КонецЕсли;
+
+	dllРаспаковать(ПутьКФайлуФормы, ПутьККаталогуФормы);
+
+КонецПроцедуры
+
+Процедура ПриСозданииОбъекта()
+	КомпонентаГотова = Ложь;
+КонецПроцедуры
+
+Процедура dllРаспаковать(Знач ФайлРаспаковки, Знач КаталогРаспаковки)
+		
+	Распаковщик = Новый ЧтениеФайла8(ФайлРаспаковки);
+	Распаковщик.ИзвлечьВсе(КаталогРаспаковки, Истина);
+	
+КонецПроцедуры
+
+Процедура ПодготовитьКомпоненту()
+	
+	ЗагрузчикДвоичныхДанных = Новый ЗагрузчикЗапакованныхФайловGitsyncPlugins;
+	ПутьКФайлу = ЗагрузчикДвоичныхДанных.ПолучитьПутьКФайлу("v8unpack.dll");
+	//Лог.Отладка("Выполняю подключение <v8unpack.dll> из файла <%1>", ПутьКФайлу);
+	ПодключитьВнешнююКомпоненту(ПутьКФайлу);
+	КомпонентаГотова = Истина;
+
+КонецПроцедуры
+
+//Лог = Логирование.ПолучитьЛог("oscript.lib.gitsync.plugins.unpackForm");
+
+
+

bin/v8unpack/zlib1.dll

@@ -108,11 +108,6 @@
 	СписокФайлов = НайтиФайлы(КаталогВыгрузки, "Form.bin", Истина);
 	Лог.Отладка("Найдено файлов form.bin: <%1> шт.", СписокФайлов.Количество());
 
-	Если СписокФайлов.Количество() > 0 Тогда
-		Загрузчик_v8unpack = Новый Загрузчик_v8unpack;
-		Загрузчик_v8unpack.ВыполнитьЗагрузку();
-	КонецЕсли;
-
 	Для Каждого ФайлФормы Из СписокФайлов Цикл
 
 		НовыйКаталог = Новый Файл(ФайлФормы.Путь);
@@ -128,22 +123,10 @@
 
 #КонецОбласти
 
-// хитрость: надо выносить в отдельную процедуру, 
-// а сборку мусора делать в другом кадре стека вызовов.
-// иначе сборка ничего не соберет
-//
-Процедура dllРаспаковать(Знач ФайлРаспаковки, Знач КаталогРаспаковки)
-		
-	Распаковщик = Новый ЧтениеФайла8(ФайлРаспаковки);
-	Распаковщик.ИзвлечьВсе(КаталогРаспаковки, Истина);
-	ОсвободитьОбъект(Распаковщик); // почему-то этого недостаточно. Вопрос к реализации компоненты.
-	Распаковщик = Неопределено;
-	
-КонецПроцедуры
-
 Процедура РаспаковатьКонтейнерМетаданных(Знач ФайлРаспаковки, Знач КаталогРаспаковки)
 
-	dllРаспаковать(ФайлРаспаковки, КаталогРаспаковки);
+	РаспаковщикФорм = Новый РаспаковкаФорм;
+	РаспаковщикФорм.Распаковать(ФайлРаспаковки, КаталогРаспаковки);
 	ВыполнитьСборкуМусора(); // см. камент к процедуре dllРаспаковать
 
 	Если ВыполнятьПереименованиеModule Тогда