VPF::crt, консоль, KeyEvent - Форум программистов

MoRoZfromT

Дата 21.4.2006, 12:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Надо сделать консольное приложение в Delphi 7. Нашел несколько реализаций модуля crt. Во всех присутствует KeyEvent. На что получаю ругательство "Undeclared identifier: 'KeyEvent'".

Примеры из разных модулей:

Код


function  KeyPressed: Boolean;
Var irInBuf : TInputRecord;
    W : DWord;
begin
  KeyPressed := False;
  if PeekConsoleInput(RHandle,irInBuf,1,W) then
    if ( (irInBuf.EventType = Key_Event) and
         (irInBuf.KeyEvent.bKeyDown = true))
       then
      KeyPressed := true;
end;

Код


 begin 
      if (InputRec.EventType = KEY_EVENT) and 
        (InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.KeyEvent.bKeyDown) then 
..............

или если не использовать crt, а юзать то, что есть в факах http://vingrad.ru/DELPHI-SYSTEM-000026
Там тоже KeyEvent:

Код


ReadConsoleInput(GetConInputHandle, IBuff, 1, IEvent); 
 case IBuff.EventType of 
   KEY_EVENT : 
     begin 
       // Проверяем клавишу ESC и завершаем программу 
       if ((IBuff.KeyEvent.bKeyDown = True) and 
       (IBuff.KeyEvent.wVirtualKeyCode = VK_ESCAPE)) then 
         Continue := False; 
     end;

Где взять то его? Замучался уже. Помогите пожалуйста.

Alexeis

Дата 21.4.2006, 12:18 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

MoRoZfromT, Key_Event описан в модуле windows
uses windows; и все smile

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

MoRoZfromT

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

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

Загрузка ...

Новичок

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

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

У меня модуль windows подключен. Даже нашел вот в нем

Код


  PInputRecord = ^TInputRecord;
  {$EXTERNALSYM _INPUT_RECORD}
  _INPUT_RECORD = record
    EventType: Word;
    Reserved: Word;
    Event: Record case Integer of
      0: (KeyEvent: TKeyEventRecord);
      1: (MouseEvent: TMouseEventRecord);
      2: (WindowBufferSizeEvent: TWindowBufferSizeRecord);
      3: (MenuEvent: TMenuEventRecord);
      4: (FocusEvent: TFocusEventRecord);

Если объявлять
IBuff: PInputRecord; (в оригинальном исходнике IBuff: TInputRecord;)
то получаю
Types of actual and formal var parameters must be identical
на строке
ReadConsoleInput(GetConInputHandle, IBuff, 1, IEvent);
не пойму, как нужно сделать.

Alexeis

Дата 21.4.2006, 15:04 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Понял!!!
вместо IBuff.KeyEvent.bKeyDown = True
IBuff.Event.KeyEvent.bKeyDown = True
ошибка в DRKB
и так далее...

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

MoRoZfromT

Дата 21.4.2006, 15:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Ура. спасибо большое!

Остальное я сам победил. Чтобы все работало из примера в drkb нужно сделать:

// ConHandle: THandle; // Дескриптор консольного окна
заменить на:
ConHandle: Cardinal;

// NOAW: LongInt; // Для хранения результатов некоторых функций
заменить на:
NOAW: Cardinal;

Mr_Nuke

Дата 19.5.2009, 22:18 (ссылка)

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

Загрузка ...

Шустрый

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

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

Проблема 1 в 1.

Выдает ошибку на функции

Код


function KeyPressed: Boolean;
var
  NumberOfEvents: DWORD;
  NumRead: DWORD;
  InputRec: TInputRecord;
  Pressed: boolean;
begin
  Pressed := False;
  GetNumberOfConsoleInputEvents(hConsoleInput, NumberOfEvents);
  if NumberOfEvents > 0 then
  begin
    if PeekConsoleInput(hConsoleInput, InputRec, 1,NumRead) then
    begin
      if (InputRec.EventType = KEY_EVENT) and
        (InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.KeyEvent.bKeyDown) then
      begin
        Pressed := True;
        {$IfDef MOUSE_IS_USED}
        MouseButtonPressed := False;
        {$EndIf}
      end
      else
      begin
        {$IfDef MOUSE_IS_USED}
        if (InputRec.EventType = _MOUSE_EVENT) then
        begin
          with InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.MouseEvent do
          begin
            MousePosX := dwMousePosition.X;
            MousePosY := dwMousePosition.Y;
            if dwButtonState = FROM_LEFT_1ST_BUTTON_PRESSED then
            begin
              MouseEventTime := Now;
              MouseButtonPressed := True;
              {If (dwEventFlags AND DOUBLE_CLICK)<>0 Then Begin}
              {End;}
            end;
          end;
        end;
        ReadConsoleInput(hConsoleInput, InputRec, 1,NumRead);
        {$Else}
        ReadConsoleInput(hConsoleInput, InputRec, 1,NumRead);
        {$EndIf}
      end;
    end;
  end;
  Result := Pressed;
end;

на строке

Код


(InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.KeyEvent.bKeyDown) then

пишет undeclared identifier 'KeyEvent'

Может под вечер в чем-то не догоняю, но вроде Alexeis именно так и написал smile

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