console keypress non bloquant

Version imprimable

22/03/2010, 14h28
ouiouioui

console keypress non bloquant

bonjour, je developpe un programme console qui effectue une boucle infinie avec un sleep

je cherche un moyen après chaque sleep de savoir si l'utilisateur a appuyé sur une touche.

ceci sans attendre, contrairement à read et readln

la je passe par un txt qui est lu après chaque sleep et qui execute son contenu si pas vide ce qui n'est pas pratique du tout

merci pour votre aide

Quelque chose du genre...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
//Variable global
var
InputHan: THandle;
 
 
//==============================================================================
//== Récupération des handles StdIn 
//== Cette fonction est appelé par la section Initialization
Procedure InitStdInOut();
Begin
  InputHan := GetStdHandle(STD_INPUT_HANDLE);
End;
 
 
 
Var
  dw: DWord;
  buf: TInputRecord;
begin
if WaitForSingleObject(InputHan,100)=WAIT_OBJECT_0 then
begin
    ReadConsoleInput(InputHan, buf, 1, dw);
    // Même + (Mouse, _MOUSE_EVENT,
    //WINDOW_BUFFER_SIZE_EVENT,MENU_EVENT et FOCUS_EVENT
    //voir Help sur ReadConsoleInput
    If (buf.EventType = KEY_EVENT) And (buf.Event.KeyEvent.bKeyDown) Then
    Begin
      //des lettres=> buf.Event.KeyEvent.AsciiChar
      //touche special=>buf.Event.KeyEvent.wVirtualKeyCode      
    End;
end;

23/03/2010, 15h50
ouiouioui

merci beaucoup, j'était partis sur un thread pour ma boucle et un read dans mon programm mais pas pratique.

c'est de vous ou vous y avez trouvé?

merci
23/03/2010, 16h17
Eric Boisvert

+ ou - des extraits de mon code pour le defi des serpents....
tu devrais y jeter un coup d'oeil....

http://delphi.developpez.com/defi/serpent/
23/03/2010, 18h37
ouiouioui

merci je vais voir sa:ccool: