Задача
На одном из проектов понадобилась интеграция 1С с напольными весами МИДЛ, работающими по com-порту, которые переведены в режим постоянной передачи данных, подключенной к Windows-системе. Решение, которое первое приходит в голову реализовать/найти соответствующую нативную компоненту под 1С. Однако, решил реализовать отдельный веб-сервис, в сторону этого подхода склоняло еще и то, что по сути работа с весами связана на 99% процентов со считыванием данных с порта, то есть тут взаимодействие с портом минимально. Таким образом, по факту нужен сервис, который просто будет считывать данные с порта и дальше выставлять их по http. Соответственно интеграция будет строиться через http-сервис.
Может показаться, что минусом такого решения является тот момент, что придется из 1С опрашивать циклично службу для получения интерактивной информации с весов, в случае компоненты это было бы просто внешнее событие для обработки на форме, однако на текущий момент с использованием асинхронных функций на клиенте цикличный опрос никак ощутимо не тормозит клиентское приложение, поэтому в целом это не является проблемой.
Вариант решения
Необходимо реализовать службу, которая по http будет управлять com-портом и отдавать результат взвешивания. Служба реализовывалась на С#, беглый анализ примеров кода показал, что процесс считывания реализуется достаточно ясно, причем через встроенный в .Net класс SerialPort. Http-сервис так же реализуется через встроенный класс HttpListener, на текущий момент реализация простого http-сервиса практически на любом языке задача достаточно легко реализуемая. Примеров того и другого очень много, получивший вариант реализации можно увидеть на github, ниже описаны основные моменты:
Сервис будет принимать всего четыре команды, три Post - start, stop, reset и одна Get - get.
- start - принимает в теле запроса строку вида "4;9600", где 4 - номер com-порта, 9600 - скорость работы с портом. Устанавливается соединение с портов на выходе в теле в виде строки результат;
- stop - не принимает параметры на входе, разъединяется соединение с портом;
- reset - не принимает параметры на входе, сбрасывает считанное значение в 0;
- get - возвращает в теле ответа последнее считанное значение из порта в виде строки.
Весы по умолчанию из сборки работают на 8119 порту.
Ключевые моменты реализации достаточно ясно и понятно воспринимаются, всю сложность скрывают внутренние библиотеки:
// создаем экземпляр класса
port = new SerialPort();
// подключаем функцию, в которую будет сохраняться последнее считанное значение
port.DataReceived += new SerialDataReceivedEventHandler(DataReceived);
// задаем номер порта
port.PortName = "COM" + Number.ToString();
// задаем скорость порта
port.BaudRate = Speed;
port.Open();
//....
// функция срабатывает каждый раз, когда появляется данные на порту
void DataReceived(...)
{
// читаем данные с порта
var data = port.ReadExisting();
// убираем лишнее в строке и сохраняем во внутреннюю переменную,
// результат которой будет возвращаться в http-запрос из 1С
InputData = data.Trim();
}
// запускаем сервис
listener = new HttpListener();
listener.Prefixes.Add("http://*:8119/");
listener.Start();
// запускаем основной поток обработки входящих запросов
httptrade = new Thread(Go);
httptrade.Start();
//...
// основной поток обработки
void Go()
{
while (true)
{
// достаем body - тело запроса и
// url - адрес запроса
try
{
switch (url)
{
case "/start":
result = OpenPort(body);
break;
case "/stop":
result = ClosePort();
break;
case "/reset":
result = Reset();
break;
case "/get":
result = GetSerialData();
break;
}
catch
{
result = "0";
}
// помещаем result в тело и отдаем
}
}
Взаимодействие с 1С
Взаимодействие описывается через http-запросы, примеры ниже.
&НаКлиенте
Процедура ПодключитьсяПорт()
АдресСервиса = "localhost:8119";
СтрокиАдреса = СтрРазделить(Объект.АдресСервиса, ":");
Сервер = СтрПолучитьСтроку(СтрокиАдреса, 1);
Порт = СтрПолучитьСтроку(СтрокиАдреса, 2);
НомерПорта = "4";
Скорость = "9600";
СоединениеССервисомВесов = Новый HTTPСоединение(Сервер, Порт,,,,5);
Запрос = Новый HTTPЗапрос("/start");
ПараметрыПодключенияКВесам = СтрШаблон("%1,%2", НомерПорта, Скорость);
Запрос.УстановитьТелоИзСтроки(ПараметрыПодключенияКВесам);
Попытка
Ответ = СоединениеССервисомВесов.ОтправитьДляОбработки(Запрос);
Исключение
// Обработка исключения
Возврат
КонецПопытки;
Если Ответ.КодСостояния = 200 Тогда
Результат = Ответ.ПолучитьТелоКакСтроку();
Если Результат <> "True" Тогда
// Не удалось подключиться к весам
Иначе
// Соединение установлено
КонецЕсли;
Иначе
// обработка
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОтключитьсяОтПорта()
// СоединениеССервисомВесов - соединение установленное ранее
Если СоединениеССервисомВесов <> Неопределено Тогда
Запрос = Новый HTTPЗапрос("/stop");
Попытка
Ответ = СоединениеССервисомВесов.ОтправитьДляОбработки(Запрос);
Исключение
// обработка ошибки
КонецПопытки;
// обработка ответа
СоединениеССервисомВесов = Неопределено;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Функция ПолучитьЗначение()
// СоединениеССервисомВесов - соединение установленное ранее
Запрос = Новый HTTPЗапрос("/get");
Ответ = СоединениеССервисомВесов.ОтправитьДляОбработки(Запрос);
Если Ответ.КодСостояния = 200 Тогда
Результат = Ответ.ПолучитьТелоКакСтроку();
Возврат Результат;
Иначе
// обработка ответа
Возврат Неопределено;
КонецЕсли;
КонецФункции
Если необходимо опрашивать с определенным интервалом весы, то необходимо подключать обработчик ожидания и использовать для получения значения асинхронные методы.
&НаКлиенте
Процедура ВесыПодключиться()
//...процедура подключения описанная в предыдущем примере
// 3 раза в 1 секунду будем вести опрос
ПодключитьОбработчикОжидания("ВесыОбновитьДанные", 0.3, Истина);
КонецПроцедуры
&НаКлиенте
Асинх Процедура ВесыОбновитьДанные()
//СоединениеССервисомВесов - установленное раннее соединение
Запрос = Новый HTTPЗапрос("/get");
Ответ = Ждать СоединениеССервисомВесов.ОтправитьДляОбработкиАсинх(Запрос);
ТекущийВес = Ответ.ПолучитьТелоКакСтроку();
ПодключитьОбработчикОжидания("ВесыОбновитьДанные", 0.3, Истина);
КонецПроцедуры
Тестирование
Так как в момент реализации под рукой не было весов, разработка велась удаленно, то оказалось тестировать вполне можно тестировать функционал на сканере штрихкодов, которой работает через виртуальный com-порт, по факту принцип его работы такой же - считанное значение выставляет в порт, откуда его можно считывать. После, в тестовой эксплуатации, уже непосредственно на самих весах шло тестирование, решение отлично себя показало далее и в промышленной эксплуатации в связке с 1С: Комплексная автоматизация 2.5, конечно не обошлось без сюрпризов, весы иногда передавали значение, которое к числу невозможно преобразовать, но это уже решается на стороне 1С. Саму службу можно устанавливать через стандартную команду sc create.
// перейти в корень службы и выполнить, далее автозапуск и прочее настроить уже через оснастку Службы
sc create sps binPath= "sps.exe" DisplayName= "Scale service"
К публикации приложена обработка-пример и сборка, которая реализует взаимодействие с весами. Сам проект на github.
