Нативная компонента для весов TBE 0.5-001

2 Comments

1. 7OH 05.11.2016 at 20:19

   Пример кода

   Функция ВесЧислом(Знач ВесСтрокой) Вернуть = 0; ВесСтрокой = СокрЛП(ВесСтрокой); Если СтрДлина(ВесСтрокой) <> 0 Тогда Вернуть = Число(Лев(ВесСтрокой, Найти(ВесСтрокой, «g») — 1)); КонецЕсли; Возврат Вернуть; КонецФункции Функция ПолучитьВес(АдресМакетВесы) Экспорт Если Не ЗначениеЗаполнено(АдресМакетВесы) Тогда ГС_ВесыСервер.ПолучитьМакетВесы(АдресМакетВесы); //АдресМакетВесы = «d:DevelopVCScale_TBEindAddInNative.dll»; //УстановитьВнешнююКомпоненту(АдресМакетВесы); КонецЕсли; ВКПодключениеВыполнено = ПодключитьВнешнююКомпоненту( АдресМакетВесы, «LibraVK», ТипВнешнейКомпоненты.Native ); Если Не ВКПодключениеВыполнено Тогда УстановитьВнешнююКомпоненту(АдресМакетВесы); ВКПодключениеВыполнено = ПодключитьВнешнююКомпоненту( АдресМакетВесы, «LibraVK», ТипВнешнейКомпоненты.Native ); Если Не ВКПодключениеВыполнено Тогда Сообщить(«Не удалось подключить компоненту : «+ОписаниеОшибки()); Возврат Неопределено; КонецЕсли; КонецЕсли; ВКВесы = Неопределено; Попытка ВКВесы = Новый(«AddIn.LibraVK.TechnoScale»); ВКВесы.Включить(); Рез = ВКВесы.Включен; //Сообщить(«Результат включения : «+Рез); ВКВесы.ИмяПорта = «COM» + НастройкиПодразделения.ВесыПорт; ВКВесы.Скорость = Формат(НастройкиПодразделения.ВесыСкорость,»ЧГ=»); ВКВесы.Задержка = Формат(НастройкиПодразделения.ВесыЗадержка,»ЧГ=»); Исключение Сообщить(«Ошибка создания компоненты весов : » + ОписаниеОшибки()); Возврат Неопределено; КонецПопытки; ВКВесы.ПолучитьВес(); Вес = 0; Если ВКВесы.Результат Тогда //Сообщить(«Вес строкой : «+СокрЛП(ВКВесы.Вес)); Вес = ВесЧислом(ВКВесы.Вес); Иначе Сообщить(«Не удалось получить вес»); Возврат Неопределено; КонецЕсли; Попытка ВКВесы.Выключить(); Исключение Сообщить(«Не удалось выключить весы»); Возврат Неопределено; КонецПопытки; Возврат Вес; КонецФункции Показать

   Reply ↓
2. Дмитрий74Чел 20.06.2018 at 08:34

   Пример кода в первом сообщении

   Где?!
   
   …Странно, при открытии страницы не сайт выводил первое сообщение…

   Reply ↓