Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Работа с Сом объектом          
Filosof Подменю пользователя
сообщение 18.07.17, 10:06
Сообщение #1

Молчаливый
*
Группа: Пользователи
Сообщений: 3
Спасибо сказали: 0 раз
Рейтинг: 0

К машине подключены весы через Ком порт. В файловом варианте использую КомОбъект внешней компоненты Mscomm32 данные прекрасно считываются с весопроцессора. Но в клиент серверном варианте проблема. Создана на форме клиентская процедура с таким кодом:
&НаКлиенте
Процедура Брутто(Команда)
Попытка
        Весы = Новый COMОбъект("MSCOMMLib.MSComm");
    Исключение
        Сообщить("Ошибка создания объекта компоненты MSCommLib (Mscomm32.ocx)", СтатусСообщения.Внимание);
        Сообщить(ОписаниеОшибки(), СтатусСообщения.Внимание);
        //Возврат;
    КонецПопытки;
    
    Весы.CommPort = 7;
    Весы.Settings = "9600,N,8,1";
    Весы.InputLen = 0;
    Попытка
        Весы.PortOpen = 1;
    Исключение
        Сообщить("Порт занят другим устройством, отключите его и повторите попытку");
    КонецПопытки;
    
    тЗапросНаВзвешивание = Символ(2) + "AB03" + Символ(3);
    
    Для Н = 1 по 5 Цикл        // попытки если вес не стабилен
        
        
        Весы.Output = тЗапросНаВзвешивание;
        
        Пока Весы.InBufferCount < 12 Цикл
            #Если Клиент Тогда
                ОбработкаПрерыванияПользователя();
            #КонецЕсли
        КонецЦикла;
        
        См = Весы.Input;
        
        Если ПустаяСтрока(См) Тогда
            
            Продолжить;
            
        Иначе
            //Сообщить(См);
            
            См = Сред(СтрЗаменить(См, Лев(тЗапросНаВзвешивание,3), ""), 2);
            См = СтрЗаменить(См, Символ(3), "");
            См = Лев(См, СтрДлина(См)-2);    // последние 2 символа служебные
                        
            ЗнСВесов = Число(См);
            
            Прервать;
            
        КонецЕсли;    
        
    КонецЦикла;
    
    Весы.PortOpen = 0;
    
//Возврат ЗнСВесов;            
    
    
    Объект.Брутто=ЗнСВесов;    
Объект.РучнойВводБрутто=Ложь;
Объект.ДатаПолученияБрутто=ТекущаяДата();
КонецПроцедуры


Но почему то выдает ошибки:
Ошибка создания объекта компоненты MSCommLib (Mscomm32.ocx)
и
{Документ.ПриемкаПродукцииСПолейКФК.Форма.ФормаДокумента.Форма(5)}: Ошибка при вызове конструктора (COMОбъект): -2147221230(0x80040112): Класс не лицензирован для использования


 ! 

Правила: 9
 


Сообщение отредактировал Vofka - 18.07.17, 10:55

Petre Подменю пользователя
сообщение 18.07.17, 10:17
Сообщение #2

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2902
Из: Київ, Україна
Спасибо сказали: 1144 раз
Рейтинг: 1225

Filosof @ Сегодня, 11:06 * ,
Ошибка говорит об отсутствии лицензии на класс MSCommLib.


Signature
Допрацьовую:
- "Бухгалтерія для України 2.1";
- "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".

Filosof Подменю пользователя
сообщение 18.07.17, 13:03
Сообщение #3

Молчаливый
*
Группа: Пользователи
Сообщений: 3
Спасибо сказали: 0 раз
Рейтинг: 0

Petre @ Сегодня, 11:17 * ,
Я это вижу. Но почему в файловом варианте лицензия находится а в клиент серверном нет? Где нужно еще кроме клиентской машины лицензировать эту компоненту? На клиентской машине компонента и зарегистрирована и залицензирована, благодаря чему все отрабатывает в файловом варианте. А вот в клиент серверном стопор на лицензировании компоненты.

Petre Подменю пользователя
сообщение 18.07.17, 13:14
Сообщение #4

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2902
Из: Київ, Україна
Спасибо сказали: 1144 раз
Рейтинг: 1225

Filosof @ Сегодня, 14:03 * ,
Оба варианта проверяются на одной машине? Версия / разрядность 1с одна?


Signature
Допрацьовую:
- "Бухгалтерія для України 2.1";
- "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".

Filosof Подменю пользователя
сообщение 18.07.17, 14:16
Сообщение #5

Молчаливый
*
Группа: Пользователи
Сообщений: 3
Спасибо сказали: 0 раз
Рейтинг: 0

Petre @ Сегодня, 14:14 * ,
Да оба варианта на одной машине. Но в клиент серверном варианте запуск клиентского приложения происходит под другим пользователем. Подбросили мысль, что нужно залицензировать под этим другим пользователем. Буду пробовать отпишусь.

jackill88 Подменю пользователя
сообщение 18.07.17, 15:24
Сообщение #6

Общительный
**
Группа: Пользователи
Сообщений: 27
Из: Полтава
Спасибо сказали: 9 раз
Рейтинг: 0

Filosof @ Сегодня, 11:06 * ,
1) Проверьте, заходите ли Вы клиент-серверном режиме из Толстого клиента;
2) Возможно, сервер 1с Предприятия 64-х разрядный, а клиент - 32-х разрядный (возможно, сам сервер из-за того, что DLL не 64-х битная, не создает COM-объект)

Flexy Подменю пользователя
сообщение 18.07.17, 16:11
Сообщение #7

Танцор с Бубном
Иконка группы
Группа: Местный
Сообщений: 1121
Из: Днепра
Спасибо сказали: 230 раз
Рейтинг: 0

Новый COMОбъект(<Имя>, <ИмяСервера>)

Пробуйте задать второй параметр.

Сообщение отредактировал Flexy - 18.07.17, 16:11

sava1 Подменю пользователя
сообщение 18.07.17, 17:18
Сообщение #8

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2684
Из: Проскуров
Спасибо сказали: 678 раз
Рейтинг: 656.7

Цитата(jackill88 @ 18.07.17, 16:24) *
2) Возможно, сервер 1с Предприятия 64-х разрядный, а клиент - 32-х разрядный (возможно, сам сервер из-за того, что DLL не 64-х битная, не создает COM-объект)


Такого не бывает

Vofka Подменю пользователя
сообщение 18.07.17, 19:13
Сообщение #9

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13948
Из: Киев
Спасибо сказали: 4514 раз
Рейтинг: 3635.6

А чё многие к серверу прицепились, если код выполняется &НаКлиенте?

Flexy Подменю пользователя
сообщение 18.07.17, 22:56
Сообщение #10

Танцор с Бубном
Иконка группы
Группа: Местный
Сообщений: 1121
Из: Днепра
Спасибо сказали: 230 раз
Рейтинг: 0

Vofka @ Сегодня, 19:13 * ,
Видимо потому, что в "клиент-файловом режиме" (в режиме эмуляции сервера, на одном хосте) все работает. why.gif

Сообщение отредактировал Flexy - 18.07.17, 22:57

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 29.03.24, 0:29
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!