[Lothlorien]

Всем привет!
Пишу что-то вроде программного движка, управляемого консольными командами. Хотелось бы сделать возможность забиндить команды к клавишам. Для этого выделил массив строк BINDLIST, в котором индекс соответствует ASCII-коду клавиши, а элементы - собственно команды (пустые строки "движок" игнорирует). Вызов команды выглядит так:

Код:

1 2 3 4 5 6 7 8 9 10 11

function KeyboardHook(Code: integer;                       wParam: Word; lParam: LongInt): LongInt; begin   if (Code = HC_ACTION) and (wParam <> 0) then   begin     Console.ProcessCmd(BINDLIST[wParam]); // здесь обращаемся к методу "движка", который анализирует и выполняет команду из массива     Result:=0;   end   else     Result:=CallNextHookEx(SysHook, Code, wParam, lParam); end;

Увы, это не работает. Движок грамотно обрабатывает саму команду бинда, например, "bind Esc quit", добавляя в массив команду "quit" по индексу 27 (код клавиши Esc), но нажатие клавиши Esc после этого ни к чему не приводит.
Если же вынести механизм перехвата в отдельную DLL, то как из нее обращаться к методу

Код:

1	Console.ProcessCmd(BINDLIST[wParam]);

?

Может, я неправильно оперирую параметрами Code / wParam / lParam?

[Lothlorien]

Вроде разобрался, дело все-таки было в параметрах:

Код:

1 2 3 4 5 6 7 8 9 10

function KeyboardHook(Code: integer;                       wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; begin   if Code >= 0 then   begin     if (wParam = WM_KEYDOWN) then       Console.ProcessCmd(BINDLIST[PBDLLHOOKSTRUCT(lParam).vkCode]);   end;   Result:=CallNextHookEx(0, Code, wParam, lParam); end;

(Спасибо NumLock: http://www.delphisources.ru/forum/sh...37&postcount=6)

Правда, теперь забавно наблюдать, как движок пытается найти соответствующую команду КАЖДОМУ нажатию клавиш, даже во время набора команды Придется заменить массив команд чем-то более умным...

[Alegun]

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

...забавно наблюдать, как движок пытается найти соответствующую команду КАЖДОМУ нажатию клавиш, даже во время набора команды Придется заменить массив команд чем-то более умным...

Проще тогда отключать проверку набора состоянием глобального флажка или делать пакетную буферизацию во время набора команд. Не знаю конечной задачи, но посмотрите пжлст вот это, там тоже что-то связанное с набором "какбе команд" с клавы, БД можно выкинуть, вдруг подойдёт

[Lothlorien]

Да, я на время отображения формы консоли отключаю перехват, а после закрытия включаю заново; вроде получилось то, что хотел
Спасибо, изучу исходник, пригодится )