VPF::Как в консоли получать нажатые клавиши?

кварк

Дата 15.4.2005, 10:20 (ссылка)

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

Загрузка ...

Шустрый

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

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

В консольном приложении надо получать коды нажатых клавиш. Как бы это реализовать?
Желательно, без эхо-повтора в консоли.

Read ждет нажатия Enter и выводит эхо на экран. Какие функции использовать?

Snowy

Дата 15.4.2005, 11:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Это твоя программа, или ты запускаешь стороннюю?
Если стороннюю, то запускай ее через CreateProcess - в нем ты можешь указать устройство ввода, и потом посылать через него клавиши.

Akella

Дата 15.4.2005, 11:43 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Помоему read или ReadLn

кварк

Дата 15.4.2005, 14:52 (ссылка)

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

Загрузка ...

Шустрый

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

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

Моя программа, конечно.

что read, что readln ждут нажатия enter. И выводят символ в окно консоли. А это не то, что мне нужно. Мне нужно организовать что-то а-ля цикл обработки сообщений в виндовом приложениии:

Код


инициализация

while [выходить не надо] do
begin
   Что-то делаем
   
   Есть нажатая клавиша? Читаем ее код.
   
   Анализируем нажатую клавишу.
end

Вот меня реализация строчки 7 интересует. Когда-то давно я писал не задумываясь

Код


  while keypressed do read(ch);

А теперь такое не проходит: реакция происходит после нажатия на Enter.

Это сообщение отредактировал(а) кварк - 15.4.2005, 15:01

Dimannn

Дата 15.4.2005, 15:40 (ссылка)

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

Загрузка ...

Опытный

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

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

Незнаю как Delphi, но в Паскале (7.0) була функция ReadKeyж
т.е

Код


while keypressed do ch:=ReadKey;

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

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

Snowy

Дата 15.4.2005, 15:51 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Вот, держи юнит для работы с консолью.
Там есть пример, как в консоли работать с устройством ввода, на примере ожидания клавиши Esc.
Добавлено @ 15:52

Цитата(Dimannn @ 15.4.2005, 15:40)

while keypressed do ch:=ReadKey;

В Delphi это не работает - отсутствует юнит Crt.

Присоединённый файл ( Кол-во скачиваний: 5 )

console.zip

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