Преобразование VK в символ

[Minimus]

Доброго всем вечера.
Возникла у меня проблемка следующего содержания:
У меня есть:
-Раскладка клавиатуры (в виде HKL - хэндла раскладки клавиатуры);
-Виртуальный код клавиши.
Нужно получить:
-код символа, который соответствует этим данным.

Единственное, что я смог придумать - это воспользоваться таблицей соответствия, т.е примерно по такому алгоритму:

1.Резервируем массив из 256 элементов.
2.Загружаем нужную раскладку клавиатуры.
3.Заполняем массив с помощью VkKeyScanEx примерно так:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
tabl:array[0..255] of char;
i,k:integer;
hk:Cardinal;
tmp:string;
begin
  hk:=GetKeyboardLayout(GetCurrentThreadId);
  for i:=0 to 255 do                                          //перебираем все символы
  begin
    k:=VkKeyScanEx(char(i),hk);
    if k<=255 then tabl[k]:=char(i);                      //индекс=VK,значение=символ.
  end;
  tmp:=tabl[Key];
  if Key<=255 then Caption:=tmp;
end;

4.Восстанавливаем старую раскладку.

Ну а дальше используя VK (если он <= 255) в качестве индекса получаем нужный символ.

А никто не знает какого нибудь более рационального способа?
Заранее большое человеческое спасибо.

ЗЫ1: Не обращайте внимание на бредовость кода - он написан исключительно с целью проверки правильности работы алгоритма и не более того.

ЗЫ2: Чуть не забыл: раскладку и виртуальные коды клавиш приложение получает посредством SendMessage от хука типа WH_KEYBOARD.

[Minimus]

Попробовал еще одним способом:
1.Загружаю нужную раскладку
2.Создаю структуру MSG
3.Заполняю искуственно ее поля (message,wParam,lParam)
4.Вызываю TranslateMessage
5.Принимаю сообщение WM_CHAR
6.Восстанавливаю прежнюю раскладку

Гемора стало еще больше, а результаты еще хуже. Это все явно не наши методы!

ЗЫ:Помогите!!!

[Stilet]

код символа, который соответствует этим данным

Чет я недоперепонял, а разве var Key: Word не возвращает как раз этот код?

от хука типа WH_KEYBOARD.

А пример о чем говорит?

[Minimus]

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

Чет я недоперепонял, а разве var Key: Word не возвращает как раз этот код?

В справке дельфей написано следующее:

Key parameter is the key on the keyboard. For non-alphanumeric keys, use virtual key codes to determine the key pressed. For more information, see Virtual Key codes.

Т.е var Key:Word является именно VK нажатой клавиши, а не символом.

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

А пример о чем говорит?

Дык пример, несмотря на его бессмысленность, просто тестирует работу этого алгоритма - т.е. я взял var Key:WORD (= VK клавиши), с помощью VkKeyScanEx заполнил таблицу символов, и уже из этой таблицы извлек символ (используя Key в качестве индекса), т.е. фактически, выполнил преобразование VK->char с учетом раскладки клавиатуры hk.
В реальном приложении, я буду брать VK и hk из message, посылаемого окну от хука. Но это не меняет сути процесса преобразования.

ЗЫ: В принципе метод неплохо работает, но медленно. Вот я и решил спросить, может быть кто-нибудь знает как это сделать попроще?

[Stilet]

Ясно, попробуй примени MapVirtualKeyEx
Даже помоему уже обсуждалось это...

Вот тут посмотри: http://programmersforum.ru/showthrea...apVirtualKeyEx

[Minimus]

Спасибо. Щас посмотрю...
Попробовал. Что-то вроде такого:

вариант1:

procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
ch:char;
hk:Cardinal;
begin
  hk:=GetKeyboardLayout(GetCurrentThreadId);
  ch:=char(MapVirtualKeyEx(Key,2,hk));
  Caption:=ch;
end;

Выдает только латиницу в верхнем регистре, а вместо непечатаемых символов - квадратики. Зачем ей тогда нужно раскладка клавиатуры?

вариант2:

procedure TForm1.Memo3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
ch:char;
code:DWord;
hk:Cardinal;
ks:TKeyboardState;
begin
  hk:=GetKeyboardLayout(GetCurrentThreadId);
  code:=MapVirtualKeyEx(Key,0,hk); //получаем скан-код
  ToAscii(Key,code,ks,@ch,0);
  Caption:=ch;
end;

Работает!

ЗЫ: А вам, уважаемый Stilet, как и обещалось в первом послании,
БОЛЬШОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!

[Stilet]

Всегда пожалуйста.

[Minimus]

После долгих экспериментов я наконец-то нашел окончательный вариант:
самое простое решение - это призводить все преобразования в контексте того процесса, от которого VK и был получен.

KEYBOARDSTATE struct
        keydata db 256 dup(?)
KEYBOARDSTATE ends

.code

VKtoChar proc vkcode:DWORD
LOCAL tmpchar:DWORD
LOCAL ks:KEYBOARDSTATE
    invoke GetCurrentThreadId
    invoke GetKeyboardLayout,eax                                     
    push eax
    sub eax,eax
    mov tmpchar,eax
    invoke GetKeyboardState,addr ks
    pop edx                                                 
    invoke ToAsciiEx,vkcode,0,addr ks,addr tmpchar,0,edx
    mov eax,tmpchar
    ret
VKtoChar endp

То же самое:

function VKtoChar(VKKey: Word):char;
var
ch:char;
code:DWord;
hk:Cardinal;
ks:TKeyboardState;
begin
  hk:=GetKeyboardLayout(GetCurrentThreadId);
  GetKeyboardState(ks);
  ToAsciiEx(VKKey,0,ks,@ch,0,hk);
  result:=ch;
end;

В таком варианте происходит полное декодирование - даже учитывается регистр.
Ну и чтобы окончательно закрыть тему выкладываю архив с исходниками(может быть кому и пригодиться), в котором содержатся:
1.Dll-ка, ставящая глобальный хук на события клавиатуры (с исходниками на masm);
2.Заголовочный файл на дельфях;
3.Тестовая програмка (также на дельфях);

ЗЫ: Дельфи не перестают удивлять - оказывается после события OnShow и до появления окна на экране форма успевает поменять свой хандл (по крайней мере в дельфи 7)! И во время работы приложения - при сворачивании и восстановлении окна иногда(я так и не понял от чего это зависит) происходило тоже самое. Поэтому для обновления хандла я использовал таймер - на всякий случай.

[Asis]

Нашел в сети такой вариант:

function GetCharFromVirtualKey(Key: Word): string;
var
   keyboardState: TKeyboardState;
   asciiResult: Integer;
begin
   GetKeyboardState(keyboardState) ;

   SetLength(Result, 2) ;
   asciiResult := ToAscii(key, MapVirtualKey(key, 0), keyboardState, @Result[1], 0) ;
   case asciiResult of
     0: Result := '';
     1: SetLength(Result, 1) ;
     2:;
     else
       Result := '';
   end;
end;

источник: http://delphi.about.com/od/adptips2006/qt/vkey2char.htm

[Munigas]

Нигде не могу найти ответ на мой вопрос : как имея число код символа получить сам символ ? В СBuilder все легко : создаешь переменную типа char, присваиваешь ей число и вот тебе символ. Но понятия не имею, как это сделать в Delphi ??? Уже пробовал через string и pchar, но уж очень плохо получается.
Может это и легко ... но я не знаю как Помогите, пожайлуста