Comconnector ошибка инициализации библиотеки модулей

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Функция ПолучитьПодключениеКСервернойБД()
     Сервер = "server";
     ИмяБазы = "copy_baza";
     Пользователь = "Админ";
     Пароль = "1c";
     
     Параметры = "srvr=""" + Сервер + """; ref=""" + ИмяБазы + """; usr=""" + Пользователь + """; pwd=""" + Пароль + """;";
     V8 = Новый COMОбъект("V83.COMConnector");
     Попытка
         Base1С = V8.Connect(Параметры);
     Исключение
         Предупреждение ("Ошибка подключения!");
     КонецПопытки;
     
КонецФункции

1
2
3
4
5

Попытка
         Base1С = V8.Connect(Параметры);
     Исключение
         Сообщить(ОписаниеОшибки());
     КонецПопытки;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

Перем глОбщиеЗначения Экспорт;
 
Перем глТекущийПользователь Экспорт;
 
///////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ ЗАВЕРШЕНИЯ РАБОТЫ ПОЛЬЗОВАТЕЛЕЙ И ОБРАБОТКИ ПАРАМЕТРОВ
 
// Процедура выполняется при старте системы во внешнем сосединении
//
Процедура ПриНачалеРаботыСистемы()
        
    ПользовательОпределен = Ложь;
    ОписаниеОшибкиОпределенияПользователя = "";
    Если Не ЗначениеЗаполнено(ПараметрыСеанса.ТекущийПользователь) Тогда
        Если УправлениеПользователями.ОпределитьТекущегоПользователя(ОписаниеОшибкиОпределенияПользователя) Тогда
            ПользовательОпределен = ЗначениеЗаполнено(ПараметрыСеанса.ТекущийПользователь);
        КонецЕсли;
    Иначе
        ПользовательОпределен = Истина;
    КонецЕсли;
    
    Если Не ПользовательОпределен Тогда
        Если ПустаяСтрока(ОписаниеОшибкиОпределенияПользователя) Тогда
            ОписаниеОшибкиОпределенияПользователя = "Ошибка идентификации пользователя. Обратитесь к администратору";
        КонецЕсли;
        ВызватьИсключение ОписаниеОшибкиОпределенияПользователя;
    КонецЕсли;
    
    глТекущийПользователь = ПараметрыСеанса.ТекущийПользователь;
 
КонецПроцедуры //ПриНачалеРаботыСистемы()
 
///////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ ЗАПОЛНЕНИЯ ПАРАМЕТРОВ СЕАНСА
 
Функция глЗначениеПеременной(Имя) Экспорт
    
    Возврат ОбщегоНазначения.ПолучитьЗначениеПеременной(Имя, глОбщиеЗначения);
 
КонецФункции
 
// Процедура установки значения экспортных переменных модуля приложения
//
// Параметры
//  Имя - строка, содержит имя переменной целиком
//  Значение - значение переменной
//
Процедура глЗначениеПеременнойУстановить(Имя, Значение, ОбновлятьВоВсехКэшах = Ложь) Экспорт
    
    ОбщегоНазначения.УстановитьЗначениеПеременной(Имя, глОбщиеЗначения, Значение, ОбновлятьВоВсехКэшах);
    
КонецПроцедуры