ZIP - архиватор, внешняя компонента для 1С 7.7
Разработка - Разработка внешних компонент
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Компонента разработана по технологии создания внешних компонент COM в среде Lazarus. Тестировалась на платформе 1С релиза 7.70.027.
В состав компоненты входят 2 объекта (по аналогии с 1С 8.3): Addin.zip_1c и Addin.unzip_1c.
Методы объекта Addin.ZIP_1C:
Открыть( ИмяФайла ) - Создает новый объект архива с заданным именем файла.
Добавить( ИмяФайла, Маска, Подкаталоги ) - Добавляет файл или файлы в список для упаковки в архив.
ПолучитьСписокФайлов( ) - Возвращаемое значение: объект 1С "ТаблицаЗначений", содержащий информацию о файлах в списке для архивирования.
Записать( УровеньСжатия ) - Упаковывает весь сформированный список файлов в ZIP-архив.
Свойства объекта AddIn.ZIP_1C:
ПоследняяОшибка – строка, текст ошибки.
Комментарий – строка, комментарий к файлу архива.
Методы объекта AddIn.UNZIP_1C:
Открыть( ИмяФайла ) - Открывает существующий файл ZIP-архива.
ПолучитьСписокФайлов( ) - Возвращаемое значение: объект 1С "ТаблицаЗначений", содержащий информацию о файлах в архиве.
Извлечь( Каталог, НомерФайла ) - Извлекает из архива указанный файл в указанный каталог.
ИзвлечьВсе( Каталог ) - Извлекает все файлы из архива в указанный каталог.
Свойства объекта AddIn.UNZIP_1C:
ПоследняяОшибка – строка, текст ошибки.
Комментарий – строка, комментарий к файлу архива.
Пример кода:
Если ЗагрузитьВнешнююКомпоненту("zip_1c.dll")=0 тогда
Сообщить("Не удалось загрузить zip_1c.dll");
КонецЕсли;
Процедура Сформировать()
Каталог = "C:\Database 7.7\";
ИмяЗИП = "Бухгалтерия 1C 7.7.zip";
КаталогДляАрхивирования = "Бухгалтерия 1C 7.7\";
zip_1c = СоздатьОбъект("AddIn.zip_1c");
zip_1c.Открыть(Каталог+ИмяЗИП);
zip_1c.Добавить(Каталог+КаталогДляАрхивирования,,1);
zip_1c.Комментарий="Информационная база 1С:Бухгалтерия 7.7";
zip_1c.Записать();
unzip_1C = СоздатьОбъект("AddIn.unzip_1C");
Рез = unzip_1C.Открыть(Каталог+ИмяЗИП);
Если Рез=0 Тогда
Сообщить("Ошибка: "+unzip_1C.ПоследняяОшибка);
КонецЕсли;
ТаблицаЗначенийЗИП = zip_1c.ПолучитьСписокФайлов();
Файлов = ТаблицаЗначенийЗИП.КоличествоСтрок();
Размер = ТаблицаЗначенийЗИП.Итог("РазмерФайла");
РазмерСж = ТаблицаЗначенийЗИП.Итог("РазмерСжатого");
Форма.Заголовок(Каталог+ИмяЗИП);
Форма.ИнфоЗИП.Заголовок("Файлов: "+Файлов+", размер: "+формат(Размер,"Ч, ")+", размер сжатый: "+формат(РазмерСж,"Ч, "));
Комментарий = unzip_1C.Комментарий;
КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт
См. также
10 стартмани
20.03.2026 1720 19 v_peroff 8
1 стартмани
10.06.2025 2820 1 mdbruyfn 0
7320 руб.
19.04.2023 7310 1 0
6100 руб.
27.05.2022 13613 2 20
10 стартмани
06.04.2021 13273 15 softmaker 18
