Нашел в инете vk_rs232.
Работает, но при выходе из процедуры вылетает 1с
Коллеги поделитесь ссылкой работающей компонентой vk_rs232

перед выходом нужно уничтожить все открытые дискрипторы (явно обнулить все переменные)

(1)
Не помогло.
Вот такая процедура. Вылетает при выходе из неё

&НаКлиенте
Процедура Подключитьvk_rs232(Команда)
	
	Попытка
		
		ПодключитьВК = ПодключитьВнешнююКомпоненту("C:\vk_rs232\vk_rs232.dll", "AAA", AddInType.COM);	
		//ПодключитьВК = ПодключитьВнешнююКомпоненту("rs232.dll", "AAA", ТипВнешнейКомпоненты.Native);	
		
	Исключение
		Сообщить("1. "+ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	
	ПортОткрыт = Ложь;
	
	Если ПодключитьВК Тогда
		КОМПорт = Новый ("AddIn.AAA.vk_rs232");
		  
		Попытка
			КОМПорт.OpenPort("COM2");		
			Сообщить("2. "+"Порт открыт!");
			
			ПортОткрыт = Истина;
		Исключение
			Сообщить("2. "+ОписаниеОшибки());
		КонецПопытки;   
	Иначе
		Сообщить("2. ВК не подключилась");
		
	КонецЕсли;
	
	МенеджерОборудованияКлиент.Пауза(5);
	
	Если ПортОткрыт Тогда
		//Возврат;
		Попытка
			КОМПорт.ClosePort();
			Сообщить("Порт закрыт!");
			
		Исключение
			Сообщить("3. "+ОписаниеОшибки());
		КонецПопытки;		
	КонецЕсли;
	
	КОМПорт=Неопределено;
	ПодключитьВК=Неопределено;
	
КонецПроцедуры

Паузу добавь после закрытия порта ))

(3) не помогло

Вот, вместе с исходниками: https://cloud.mail.ru/public/Riko/P8zu2AXRL
Я там даже чего-то правил, размер какой-то переменной, длины передаваемого пакета не хватало для моей задачи. Я с помощью нее ККТ Спарк-130 к конфе на 7.7 прикручивал.
Ничего не падало, но, это 7.7... что касается 8.Х ничего не скажу, не пробовал.

ну попробуй мою
https://github.com/Garykom/rs232

(5) у тебя походу та же что у ТС, старая COMовая
у меня в (6) тоже дельфи/лазарус но Native API ВК

(5) не помогло

(6) Спасибо за обработку и dll-ками
но не взлетело
так же вылетает 1с

Держи
https://disk.yandex.ru/d/oIjpj74e3FVWDg

(6) Спасибо :)

(10) Кажись работает. Пробую дальше

(9) Походу эти вылеты проблема реализации ВК на паскале
Нестыковки с платформой 1С 8

(10) А что там другого по сравнению с сабжем?

(14) Старая dll-ка вылетала, эту я скомпилировал в новой версии delphi и вылетов не стало.

(15) 💖 Вам вся планета благодарна!

Может выкатим решение более публично, чем ветка на форуме и ссылка на яндекс.диск?

(17) Поддерживаю

(15) Проблема с вылетом 1с решена
но событие
Процедура ВнешнееСобытие(Источник, Событие, Данные)
не возникает

Починили и сломали?

(19) А оно и не должно возникать

(19) ОбработкаВнешнегоСобытия же

А вот так должно
https://disk.yandex.ru/d/N8jL4qePsqfqpQ

(23) Не вылетает. Но  события тоже не возникает ((

&НаКлиенте
Перем ПортВК;
&НаКлиенте
Процедура ПодключитьВК(Команда)
    Попытка
        ВК = ПодключитьВнешнююКомпоненту("C:\vk_rs232\vk_rs232.dll", "AAA", AddInType.COM);    
        //ВК = ПодключитьВнешнююКомпоненту("rs232.dll", "AAA", AddInType.COM);    
        Сообщить("1.ВК подключена!");
    Исключение
        Сообщить("1.Ошибка подключения." + ОписаниеОшибки());
        Возврат;
    КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьПорт(Команда)
    ПортОткрыт = Ложь;          
    ПортВК = Новый ("AddIn.AAA.vk_rs232");
    //ПортВК = Новый ("AddIn.AAA.rs232");
    Попытка
        ПортВК.OpenPort("COM2");        
        Сообщить("2. "+"Порт открыт!");
        Сообщить("Свойства после открытия:");
        Сообщить("Ошибка:           " + ПортВК.Ошибка);
        Сообщить("КОД КонецСтроки 1:      " + КодСимвола(ПортВК.КонецСтроки,1));
        Сообщить("КОД КонецСтроки 2:      " + КодСимвола(ПортВК.КонецСтроки,2));
        Сообщить("стрДлина КонецСтроки:      " + СтрДлина((ПортВК.КонецСтроки)));
        Сообщить("СкоростьПередачи: " + ПортВК.СкоростьПередачи);
        Сообщить("РазмерБайта:      " + ПортВК.РазмерБайта);
        Сообщить("Четность:         " + ПортВК.Четность);
        Сообщить("Стопбит:          " + ПортВК.СтоповыеБиты);
        ПортОткрыт = Истина;
    Исключение
        Сообщить("2. "+ОписаниеОшибки());
    КонецПопытки;  
КонецПроцедуры
&НаКлиенте
Процедура ЗакрытьПорт(Команда)
    Если ПортОткрыт Тогда
        Попытка
            ПортВК.ClosePort();
            Сообщить("3. Порт закрыт!");
        Исключение
            Сообщить("3. "+ОписаниеОшибки());
        КонецПопытки;        
    Иначе
        Сообщить("3. Порт еще не открыт");
    КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВнешнееСобытие(Источник, Событие, Данные)
    Сообщить(Источник + " " + Событие + " " + Данные);
КонецПроцедуры

&НаКлиенте
Процедура ОтключитьВК(Команда)
    ПортВК = Неопределено;
КонецПроцедуры

(24) vk_rs232x32.dll переименовал в vk_rs232.dll

(25) Ну вы же на com-порте ждете простую строку, в конце которой перенос строки? #13#10 (Символы.ПС). Так?

(26) хе у меня настраивается в (6)

(26) Да 13 + 10
https://disk.yandex.ru/i/PR1aJn2VgKV2AA

ОФ?

Очень рекомендую подключать rs232 девайс к компу через usb переходник
Там можно забить на настройки скорости порта и меньше проблем

Еще лучше не использовать никакую ВК
А поднять отдельный микросервис (который работает с весами через порт rs232)
И через обработку ожидания к нему обращаться из 1С по http

Либо взять нечто вроде
https://www.ozon.ru/product/wt32-eth01-modul-esp32-ethernet-wifi-bluetooth-1387108428

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

(30) Дорого

(31) весы сколько стоят?

уже пробовал свои весы подключить тупо как сканер шк?
https://torg.1c.ru/articles/kak-podklyuchit-skaner-shtrikhkodov-v-tipovykh-programmakh-1s/