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-считывателя. Ардуина будет однозначно идентифицировать каждый считыватель, и по ком-порту передавать в приложение данные с соответствующим маркером.

Новые блоги и статьи Все статьи Все блоги /
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .

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

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

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

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

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

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

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 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,299
	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,299
	29.06.2019, 21:03 [ТС]
	Пытливый, ну как не установлена то? Примеры компилируются, девайс определяется, просто почему то не срабатывает на получение данных. В эдит все приходит. Уже задумался ХР поднять и там проверить. Может семерка 64 бита какие то косяки вносит. 0

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

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