Программно заархивировать файл

9 г. назад

#0 aigar
28.07.2015 07:54:51

Приветствую. Помогите пожалуйста программно за архивировать файл, а потом и распаковать. Нужно все это реализовать в 1С 7.7

#1 1Сергей

28.07.2015 08:03:27

глянь пример с использованием DialMail.dll

//***************************
Функция ЗаархивироватьДанные() 
    
    ЗагрузитьВнешнююКомпоненту("DialMail.dll");
    
    ZIP = СоздатьОбъект("AddIn.ZIP");
    
    Если ФС.СуществуетФайл(РабочийКаталог) = 0 тогда
        ФС.СоздатьКаталог(РабочийКаталог);
    КонецЕсли;
    
    ZIP.КаталогДобавления = РабочийКаталог;

    МаскаФайлов = "*.dbf";
    МаскаПерФайлов = "*.per";
    МаскаЛогФайлов = "log_*.txt";
    
    ИмяФайла = СписокНастроек.Получить("ИмяФайлаНутриция");
    Если ПустоеЗначение(ИмяФайла)=1 Тогда
        ИмяФайла = ТекущийГород;
    КонецЕсли;
    
    ПолныйПутьКАрхиву = ПолучитьПолноеИмяФайла(РабочийКаталог, ИмяФайла + ".zip");
    ZIP.ДобавитьВАрхив( , МаскаФайлов, ПолныйПутьКАрхиву);
    ZIP.ДобавитьВАрхив( , МаскаПерФайлов, ПолныйПутьКАрхиву);
    ZIP.ДобавитьВАрхив( , МаскаЛогФайлов, ПолныйПутьКАрхиву);
    
    Если ZIP.КодОшибки = 0 Тогда
        
        ИскомыйФайл = ФС.НайтиПервыйФайл(ПолучитьПолноеИмяФайла(РабочийКаталог, МаскаФайлов));
        Пока ПустоеЗначение(ИскомыйФайл) = 0 Цикл
            
            ФС.УдалитьФайл(ИскомыйФайл);
            ИскомыйФайл = ФС.НайтиСледующийФайл();
            
        КонецЦикла;
        
        ИскомыйФайл = ФС.НайтиПервыйФайл(ПолучитьПолноеИмяФайла(РабочийКаталог, МаскаПерФайлов));
        Пока ПустоеЗначение(ИскомыйФайл) = 0 Цикл
            
            ФС.УдалитьФайл(ИскомыйФайл);
            ИскомыйФайл = ФС.НайтиСледующийФайл();
            
        КонецЦикла;
        
        ВЛогФайл("Архив сохранен в каталоге " + ПолныйПутьКАрхиву);
        
        Возврат  ПолныйПутьКАрхиву;
        
    Иначе
        
        ВЛогФайл("Ошибка работы с архивами: код "+ZIP.КодОшибки+": "+ZIP.КодОшибкиСтр);
        Возврат "";
        
    КонецЕсли;
    
КонецФункции

andrewks

#2 andrewks
28.07.2015 08:11:11

также можно посмотреть в 1с++
BinaryData:PkZip
http://www.1cpp.ru/docum/icpp/html/BinaryData.html

#3 andrewks

28.07.2015 08:14:20

пример:

Функция УпаковатьФайл(ИмяФайла,ИмяВыхФайла)
    
    КоротИмяФайла=ФС.НайтиПервыйФайл(ИмяФайла);
    Если ПустоеЗначение(КоротИмяФайла)=1 Тогда
        Сообщить("Не найден файл "+ИмяФайла,"!");
        Возврат 0;
    КонецЕсли;
    ИмяКат=Лев(ИмяФайла,СтрДлина(ИмяФайла)-СтрДлина(КоротИмяФайла));
    
    Попытка
        BinData=СоздатьОбъект("BinaryData");
    Исключение
        ТекстОшибки=ОписаниеОшибки();
        Сообщить("Не удалось создать объект BinaryData","!");
        Сообщить("Описание ошибки: "+ТекстОшибки,"!");
        Возврат 0;
    КонецПопытки;
    
    Попытка
        
        ФС.УстТекКаталог(ИмяКат);
        BinData.pkZip(""""+ИмяВыхФайла+""" """+КоротИмяФайла+"""");
        BinData.Закрыть();
        
    Исключение
        ТекстОшибки=ОписаниеОшибки();
        Сообщить("Произошла ошибка при упаковке файла!","!");
        Сообщить("Описание ошибки: "+ТекстОшибки,"!");
        Возврат 0;
    КонецПопытки;
    Возврат 1;
КонецФункции

#4 aigar
28.07.2015 08:38:54

Не удалось создать объект BinaryData
Описание ошибки: Неудачная попытка создания объекта (BinaryData)
Произошла ошибка при упаковке файла!
Описание ошибки: Значение не представляет агрегатный объект (pkZip)

Ответы: (5)
#5 andrewks
28.07.2015 08:45:21

(4) 1cpp.dll нужен
#6 Guk
28.07.2015 09:02:45

помню, архивировал/разархивировал в 77 без всяких ВК с помощью батника...

Ответы: (7)
#7 1Сергей
28.07.2015 09:04:03

(6) вспомника, на какой венде это было и в какой архивчик

Ответы: (8)
#8 Guk
28.07.2015 09:06:14

(7) вроде как на 98-й или 2000-й серверной. архивчик арж. но можно и рар...

Ответы: (9)
#9 1Сергей
28.07.2015 09:42:47

(8) без архиватора? не верю

Ответы: (10) (11)
#10 Идун
28.07.2015 09:52:10

28.07.2015 09:52:58 отредактировано Идун

(9) Верь.
Архив="c:\scripts\Моя новая папка.zip";
Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.language="javascript";
ФСО=СоздатьОбъект("scripting.filesystemobject");
Файл=ФСО.opentextfile(Архив,2,-1);
Скрипт.AddObject("Файл",Файл);
Скрипт.Eval("Файл.write(String.fromCharCode(80,75,5,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0))");
Файл.Close();
Шел=СоздатьОбъект("shell.application");
Папка=Шел.namespace(Архив);
Папка.copyhere("c:\Temp");
Стр="Создаем архив - "+Архив;
Пока (ВвестиСтроку(Стр,Стр,СтрДлина(Стр),0,1)<>0) и (ФС.СуществуетФайл(Архив)=0) Цикл
КонецЦикла;

Ответы: (12)
#11 Guk
28.07.2015 09:54:12

(9) ху из без архиватора? я же написал, использовался арж...
#12 1Сергей
28.07.2015 11:06:08

(10) ещё раз, но теперь в arj и на 98-ой венде

Ответы: (13)
#13 Guk
28.07.2015 15:46:25

(12) а в чем проблема-то? или последние винды не умеют досовские команды в цмд обрабатывать?...