Ридер смарт-карт. 7.7.

05.05.10

Идентифицируемся по смарт-карте.

Файлы

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

Наименование	Скачано	Купить файл	По подписке PRO
Для СОМ-порта .ert 45,50Kb 79	79	2 500 руб. Купить	1 SM Скачать
Разрыв клавиатуры .ert 45,50Kb 27	27	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

Выложены две обработки, для ридеров RS-232 (требуется активикс MSCommLib) и USB "разрыв клавиатуры" (ничего не требуется). Проверены в промышленной разработке с применением карт EM-Marine.

Вместо примененной в обработках задержки на базе _getPerformanceCounter() в реальной жизни применяется метод Sleep от Абадонны

//infostart.ru/public/18629/

//_____________________________________________________________________________
Процедура глЗадержка(пмСек) Экспорт
_L.SleepTime(пмСек);
Возврат;
КонецПроцедуры //Задержка

где _L

ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"MiracleV8.dll");
_L=СоздатьОбъект("AddIn.MiracleClass");

Вступайте в нашу телеграмм-группу Инфостарт

+7 –

См. также

Библиотека печати на PDF принтер Bullzip для 1С 7.7

Периферийные устройства Разработчик 1С:Предприятие 7.7 Бесплатно (free)

В данной статье приведено несколько методов, которые позволят подключить PDF принтер Bullzip к своему проекту на платформе 1С Предприятие 7.7. Используя PDF принтер, вы сможете сохранять ваши табличные документы в формате PDF. Вы программно можете задавать имя PDF файла и его расположение на диске.

11.12.2018 15936 infosoft-v 21

Управление светофором на автовесовой через USB-реле

Периферийные устройства Пользователь 1С:Предприятие 7.7 1C77 Абонемент ($m)

Cистема управления светофором на автовесовой через USB-реле MP 709. Позволяет оператору автовесовой нажатием кнопки в 1С управлять светофором, разрешающим машине выехать с весов после фиксации в программе результата взвешивания.

1 стартмани

01.05.2015 18923 14 VShevelev 8

Делаем из принтера Zebra многостаночника, не фискальные чеки будем печатать на нем на обычной 57 термоленте

Оптовая торговля Розничная торговля Периферийные устройства Системный администратор Разработчик Оперативный учет 7.7 1C77 Россия Бухгалтерский учет Управленческий учет Абонемент ($m)

Делаем из принтера Zebra многостаночника, не фискальные чеки будем печатать на нем на обычной 57 термоленте!

1 стартмани

09.06.2011 32947 164 Mantis 36

Печать на сетевом принтере без диалога печати

Периферийные устройства Системный администратор Разработчик 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)

Надо к имени принтера добавить в конце слэш

15.04.2011 13653 adamx 9

Экономим на заправке картриджей принтера!

Периферийные устройства Разработчик 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)

Клиент из торговой фирмы изъявил желание сэкономить на количестве заправок картриджа. Решение его проблемы? Смотрим код:

19.09.2010 4602 ig_infostart 8

СД-Ром

Периферийные устройства Разработчик 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)

выдвигает лоток СД-Ром

08.09.2009 10010 Mucmepukc 5

Работаем с последовательным портом (7.7.)

Периферийные устройства Системный администратор Разработчик Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 1C77 Абонемент ($m)

Пишем в порт, читаем из порта. Зная протокол обмена, сможем внешним устройством управлять. Например, ридером меток RFID.

1 стартмани

10.04.2009 18673 324 Арчибальд 8

Печать на DATAMAX ч/з DPL (встроенный механизм принтера)

Периферийные устройства Системный администратор Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)

Печатать на datamax ч/з драйвер системы - долго. Есть внешние компоненты, но можно обойтись и средствами 1С. Обработка писалась для печати на удаленные принтеры при плохом канале связи (впн ч/з интернет).

08.04.2009 12185 25 rk 6

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. пользователь 30.04.10 10:52

Сообщение было скрыто модератором.

...

2. пользователь 30.04.10 11:00

Сообщение было скрыто модератором.

...

3. пользователь 30.04.10 18:12

Сообщение было скрыто модератором.

...

4. пользователь 30.04.10 18:23

Сообщение было скрыто модератором.

...

5. пользователь 02.05.10 12:23

Сообщение было скрыто модератором.

...

6. ROM_1C 692 05.05.10 01:23 Сейчас в теме

Много что можно со скинов узнать :D

7. Арчибальд 2712 05.05.10 07:17 Сейчас в теме

(6) Так и было задумано ;)

8. Ish_2 1117 05.05.10 07:47 Сейчас в теме

Содержательную сторону публикации обсуждать не могу.
Ничего не понял.
Но о вкусах давай поспорим.
Поднимать на знамена темы строки "смарт-карта не служебна" и далее ?
Мда..
Я хмыкнул.

9. пользователь 05.05.10 07:57

Сообщение было скрыто модератором.

...

10. Арчибальд 2712 05.05.10 08:45 Сейчас в теме

(8) Да убрал, убрал. Приколоться нельзя уже... :(

12. Antoska 22 05.05.10 09:22 Сейчас в теме

(10) Зря убрал. Юмор должен быть! ;)

11. Арчибальд 2712 05.05.10 09:00 Сейчас в теме

На самом деле, ПриНачалеРаботыСистемы() запускается ОбработкаОжидания() чтения карты:

Процедура СлужКарта()
	лПар = СоздатьОбъект("СписокЗначений");
	лПар.Установить("КолЦиклов",200);
	лКарта = глВычислитьВнешнийОтчет("ExtForms\ОпознатьКарту"+глТипРидера+".ert",Контекст,лПар);
	Если ТипЗначенияСтр(лКарта) = "Справочник" Тогда
	    Если лКарта.Статус = Перечисление.СтатусКарты.Служебная Тогда
	        глАдмПрава = 0;
	    ИначеЕсли лКарта.Статус = Перечисление.СтатусКарты.Админ Тогда
	    	глАдмПрава = 1;
		Иначе
			лР = РазделительСтрок;
			
			Предупреждение("Предъявлена не служебная смарт-карта"+
						лР+"В доступе к системе будет отказано!!", 10);
			глАдмПрава = 2;
			ЗавершитьРаботуСистемы(0);
		КонецЕсли;
	Иначе 
		глАдмПрава = 2;
		ЗавершитьРаботуСистемы(0);
	КонецЕсли;
	ОбработкаОжидания("",0);
	Предупреждение("Статус "+?(глАдмПрава = 1,"администратор", "пользователь"), 1);
КонецПроцедуры //СлужКарта

Показать

13. Abadonna 3979 05.05.10 09:46 Сейчас в теме

ПриНачалеРаботыСистемы() запускается ОбработкаОжидания()

Запускать надо Сервис.ОбработкаОжидания() от formex!
Она срабатывает всегда, даже при наличии модальных окон

14. Арчибальд 2712 05.05.10 10:00 Сейчас в теме

(13) В данном случае ОбработкаОжидания запускается только один раз, т.е. работает как GOTO и открывает единственное модальное окно. Когда/если потребуется formex, я его вставлю, а пока не умножаю сущности без необходимости :)