Интеграция Unrar.dll для распаковки RAR архивов

    
Попытка                                                                          // Подгружаем обертку Dynwrap.dll которая будет дергать методы из UnRAR.dll
    Wrapper = Новый COMОбъект("DynamicWrapperX");                                // Напрямую UnRAR.dll неполучается подгрузить, не СОМ-обьект она 
    Wrapper.Register("unrar.dll", "RAROpenArchive", "i=puupuuu", "f=s", "r=h");    // дергаем метод RAROpenArchive, с ключами толком неразобрался, но вроде работает
Исключение
    Сообщить("Ошибка загрузки Unrar.dll и\или Dynwrap.dll");
КонецПопытки; 
 
ArchiveData = Новый Структура;    // структура которая должна бы передаваться в RAROpenArchive (что-то не заработало)
    ArchiveData.Вставить("ArcName", "C:\test.rar");
    ArchiveData.Вставить("OpenMode", 1);
    ArchiveData.Вставить("OpenResult", 0);
    ArchiveData.Вставить("CmtBuf", "test");
    ArchiveData.Вставить("CmtBufSize", 5);
    ArchiveData.Вставить("CmtSize", 6);
    ArchiveData.Вставить("CmtState", 7);
 
Для Каждого Элемент Из ArchiveData Цикл                          //сделал для проверки что в структуре
        Сообщить(Элемент.Ключ + " " + Элемент.Значение);
КонецЦикла;
    
 
hRAR = Wrapper.RAROpenArchive("C:\test.rar", 1, 3, "c", 0, 0, 0); // пробую без структуры подгрузить библиотеку с сылкой на существующий файл
 
Сообщить (hRAR); //выдает 0 - что судя по всему ошибка

    Wrapper.Register("user32.dll", "FlashWindow", "i=ll", "r=l");              //пример: мигнуть окном "Калькулятор"
    Wrapper.Register("user32.dll", "FindWindow", "i=ls", "r=l");
    hWind = Wrapper.FindWindow(0, "Калькулятор");
    Wrapper.FlashWindow(hWind, 1);
 
    text = "текст32";
    DX = Новый COMОбъект("DynamicWrapperX");                                    //пример: MessageBoxA
    DX.Register ("user32.dll", "MessageBoxA", "i=hpsl", "r=l" );
    DX.MessageBoxA(0, text, "Заголовок", 16);

// открытие файла MS Excel
ЗапуститьПриложение("Таблица.xls");

Попытка                                                                         // Подгружаем обертку Dynwrap.dll которая будет дергать методы из UnRAR.dll
    Wrapper = Новый COMОбъект("DynamicWrapperX");                               // Напрямую UnRAR.dll неполучается подгрузить, не СОМ-обьект она 
    Wrapper.Register("unrar.dll", "RAROpenArchive", "i=puupuuu", "f=s", "r=h");    // дергаем метод RAROpenArchive, с ключами толком неразобрался, но вроде работает
Исключение
    Сообщить("Ошибка загрузки Unrar.dll и\или Dynwrap.dll");
КонецПопытки; 
 
hRAR = 0;
 
Результаты = Новый Соответствие;
 
Результаты.Вставить(0,"Архив успешно был открыт");
Результаты.Вставить("ERAR_NO_MEMORY","Для инициализации структур не хватило памяти");
Результаты.Вставить("ERAR_BAD_DATA", "Испорчен заголовок архива");
Результаты.Вставить("ERAR_BAD_ARCHIVE","Файл не является архивом RAR");
Результаты.Вставить("ERAR_EOPEN","Ошибка открытия файла. Либо имя указано неверно, либо путь, либо одно из двух.");
 
     
Wrapper.RAROpenArchive("C:\test.rar", 1, hRAR, "c", 0, 0, 0); // пробую без структуры подгрузить библиотеку с сылкой на существующий файл
 
Сообщить (Результаты[hRAR]); //выдает 0 - что судя по всему ошибка
Сообщить (hRAR);