Readkey auf Konsole

[dmw256]

Moin, moin!

Bin´s schon wieder... (Die API-Cracks konnten mir nisch helfen,
drum versuch ich´s jetzt halt hier)

Wie kann man in einer Konsolen-Anwendung ein einzelnes Zeichen
von der Tastatur einlesen (wie readkey unter TurboPascal)???
Hab bis jetzt in der API nix brauchbares gefunden...

Grüße an alle da draußen!
doni

[sakura]

Ich habe mal ein wenig rumexperimentiert. Ich habe den Code auf Windows 2000 getestet, sollte also i.A. NT-fähig sein. Bleibt noch ein 9X/ME Test offen. Es kann übrigens sein, das durch das Festhalten einer Taste nicht alle Anschläge verarbeitet werden, sollte aber nicht viel ausmachen ;-)

Für eine bessere Effizienz könntest Du die Variable Hdl als globale Variable einrichten und deren Wert so nur einmal "erforschen".

Nachteil: Du musst mit den Virtual Key Codes arbeiten (VK_LEFT, VK_RIGHT, VK_xxxx). Die sind alle in der Unit WINDOWS definiert. (Ord('A')...Ord('Z') für die Buchstabentasten).

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

function KeyPress: Word;
var
  Read: Cardinal;
  Hdl: THandle;
  Rec: _INPUT_RECORD;
begin
  Hdl := GetStdHandle(STD_INPUT_HANDLE);
  repeat
    Rec.EventType := KEY_EVENT;
    ReadConsoleInput(Hdl, Rec, 1, Read);
  until (Read = 1) and (Rec.Event.KeyEvent.bKeyDown);
  Result := Rec.Event.KeyEvent.wVirtualKeyCode;
end;

var
  Ch: Word;

begin
  Ch := KeyPress();
  while Ch <> VK_ESCAPE do
  begin
    WriteLn(Ch);
    Ch := KeyPress();
  end;
end.

Viel Spass
...:cat:...

[dmw256]

Hey - es klappt!!! :bounce2:
(auch unter Win98)

Hab mega-mäßig vielen Dank!
Grüße an das Kätzchen
...:cat:...

[sakura]

Gern geschehen. Heute hat es mich dann auch endlich mal gejuckt. Ich habe auch darauf gewartet, ob es vielleicht etwas "einfacheres" gibt, aber na ja, einfach mal ein wenig bei MDSN geschnüffelt.

..DANKE.:cat:.EKNAD..