File tree Expand file tree Collapse file tree 1 file changed +0
-14
lines changed Expand file tree Collapse file tree 1 file changed +0
-14
lines changed Original file line number Diff line number Diff line change 131
131
132
132
#КонецОбласти
133
133
134
- // хитрость: надо выносить в отдельную процедуру,
135
- // а сборку мусора делать в другом кадре стека вызовов.
136
- // иначе сборка ничего не соберет
137
- //
138
- Процедура dllРаспаковать (Знач ФайлРаспаковки , Знач КаталогРаспаковки )
139
-
140
- Распаковщик = Новый ЧтениеФайла8(ФайлРаспаковки);
141
- Распаковщик.ИзвлечьВсе(КаталогРаспаковки, Истина );
142
- Распаковщик.Закрыть();
143
- ОсвободитьОбъект(Распаковщик); // почему-то этого недостаточно. Вопрос к реализации компоненты.
144
- Распаковщик = Неопределено ;
145
-
146
- КонецПроцедуры
147
-
148
134
Процедура РаспаковатьКонтейнерМетаданных (Знач ФайлРаспаковки , Знач КаталогРаспаковки )
149
135
150
136
Распаковщик.Распаковать(ФайлРаспаковки, КаталогРаспаковки);
You can’t perform that action at this time.
0 commit comments