RFID Reader

@pixel · Регистрация: 19.05.2009

Студворк — интернет-сервис помощи студентам

Приветствую.
Купил вот такой девайс. Подключил, открыл эксель, поднес брелок от домофона - в ячейку занесся серийник брелока. Т.е. работает. Но хотелось бы замутить прогу на дельфи с кучей прибамбасов, но для начала нужно как то связать ридер с дельфи. Подскажите, как это можно сделать? Может кто баловался уже с таким девайсом? Очень надо.

@krapotkin · 21.06.2019, 07:52

это довольно сложно
а можно узнать зачем?

@Nanotentacle · 21.06.2019, 08:17

Сообщение от pixel

ТЗ - элементорное! В дельфи принять серийник брелока, причем без использования фокуса и поля ввода. Я разместил эдит - да туда заносится, но сделав эдит не видимым все рушится. Опять же не ясно, как отловить момент с начала получения данных до из завершения?

Я в этой ситуации отказался от всех возможных компонент, которые могут перетянуть фокус на себя, оставляя на форме только необходимое. Либо, как уже говорили, KeyPreview на форме.

А вот конец получения зафиксировать легко по символам #10#13 (может быть, #13#10, либо проверить каждый из них).

@Black Fregat · 21.06.2019, 13:50

Сообщение от pixel

единственная проблема, как узнать с какого из 2 ридеров происходит чтение

Если уж извращаться, то некоторые из этих моделей позволяют настроить обрамление кода определённым текстом.
Тогда достаточно настроить разное обрамление и по нему определять.

Добавлено через 1 минуту

Не по теме:

Но на самом деле это, конечно, глупый костыль. Проще взять ридер с расширенным функционалом, я уже писал.

@pixel · 21.06.2019, 19:56 **[ТС]**

Сообщение от krapotkin

это довольно сложно
а можно узнать зачем?

Затем, что на проходной должны быть установлены 2 ридера (один на вход, второй на выход).

@krapotkin · 21.06.2019, 22:18

тут ссылки на другие сайты нехорошо, поэтому первая ссылка в поиске по словам
delphi hid usb component

@pixel · 23.06.2019, 23:08 **[ТС]**

krapotkin, можно в л/с кинуть. У меня первой строкой в поиске выдает "How can i communicate with an HID USB device in delphi". Да, скачал компонент, установил в Д7, но в примерах только выдача информации из системы про HID-девайсы.

@Пытливый · 24.06.2019, 00:29

Как вариант - каждый ридер на свой едит.

@pixel · 24.06.2019, 07:09 **[ТС]**

Пытливый, не вопрос, но как каждый из ридеров привязать на свой эдит?

@krapotkin · 24.06.2019, 09:25

по крайней мере упоминание о получении данных тут есть

@pixel · 24.06.2019, 22:07 **[ТС]**

krapotkin, честно говоря, не нашел, но в поисках по сети нашел следующий код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.HidCtlDeviceData(HidDev: TJvHidDevice; ReportID: Byte;
  const Data: Pointer; Size: Word);
var
  i : integer;
  s: string;
begin
  s := Format('RD %.2x  ', [ReportID]);
  for i := 0 to Size - 1 do
    s := s + Format('%.2x ', [Cardinal(PChar(Data)[i])]);
  form1.caption:=s;
end;

но почему то ничего в кэпшн не появляется. Девайс в списке появляется, вместе с мышой. Не понятно, это не то событие?

@krapotkin · 24.06.2019, 22:09

ну, попробовать без девайса мне нечем )

@Пытливый · 24.06.2019, 22:14

А вы проверяли, входит при отладке в обработчик? И вообще, вы событие OnData инициализировали?

@pixel · 24.06.2019, 22:46 **[ТС]**

Пытливый, событие OnData в обджектинспекторе задействовано - это и есть инициализация?
p.s. точнее он девайс дата

Добавлено через 26 минут

Сообщение от Пытливый

А вы проверяли, входит при отладке в обработчик?

Не входит. Вот гадство.

@pixel · 28.06.2019, 21:16 **[ТС]**

Я уже задолбался. Сколько примеров из инета раздобыл - ни один не работает. Т.е. устройство находится, но процедуры OnDeviceData и OnDeviceDataError - не вызываются. Может именно на семерке какие проблемы есть? Хотя, в эдит то читается без проблем.

@Пытливый · 29.06.2019, 19:36

Есть у меня подозрение, что вы смотрите примеры с использованием библиотеки Jedi, а библиотека у вас не установлена.

@pixel · 29.06.2019, 21:03 **[ТС]**

Пытливый, ну как не установлена то? Примеры компилируются, девайс определяется, просто почему то не срабатывает на получение данных. В эдит все приходит. Уже задумался ХР поднять и там проверить. Может семерка 64 бита какие то косяки вносит.

@pixel · 01.07.2019, 19:04 **[ТС]**

установка ХР ничего не изменила. Может все таки сама библиотека битая?

@Пытливый · 01.07.2019, 22:29

Вот даже если скачать библиотеку, то без девайса вашего толку не будет. Так-что помочь нечем.

@Black Fregat · 02.07.2019, 00:01

Сообщение от Пытливый

без девайса вашего толку не будет. Так-что помочь нечем.

Попробуйте вторую клаву в USB воткнуть и прочитать её через jedi.
Я буду искренне рад, если у Вас получится. Серьезно.

@Nanotentacle · 02.07.2019, 04:06

Сообщение от pixel

Я уже задолбался. Сколько примеров из инета раздобыл - ни один не работает. Т.е. устройство находится, но процедуры OnDeviceData и OnDeviceDataError - не вызываются. Может именно на семерке какие проблемы есть? Хотя, в эдит то читается без проблем.

Берется ардуина, в ардуину втыкается два RFID-считывателя. Ардуина будет однозначно идентифицировать каждый считыватель, и по ком-порту передавать в приложение данные с соответствующим маркером.

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,294

	RFID Reader 19.06.2019, 21:20. Показов 5499. Ответов 44 Метки нет (Все метки) Приветствую. Купил вот такой девайс. Подключил, открыл эксель, поднес брелок от домофона - в ячейку занесся серийник брелока. Т.е. работает. Но хотелось бы замутить прогу на дельфи с кучей прибамбасов, но для начала нужно как то связать ридер с дельфи. Подскажите, как это можно сделать? Может кто баловался уже с таким девайсом? Очень надо. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,683 Записей в блоге: 21
	21.06.2019, 07:52
	это довольно сложно а можно узнать зачем? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,683 Записей в блоге: 21
	21.06.2019, 22:18
	тут ссылки на другие сайты нехорошо, поэтому первая ссылка в поиске по словам delphi hid usb component 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,294
	23.06.2019, 23:08 [ТС]
	krapotkin, можно в л/с кинуть. У меня первой строкой в поиске выдает "How can i communicate with an HID USB device in delphi". Да, скачал компонент, установил в Д7, но в примерах только выдача информации из системы про HID-девайсы. 0

@Пытливый 3764 / 2272 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	24.06.2019, 00:29
	Как вариант - каждый ридер на свой едит. 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,294
	24.06.2019, 07:09 [ТС]
	Пытливый, не вопрос, но как каждый из ридеров привязать на свой эдит? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,683 Записей в блоге: 21
	24.06.2019, 09:25
	по крайней мере упоминание о получении данных тут есть 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,683 Записей в блоге: 21
	24.06.2019, 22:09
	ну, попробовать без девайса мне нечем ) 0

@Пытливый 3764 / 2272 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	24.06.2019, 22:14
	А вы проверяли, входит при отладке в обработчик? И вообще, вы событие OnData инициализировали? 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,294
	28.06.2019, 21:16 [ТС]
	Я уже задолбался. Сколько примеров из инета раздобыл - ни один не работает. Т.е. устройство находится, но процедуры OnDeviceData и OnDeviceDataError - не вызываются. Может именно на семерке какие проблемы есть? Хотя, в эдит то читается без проблем. 0

@Пытливый 3764 / 2272 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	29.06.2019, 19:36
	Есть у меня подозрение, что вы смотрите примеры с использованием библиотеки Jedi, а библиотека у вас не установлена. 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,294
	29.06.2019, 21:03 [ТС]
	Пытливый, ну как не установлена то? Примеры компилируются, девайс определяется, просто почему то не срабатывает на получение данных. В эдит все приходит. Уже задумался ХР поднять и там проверить. Может семерка 64 бита какие то косяки вносит. 0

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,294
	01.07.2019, 19:04 [ТС]
	установка ХР ничего не изменила. Может все таки сама библиотека битая? 0

@Пытливый 3764 / 2272 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	01.07.2019, 22:29
	Вот даже если скачать библиотеку, то без девайса вашего толку не будет. Так-что помочь нечем. 0