Не пойму что за хрень с драйверами. Бесплатные выводят на экран кроме информации еще и служебные команды типа: ХС1ХС1Итог:100,00
Из платных нашел только Атол, но они сильно дорогие, в три раза дороже чем сам дисплей!
Неужели нет нормальных бесплатных с обработкой под восьмерку? Или что-то надо поколупать чтобы заработало?
Пробовал все обработки ТО который на сайте 1С доступны.
//**** Проверка доступности компорта и объекта управления
Процедура ПодключитьДисплей(Порт)
Перем Спр;
Попытка
ДисплейПокупателя=CreateObject("MSCOMMLib.MSComm");
Попытка
ДисплейПокупателя.CommPort=Порт;
Если ДисплейПокупателя.portOpen=False Тогда
ДисплейПокупателя.portOpen=True;
КонецЕсли;
ДисплейПриветствие();
Исключение
Предупреждение(ОписаниеОшибки());
КонецПопытки;
Исключение
Предупреждение(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
//**** вывести на дисплей строку
//поз - номер строки дисплея
//Стр - текст
Процедура ВывестиСтрокуДисплея(поз, Стр) Экспорт
Если ДисплейПодключен()=1 Тогда
ДисплейПокупателя.Output=Симв(27)+?(поз=1,"QA","QB")+AnsiToOem(Стр)+Симв(13);
КонецЕсли;
КонецПроцедуры
Функция ДисплейПодключен() Экспорт
Если ПустоеЗначение(ДисплейПокупателя)=1 Тогда
Возврат 0;
КонецЕсли;
Если ДисплейПокупателя.portOpen=False Тогда
Возврат 0;
КонецЕсли;
Возврат 1;
КонецФункции
(5) Посылаю эту строку, он ее не правильно понимает:
Симв(27)+?(поз=1,"QA","QB")+AnsiToOem(Стр)+Симв(13);
не задается номер строки дисплея, вместо этого на экран попадает буква после Q (A или B)
Текст = Новый ЗаписьТекста("\\.\Com2",КодировкаТекста.OEM);
Текст.ЗаписатьСтроку(Символы.ВК+"Ежевика: 100,00"+Символы.ПС+"Итог: 250,00");
Текст.Закрыть();
И никаких дров АТОЛовских не надо. Пользуйтесь бесплатно
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший