// создаем экземпляр класса
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 в тело и отдаем
    } 
}

&НаКлиенте
Процедура ПодключитьсяПорт()
	
	АдресСервиса = "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, Истина);
		
КонецПроцедуры

// перейти в корень службы и выполнить, далее автозапуск и прочее настроить уже через оснастку Службы
sc create sps binPath= "sps.exe" DisplayName= "Scale service"