Сканирование QR кодов через WEB-камеру

09.03.17

Разработка - Разработка внешних компонент

Программа для считывания QR кодов через вэб-камеру.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
QRreader.zip
.zip 161,39Kb
28
28 Скачать (1 SM) Купить за 1 850 руб.

Программа не требует установки. Единственное условие - наличие установленного framework 4.0 и старше. Состоит из двух библиотек и выполняемого файла.

1. Запускаем программу. 

2. Подносим QR код.

3. Программа считывает и закрывается. 

В каталоге программы создается файл Output.txt с одной строкой формата: True|563067. Первый параметр  "True" или "False" - статус сканирования. Второй - штрих код или описание ошибки.

Пример процедуры чтения QR кода. Используется для чтения кодов UDS GAME со смартфонов покупателей. 

Процедура ОсновныеДействияФормыСканироватьКодUDS(Кнопка)
	
	КаталогИБ = КаталогИБ();
	Если КаталогИБ = КаталогВременныхФайлов() Тогда
		КаталогИБ = КаталогДокументов();
	КонецЕсли; 
	КаталогИБ = КаталогИБ+"QRreader\";
	
	МассивФайловРезультата = НайтиФайлы(КаталогИБ,"output.txt",Истина);
	Если НЕ МассивФайловРезультата.Количество() = 0 Тогда
		ФайлРезультата = МассивФайловРезультата[0];
		УдалитьФайлы(КаталогИБ+"output.txt");
	КонецеслИ;
	
	МассивФайлов = НайтиФайлы(КаталогИБ,"QRDecoder.exe",Истина);
	Если МассивФайлов.Количество() = 0 Тогда
		Предупреждение("Не установлена программа для чтения QR-кодов!", 60);
	Иначе
		ФайлQRreader = МассивФайлов[0].ПолноеИмя;
		ЗапуститьПриложение(ФайлQRreader, КаталогИБ, Истина,);
		
		МассивФайловРезультата = НайтиФайлы(КаталогИБ,"output.txt",Истина);
		Если НЕ МассивФайловРезультата.Количество() = 0 Тогда
			ФайлРезультата = МассивФайловРезультата[0];
	        ТД = Новый ТекстовыйДокумент;
			ТД.Прочитать(КаталогИБ+"output.txt");
			СтрокаОтвета = ТД.ПолучитьСтроку(1);
			Если СтрокаОтвета <> "" Тогда
				ПозицияРазделителя = Найти(СтрокаОтвета, "|");
				Если ПозицияРазделителя <> 0 Тогда
					ОтветПрограммы = Лев(СтрокаОтвета, ПозицияРазделителя-1); 
			        Если ОтветПрограммы = "True" Тогда
						КодСкидкиUDS = Сред(СтрокаОтвета, ПозицияРазделителя+1, СтрДлина(СтрокаОтвета)-ПозицияРазделителя);
						Если КодСкидкиUDS <> "" Тогда
							
							Отказ = Ложь;
							ИмяКлиента = "";
							СуммаСкидки = 0;
							ОтветСкидки = UDSGame.GET_Customer(КодСкидкиUDS); 
							ЧтениеJSON = Новый ЧтениеJSON;
							ЧтениеJSON.УстановитьСтроку(ОтветСкидки);
							
							СтруктураОтвета = ПрочитатьJSON(ЧтениеJSON, ,"dateCreated");
							
							Если СтруктураОтвета.Свойство("scores") Тогда 
								СуммаСкидкиUDS = СтруктураОтвета.scores; 
							КонецЕсли;
							
							Если СтруктураОтвета.Свойство("name") Тогда
								nameUDS = СтруктураОтвета.name;
							КонецЕсли;
							
							Если СтруктураОтвета.Свойство("surname") Тогда
								surnameUDS = СтруктураОтвета.surname;
							КонецЕсли;
							
							Если СтруктураОтвета.Свойство("errorCode") Тогда
								Предупреждение("Получена ошибка: " + СтруктураОтвета.errorCode, 60);
								Отказ = Истина;
							КонецЕсли;
							
							Если Не Отказ Тогда
								ЭтаФорма.Закрыть();
							КонецЕсли; 
							
						Иначе
							Предупреждение("Не удалось считать код. Попробуйте считать снова.",60);	
						КонецЕсли; 
					Иначе
						Предупреждение("Не удалось считать код. Попробуйте считать снова.",60);
					КонецЕсли; 
				Иначе
					Предупреждение("Не удалось считать код. Попробуйте считать снова.",60);	
				КонецЕсли; 
			КонецЕсли; 
		КонецЕсли; 
	КонецЕсли;
	
КонецПроцедуры

Программа вэб камера qr код

См. также

ККМ Кассовые операции Розничная торговля Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия 1.6 1С:Бухгалтерия автономного учреждения 1С:CRM ПРОФ, КОРП Россия Платные (руб)

Универсальная обработка для обслуживания любых фискальных регистраторов (ККТ), в том числе Веб сервер АТОЛ. Работает в соответствии с 54-ФЗ. (ФФД 1.0, ФФД 1.05, ФФД 1.1). Подключайте любую онлайн кассу к практически любой конфигурации. Нет необходимости обновлять 1С. Можно бесплатно скачать и протестировать. Может работать одновременно с несколькими онлайн-кассами, либо одной с разных рабочих мест. (через RDP, TCP\IP или веб-сервер) Позволяет разделить один чек сразу на несколько ККТ или на несколько систем налогообложения. Поддерживает разрешительный режим. Можно настроить собственный шаблонов чека. Можно использовать эквайринг там, где он не поддерживается. Работает на LINUX и Windows ЭМУЛЯТОР + ЭКВАЙРИНГ + МАРКИРОВКА + ПОДДЕРЖКА ФФД 1.2

6000 руб.

27.02.2017    795787    4897    9534    

2856

SALE! 20%

Оптовая торговля Розничная торговля Обмен с ГосИС Бухгалтер Платформа 1С v8.3 1С:Управление торговлей 10 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Бухгалтерский учет Управленческий учет Акцизы Платные (руб)

Полнофункциональное расширение (ранее известное как Модуль 1С-ЕГАИС) для взаимодействия типовых конфигураций 1С и ЕГАИС, предоставляющее максимум возможностей по работе с УТМ. Получение и отправка ТТН, отправка акта о постановке на баланс и акта о списании. Получение остатков. Загрузка и сопоставление номенклатуры и контрагентов. Оправка в ЕГАИС отчетов о производстве и импорте.

8970 7176 руб.

15.12.2015    170678    956    364    

400

SALE! 25%

ККМ Кассовые операции Розничная торговля Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия автономного учреждения Россия Платные (руб)

Обработка осуществляет обслуживание ККТ АТОЛ, Штрих, Вики Принт и Меркурий для конфигураций "УТ 10.3", "КА 1.1", "УПП 1.3", "Розница 1.0", "БП 2.0" и других отраслевых решений, построенных на основе указанных выше конфигурациях. Поддерживает возможность параллельно пробития чеков на одной ККМ несколькими пользователями. Поддерживает Веб-сервер Атол. Соответствует требованиям 54-ФЗ. Поддерживает ФФД 1.0, 1.05, 1.1 и 1.2. Разделяет чеки по нескольким СНО. Поддерживает механизмы подключения ККТ по TCP/IP, для работы через RDP или интернет. Поддержка маркировки и разрешительного режима.

5880 4410 руб.

25.05.2015    335292    1954    3058    

1031

ККМ Кассовые операции Розничная торговля Обмен с ГосИС Программист Бухгалтер Пользователь Бухгалтерский учет Оперативный учет Управляемые формы 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Расширение конфигурации для УТ 11.5, КА 2.5 ,ERP 2.5 (Управляемые формы) позволяет выполнять печать кассовых чеков на одну ККМ 54-ФЗ с нескольких рабочих мест. НИКАКИХ НАСТРОЕК В РАЗРАБОТКЕ - ПОДКЛЮЧИЛ И ПЕЧАТАЙ. Если у вас несколько отделов и одна ККМ - печатайте на одной ККМ! Если у вас две ККМ и одна поломалась - печатайте на одной ККМ, пока ремонтируете другую!

4500 руб.

27.08.2018    121907    1018    583    

863

Оптовая торговля Производство готовой продукции (работ, услуг) Розничная торговля Обмен с ГосИС Программист Бухгалтер Пользователь Платформа 1С v8.3 Конфигурации 1cv8 Сельское хозяйство и рыболовство Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Пищевая промышленность Россия Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная конфигурация Хамелеон Меркурий для взаимодействия с системой Меркурий (тестовый+рабочий+демо контур) может использоваться для интеграции в любую конфигурацию на базе 1С, версии ПРОФ и выше. Основное отличие от других решений - работа через веб-интерфейс и API 2.0(API 2.1). Для удобства реализован общий интерфейс в виде обработки, схожей с интерфейсом Меркурий, но возможностей гораздо больше, т.к. при интеграции в Вашу учетную систему, можно на основании Ваших справочников и документов, создавать соответствующие документы и справочники в системе Меркурий и наоборот.

44000 руб.

08.11.2017    122873    292    140    

398

Управление взаимоотношениями с клиентами (CRM) Оптовая торговля Розничная торговля Пользователь Платформа 1С v8.3 Оперативный учет Управляемые формы 1С:Управление торговлей 10 1С:Розница 2 Россия Управленческий учет Платные (руб)

Подсистема призвана упростить и автоматизировать процесс расчета и начисления бонусов покупателей. Бонусная система работает с конфигурациями 1С:УТ 10.3, 1С:Розница. Механизм реализован в начале 2013г. и работает до сих пор с постоянными совершенствованиями.

30000 руб.

02.11.2015    112194    102    87    

184
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. пользователь 21.11.17 04:34
Сообщение было скрыто модератором.
...
2. Sergik_D 23 21.11.17 09:47 Сейчас в теме
(0) Здравствуйте. Не понял что Вам скинуть? Я код описал работы с программой. У меня не стандартная конфигурация, она Вам не подойдет. Если нужно интегрировать, напишите, обсудим.
3. Vladimir45 90 28.02.18 13:53 Сейчас в теме
А как указать что надо использовать не фронтальную, а заднюю камеру на планшете с виндой?
4. Crazy_Max 83 15.06.18 07:33 Сейчас в теме
А может быть исходный код библиотеки выложите, если вы его не распространяете в коммерческих целях? Хотелось бы сэкономить время и дополнить тот функционал, который хотелось бы лично мне...
Оставьте свое сообщение