Подключение весов в УПП 1.3.6.1

13.12.2010 14:07

Прочитано: 9296

Подскажите как подключать весы у меня код вот такой
// Инициализация весовой
ок=1;
Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"vk_rs232")=0 Тогда
Сообщить("Внешняя компонента не была загружена!","!");
Иначе
rs232=СоздатьОбъект("AddIn.vk_rs232");
КонецЕсли;

ИмяПорта=""+Константа.ComPort;

Сообщить("Константа.ComPort: "+ИмяПорта);
Сообщить("При считывании кода, который завершается символами #13#10, здесь должны появляться считанные строки.");

//Начинаем слушать порт
rs232.ОткрытьПорт(ИмяПорта);

Собственно ругается на
{МодульОбычногоПриложения(100,7)}: Обращение к процедуре как к функции (ЗагрузитьВнешнююКомпоненту)
Если <<?>>ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"vk_rs232")=0 Тогда (Проверка: Толстый клиент (обычное приложение))

Yandex

Возможно, вас также заинтересует

E_Migachev

13.12.2010 14:56

Ответ № 1

(0) hanio, не так обращаешься *08
вот рабочий пример:

Код 1C v 8.2 УП

 Попытка 

	ЗагрузитьВнешнююКомпоненту("scanopos.dll") 

Исключение 

	Сообщить("Ошибка загрузки внешней компоненты!"); 

КонецПопытки; 



Попытка 

	// Получить объект компоненты. 

	Объект = Новый("AddIn.Scanner"); 

Исключение 

	Сообщить("Не удалось создать объект внешней компоненты"); 

КонецПопытки;

hanio

13.12.2010 15:17

Ответ № 2

Ошибка загрузки внешней компоненты!
Не удалось создать объект внешней компоненты

библиотеку порегил, файл лежит прямо в базе

что тут?

E_Migachev

13.12.2010 15:51

Ответ № 3

(2) hanio, скопируй ее в каталог программы и попробуй так:

Код 1C v 8.х

 ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"vk_rs232.dll")

hanio

13.12.2010 15:58

Ответ № 4

а входить именно на том компе к которому подключены весы?

E_Migachev

13.12.2010 16:38

Ответ № 5

(4) для загрузки компоненты и получения объекта не обязательно, а для получения данных - да

hanio

13.12.2010 20:02

Ответ № 6

одна баня не получается загрузить компоненту

hanio

14.12.2010 08:43

Ответ № 7

ПодключитьВнешнююКомпоненту("AddIn.vk_rs232");

Попытка
// Получить объект компоненты.
Объект = Новый("AddIn.vk_rs232");
//Объект = Новый("AddIn.scanopos");
Исключение
Сообщить("Не удалось создать объект внешней компоненты");
КонецПопытки;

А так прокатит?

Ошибок не выдалось а вот работает или нет не знаю как проверить

E_Migachev

14.12.2010 09:52

Ответ № 8

(7) hanio, проверить на том компе, где весы

hanio

14.12.2010 10:48

Ответ № 9

А как именно проверить?

E_Migachev

14.12.2010 10:56

Ответ № 10

(9) hanio, смотри документацию к компоненте!
вот у тебя же был код:

Код 1C v 8.х

 Сообщить("Константа.ComPort: "+ИмяПорта);

Сообщить("При считывании кода, который завершается символами #13#10, здесь должны появляться считанные строки.");



//Начинаем слушать порт

rs232.ОткрытьПорт(ИмяПорта);

слушай порт и получай с него данные!

hanio

15.12.2010 22:53

Ответ № 11

а какой код в обработчике ожидания?

такой?

Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)//Предопределенная процедура 1С
//Глобальный обработчик внешнего события
Сообщить("Внешнее событие: Источник="+Источник+" Событие="+Событие+"Данные=" + Данные);
Если (Источник="vk_rs232") И (Событие="BarCodeValue") Тогда
rs232.ЗакрытьПорт();
Сп = Новый ("СписокЗначений");
Сп.ИзСтрокиСРазделителями(""""+СтрЗаменить(Данные,",",""",""")+"""");
Если Сп.РазмерСписка()=4 Тогда
Зн = СокрЛП(Сп.ПолучитьЗначение(4));
Поз = Найти(Зн," ");
Результат=Число(Лев(Зн,Поз-1));
КонецЕсли;
rs232.ОткрытьПорт("COM1");
rs232.КонецСтроки=Символ(13);
КонецЕсли;
КонецПроцедуры

hanio

16.12.2010 09:36

Ответ № 12

вот мне не понятно не догоняю как отрабатывает ОбработкаВнешнегоСобытия если я его поместил в модуль формы документа то он сработает???

E_Migachev

16.12.2010 10:13

Ответ № 13

(11) hanio, Похоже что нужно вешать обработчик ожидания, чтобы каждую секунду он слушал порт

А документации нет что ли?

hanio

16.12.2010 12:17

Ответ № 14

какая?