VPF::Скан код -> ANSI код - Форум программистов

RinOSpro

Дата 19.12.2007, 15:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здавствуйте по адресу $60 получаю коды с клавиатуры

Код


key := Inp32($60);

Подскажите как переводить сканкоды в анси коды. Если есть примеры на асме или с++ давайте, разберусь. Заранее спасибо!

RinOSpro

Дата 21.12.2007, 15:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну пожалуста помогите!!!

mmvds

Дата 22.12.2007, 21:25 (ссылка)

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

Загрузка ...

Бывалый

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

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

simbol:=chr(номер_сканкода);
тип simbol будет char
но можно и в строку загнать:
stroka:=stroka+chr(номер_сканкода);

mr.Anderson

Дата 22.12.2007, 21:32 (ссылка)

(голосов:1)

Загрузка ...

iOS Lead Developer

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

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

Код


...
var
 s : AnsiString;
...
 key := Inp32($60); //для меня строчка непонятная. Предположу, что в Key - скан-код
 s := s + Chr( key );
...

Это сообщение отредактировал(а) mr.Anderson - 22.12.2007, 21:32

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

RinOSpro

Дата 24.12.2007, 19:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

К сожелению функция chr относиться к ANSI но не к апаратным кодам.

Есть два выхода как я понял.

1. Это использовать драйвер (хз как)
2. Составить массив методом тыка отношения Скан-код = ANSI
'-Esc-','1','2','3','4','5','6','7','8','9','0','-','=','-Bsp-','-Tab-','q','w','e','r','t','y','u','i','o','p'....

но опять же получается что я не могу обработать русские буквы и регистр символа...

Qu1nt

Дата 25.12.2007, 03:00 (ссылка)

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

Загрузка ...

Опытный

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

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

Проверяй Caps Lock, Shift и KeyboardLayout.

RinOSpro

Дата 25.12.2007, 13:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Qu1nt на счет Caps Lock, Shift понятно а как быть с KeyboardLayout что не понял как его использовать.

Qu1nt

Дата 26.12.2007, 12:20 (ссылка)

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

Загрузка ...

Опытный

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

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

Можно так.

Код


var
  KeyboardLayout: Word;
  Thread: DWORD;
  Index: Byte;
begin
  Thread := GetCurrentThreadId();
  KeyboardLayout := Word(GetKeyboardLayout(Thread));
  case KeyboardLayout of
    $409: Index := 0; // english
    $419: Index := 2; // russian
  else
    Exit;  
  end;

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