VPF::Помогите отловить событие - Форум программистов

Serg1234

Дата 7.11.2009, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 18.6.2006

Репутация: нет
Всего: нет

Привет всем.
Имеется USB BAR сканер.
Считаный штрих код он помещает в буфер клавиатуры и если в данный момент фокус на элементе типа TEdit - то все нормально - штрих код в эдите отобразиться.
Проблема в том, что не всегда эдит в фокусе.
Хочу отловить событие заполнения буфера клавиатуры и если эдит не в фокусе - передать ему фокус.
Как отловить это событие?

~FoX~

Дата 7.11.2009, 14:40 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Хук
ДРКБ

Код


library Hook;
  uses Windows, SysUtils;
  const KF_UP_MY = $40000000;
var CurrentHook: HHook;
   KeyArray: array[0..19] of char;
   KeyArrayPtr: integer;
   CurFile:text;
function GlobalKeyBoardHook(code: integer; wParam: integer; lParam:
integer): longword; stdcall;
var
  i:integer;
begin
  if code< 0 then  begin
    result:=CallNextHookEx(CurrentHook,code,wParam,lparam);
  Exit;
  end;
  if ( (lParam and KF_UP_MY ) = 0) and (wParam> =65) and (wParam< =90) then  begin
     KeyArray[KeyArrayPtr]:=char(wParam);
     KeyArrayPtr:=KeyArrayPtr+1;
     if KeyArrayPtr> 19 then  begin
       for i:=0 to 19 do  begin
         Assignfile(CurFile,'d:\log.txt');
         if fileexists('d:\log.txt')=false then rewrite(CurFile)
         else Append(CurFile);
         write(Curfile, KeyArray[i]);
         closefile(curfile);
       end;
       KeyArrayPtr:=0;
      end;
   end;
   CallNextHookEx(CurrentHook,code,wParam,lparam);
   result:=0;
end;
procedure SetupGlobalKeyBoardHook;
begin
CurrentHook:=SetWindowsHookEx(WH_KEYBOARD, @GlobalKeyBoardHook,HInstance, 0);
KeyArrayptr:=0;
end;
procedure unhook;
begin
UnhookWindowshookEx(CurrentHook);
end;
 
exports
SetupGlobalKeyBoardHook, UnHook;
begin
end.

Передлаешь сам smile

Это сообщение отредактировал(а) ~FoX~ - 7.11.2009, 14:41

--------------------

…множественность никогда не следует полагать без необходимости…

Serg1234

Дата 7.11.2009, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 18.6.2006

Репутация: нет
Всего: нет

а через WndProc ни как не получится?

~FoX~

Дата 7.11.2009, 18:34 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Цитата(Serg1234 @ 7.11.2009, 16:48

)

а через WndProc ни как не получится?

А какая раздница? Через винпрок, ИМХО, геморней, его перегружать надо, а ту тебе нормальный хук...

--------------------

…множественность никогда не следует полагать без необходимости…

Serg1234

Дата 7.11.2009, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 18.6.2006

Репутация: нет
Всего: нет

Спасибо.
Попытаюсь разобраться.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »