Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.06.2016, 19:26   #1
tarakan1983
Форумчанин
 
Аватар для tarakan1983
 
Регистрация: 09.09.2008
Сообщений: 418
По умолчанию VirtualTreeView + сканер Штрихкодов

Здравствуйте. Использую Delphi XE 2 и VirtualTreeView.
При использовании сканера штрихкода honeywell 1250g + VirtualTreeView фокус с текущего нода перескакивает на следующий. Т.е. при использовании поиска по штрихкоду со сканера получаю не нужный узел в дереве, а следующий за нужным. При том, что по событию OnKeyPress я пишу
Код:
if Key = #13 then Key := 0;
Подскажите как отключить обработку данных от сканера в VirtualTreeView????
tarakan1983 вне форума Ответить с цитированием
Старый 19.06.2016, 22:11   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

а какая связь между сканером (HID, да?) и компонентом?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 19.06.2016, 22:41   #3
tarakan1983
Форумчанин
 
Аватар для tarakan1983
 
Регистрация: 09.09.2008
Сообщений: 418
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
а какая связь между сканером (HID, да?) и компонентом?
да,HID. Я не знаю какая между ними связь, но если установить фокус на дерево VirtualTreeView и "пикнуть" сканером, то фокус опускается на одну позицию. Это странно, потому что по нажатию на клавиатуре Enter ничего не происходит.
tarakan1983 вне форума Ответить с цитированием
Старый 19.06.2016, 22:45   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

ну так выведи куда-нить то, что приходит в OnKeyPress/OnKeyDown! Или в отладчике посмотри, для этого он и придуман.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 19.06.2016, 23:44   #5
tarakan1983
Форумчанин
 
Аватар для tarakan1983
 
Регистрация: 09.09.2008
Сообщений: 418
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
ну так выведи куда-нить то, что приходит в OnKeyPress/OnKeyDown! Или в отладчике посмотри, для этого он и придуман.
Вывел
Код:
procedure TFmTOVAR.VTKeyPress(Sender: TObject; var Key: Char);
  var
    cod: byte;
begin   
   cod := Ord(Key);
   FINDBAREdt.Text := FINDBAREdt.Text + ' ' + IntToStr(Ord(Key));   
end;
Он показал, что сначала коды циферных клавиш(соответственно какой штрих код "пикался") и последним код 13
tarakan1983 вне форума Ответить с цитированием
Старый 19.06.2016, 23:57   #6
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Ну, блин, у меня нету сканера штрих-кодов, я не могу смоделировать твою ситуацию.
1. Попробуй просмотреть скан-коды в OnKeyDown.
2. Еще лучше - отвяжись от компонента, лови WM_CHAR в Application.OnMessage и контролируй то, что прилетает тебе в этих сообщениях, фильтруя ненужное.
3. Покажи, что у тебя реально происходит - сними скринкаст.
4. Покажи сам штрих-код, мож в комбинации его цифр что-то есть (хотя, не верится).
Больше я ничем тебе помочь со своего дивана не могу.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 20.06.2016, 00:41   #7
tarakan1983
Форумчанин
 
Аватар для tarakan1983
 
Регистрация: 09.09.2008
Сообщений: 418
По умолчанию

У VT 4 события KeyAction,KeyDown,KeyPress,KeyUp
После пиканья
KeyPress показывает, что последний символ 13, а оствльные 3 показывают, что последний символ 40, т.е. клавиша VK_DOWN.
И как мне избавиться от её нажатия, при этом сохранив передвижения стрелками по дереву????? Во задача!!!
tarakan1983 вне форума Ответить с цитированием
Старый 20.06.2016, 01:06   #8
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Цитата:
а оствльные 3 показывают, что последний символ 40, т.е. клавиша VK_DOWN.
ну вот, я так и думал!
СЛАВА МНЕ!

Цитата:
И как мне избавиться от её нажатия, при этом сохранив передвижения стрелками по дереву????? Во задача!!!
Не надо так! Задача номер раз: почему приходит DOWN? Откуда?
Методичка по девайсу есть?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 20.06.2016, 01:12   #9
tarakan1983
Форумчанин
 
Аватар для tarakan1983
 
Регистрация: 09.09.2008
Сообщений: 418
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
ну вот, я так и думал!
СЛАВА МНЕ!
Это точно!!!
Цитата:
Сообщение от min@y™ Посмотреть сообщение
Не надо так! Задача номер раз: почему приходит DOWN? Откуда?
Методичка по девайсу есть?
Только в инете https://www.honeywellaidc.com/ru-RU/...=HSM&pid=1250g
Но я сбросил его в дефолтные настройки, поэтому переконфигурирование девайса не выход. И что будет если купят новый?? опять мне ехать к заказчику и переконфигурировать??? это не вариант.
Второй момент при использовании с другими компонентами Edit и т.п. этой VK_DOWN не наблюдается.

СТОПППППП!!!
Простите... наблюдается и сдругими компонентами
tarakan1983 вне форума Ответить с цитированием
Старый 20.06.2016, 01:14   #10
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Мой тебе совет - выведи всё, что приходит в wm_char. понятней станет.
всё, давай до утра. Я щас "в поисках дори" досмотрю и баиньки.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

Последний раз редактировалось min@y™; 20.06.2016 в 01:16.
min@y™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VirtualTreeView bilibian Общие вопросы Delphi 6 06.08.2014 17:02
Сканер штрихкодов и эксель Alesa90 Microsoft Office Excel 33 05.09.2013 01:02
Считывальщик штрихкодов... sniip Общие вопросы Delphi 3 05.07.2012 21:20
Распознавание штрихкодов методом деформируемых шаблонов trime Помощь студентам 0 11.04.2012 16:28