Controler le texte taper en aplli console

Question

Bonjour,
Suite a mon message sans réponse, je reformule differement ma question.
Comment controler ce que l'utilisateur de l'appli console tape avant l'affichage même ?
Merci de me repondre, c'est urgent pour moi !!!
Peut etre s'orirnter vers des procedures OnKeypress, mais je sias pas comment faire !!
AIDEZ mOI !!!

Merci d'avance

Kundun
http://www.kundun-official.com

Bruto · Answer

Oui c'est avec cet évènement que tu réussiras.
Tu trouveras alors la variable Key ( un de ses paramètres ) qui contient la lettre tapée par l'utilisateur. Puis à toi de faire le traitement.
ex :
if Key = #13 then
   Key := #0

En espérant que cela t'aide. Bonne prog.
 ;)  Bruto --- Le p'tit belge --- pour vous servir

Bruto · Answer

Oui c'est avec cet évènement que tu réussiras.
Tu trouveras alors la variable Key ( un de ses paramètres ) qui contient la lettre tapée par l'utilisateur. Puis à toi de faire le traitement.
ex :
if Key = #13 then
   Key := #0

En espérant que cela t'aide. Bonne prog.
 ;)  Bruto --- Le p'tit belge --- pour vous servir

cs_Bestiol · Answer

Si je ne me trompe pas, ces évènements ne sont pas disponibles pour les applications console...

Peut être en utilisant un message Windows ??

Mais là, faut que j'y aille !!
Bonne prg' !
Bestiol.

cs_Nono40 · Answer

Je viens d'essayer avec un OnMessage, mais sans succès. Il semble que la boucle des messages windows ne fonctionne pas pendant les application consoles.

J'ai essayer aussi un Hook clavier mais c'est pareil : pas moyen d'ouvrir le hook...

--- :sleepy)  Nono du Moulin  :sleepy) ---

cs_Delphiprog · Answer

Pour te mettre sur la voie, regardes la page suivante : How to automatic detect whether any key being pressed ou fais une recherche sur "pascal keypressed".

May Delphi be with you.
site Delphiprog

cs_Nono40 · Answer

Ben, là je donne ma langue au chat...

Je connais Keypressed, mais Delphi ne le connait plus...

--- :sleepy)  Nono du Moulin  :sleepy) ---

cs_Delphiprog · Answer

Bon allez, j'ai retrouvé un de mes vieux codes sources d'une application console qui boucle en affichant l'heure et en attendant la frappe de la touche ESC :

-----------------------------------------------------------
program AppliConsole;
{$AppType Console}

uses SysUtils, Windows, Dialogs;

begin
  SetConsoleTitle('Horloge en fenêtre DOS');
  writeln('Hello, this is a Delphi console application from a DOS window');
  writeln('Appuyer sur une touche...');
  Readln;
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),
                          FOREGROUND_Green OR
                          BACKGROUND_BLUE);

  repeat
    Write(FormatDateTime('HH:NN:SS', now)+ #13);
   (GetAsyncKeyState(VK_ESCAPE))));
    Read;
  until HiWord(GetAsyncKeyState(VK_ESCAPE)) <> 0;

  Writeln('Finished');
end.
-------------------------------------------------------
May Delphi be with you.
site Delphiprog

cs_Nono40 · Answer

Je n'avais pas pensé à GetAsyncKeyState()...

Mais cette fonctionne retourne l'état des touches actuellement appuyées, comment savoir alors si les touches appuyées sont à destination de l'application console ou d'une autre ? Car avant de faire Read() il faut être sûr qu'il y a des touches à lire, sinon l'exécution est bloquée...

--- :sleepy)  Nono du Moulin  :sleepy) ---

cs_Delphiprog · Answer

Dans le cas présent, l'application n'est absolument pas bloquée sauf au début (ReadLn attend la frappe de la touche Enter). 
Si une autre application est activée, alors la frappe d'une touche sera dirigée vers cette autre application. C'est la règle habituelle.
Si la fenêtre DOS de cette appli est active, alors la touche frappée est dirigée vers cette application.
Essayes le code cette application et tu verras que l'exécution n'est pas bloquée.
Mais, s'il y a de meilleures solutions, je suis preneur.

May Delphi be with you.
site Delphiprog

cs_Nono40 · Answer

Il y a sans doute quelque-chose de bizarre mais je n'ai pas réussi à arreter l'affichage de l'heure avec ESC. Je ne sais pas si ton programme est complet car il y a des parenthèses en trop.

Quoi qu'il en soit, à force de fouiller dans l'API j'ai trouvé un moyen de lire les évenements ( clavier mais aussi souris et autre ) dans une application console. Je vais donc poser un source permettant de créer les fonctions KeyPressed et ReadKey sous Delphi.

Je pense que la ligne If Keypressed Then... va te rappeler des bons vieux souvernirs du Turbo Pascal.

--- :sleepy)  Nono du Moulin  :sleepy) ---

cs_Delphiprog · Answer

Bons, je ne sais pas, mais vieux, c'est sûr !
C'est curieux, mais l'appui sur la touche Escape fonctionne chez moi.
Quelle pourrait en être la raison ?

May Delphi be with you.
site Delphiprog

Kundun2 · Answer

Salut,
merci a tous de repondre a mon post.
Le dernier de Nono40 m'a été utile.
Cependant, comment faire pour ecrire autre chose que ce que tape l'utilisateur ?
Avec les fonctions de Nono, je vois pas comment faire.
Lorsque je fais :
If KeyPressed Then WriteLn('Test');
ca marche pas !! il m'écrit la touche tapée....
Pourrait-on m'éclairer la dessus ?
En tous cas merci de vous etre creuser la tête pour moi !!!!

Kundun
http://www.kundun-official.com

Kundun2 · Answer

Salut,
merci a tous de repondre a mon post.
Le dernier de Nono40 m'a été utile.
Cependant, comment faire pour ecrire autre chose que ce que tape l'utilisateur ?
Avec les fonctions de Nono, je vois pas comment faire.
Lorsque je fais :
If KeyPressed Then WriteLn('Test');
ca marche pas !! il m'écrit la touche tapée....
Pourrait-on m'éclairer la dessus ?
En tous cas merci de vous etre creuser la tête pour moi !!!!

Kundun
http://www.kundun-official.com

Kundun2 · Answer

Salut,
merci a tous de repondre a mon post.
Le dernier de Nono40 m'a été utile.
Cependant, comment faire pour ecrire autre chose que ce que tape l'utilisateur ?
Avec les fonctions de Nono, je vois pas comment faire.
Lorsque je fais :
If KeyPressed Then WriteLn('Test');
ca marche pas !! il m'écrit la touche tapée....
Pourrait-on m'éclairer la dessus ?
En tous cas merci de vous etre creuser la tête pour moi !!!!

Kundun
http://www.kundun-official.com

Kundun2 · Answer

Salut,
merci a tous de repondre a mon post.
Le dernier de Nono40 m'a été utile.
Cependant, comment faire pour ecrire autre chose que ce que tape l'utilisateur ?
Avec les fonctions de Nono, je vois pas comment faire.
Lorsque je fais :
If KeyPressed Then WriteLn('Test');
ca marche pas !! il m'écrit la touche tapée....
Pourrait-on m'éclairer la dessus ?
En tous cas merci de vous etre creuser la tête pour moi !!!!

Kundun
http://www.kundun-official.com

Kundun2 · Answer

Salut,
merci a tous de repondre a mon post.
Le dernier de Nono40 m'a été utile.
Cependant, comment faire pour ecrire autre chose que ce que tape l'utilisateur ?
Avec les fonctions de Nono, je vois pas comment faire.
Lorsque je fais :
If KeyPressed Then WriteLn('Test');
ca marche pas !! il m'écrit la touche tapée....
Pourrait-on m'éclairer la dessus ?
En tous cas merci de vous etre creuser la tête pour moi !!!!

Kundun
http://www.kundun-official.com

Kundun2 · Answer

Salut,
merci a tous de repondre a mon post.
Le dernier de Nono40 m'a été utile.
Cependant, comment faire pour ecrire autre chose que ce que tape l'utilisateur ?
Avec les fonctions de Nono, je vois pas comment faire.
Lorsque je fais :
If KeyPressed Then WriteLn('Test');
ca marche pas !! il m'écrit la touche tapée....
Pourrait-on m'éclairer la dessus ?
En tous cas merci de vous etre creuser la tête pour moi !!!!

Kundun
http://www.kundun-official.com

cs_Nono40 · Answer

Je ne vois pas pourquoi la touche serait affichée...

Utilises-tu ensuite les fonctions Read ou ReadLn ? Car ces fonctions affichent par défaut en echo les touches tappées. Pour lire les touches saisies il faut utilser ReadKey.

--- :sleepy)  Nono du Moulin  :sleepy) ---

Kundun2 · Answer

Ca marche mais en fait, voila mon code :

Var S:String;
I:Integer;
Tab:array [1..8] of string;
begin
Tab[1]:='K';
Tab[2]:='U';
Tab[3]:='N';
Tab[4]:='D';
Tab[5]:='U';
Tab[6]:='N';
Tab[7]:='2';
Write('Bonjour : ');
I:=1;
repeat
    If KeyPressed Then
    begin
      Write(Tab);
      Inc(I);
    end;
    until false;
end.
//------------------------------------------------------
Je voudrais que quoi que tape l'utilisateur, ca m'ecrive les elements de mon tableau au fur et a mesure.
Le code ci dessus ecrit tous d'un coup et ferme l'appli. Par contre, quant je met : 
If KeyPressed Then
    begin
      Write(Tab[I],ReadKey);
      Inc(I);
....
Ca m'ecrit les elements de mon tableau au fur et a mesure mais avec le caractère taper par l'utilisateur. (ex :KjUhNzDpUqNw)

Comment faire pour que ca marche !!!!!
Merci d'avance    

Kundun
http://www.kundun-official.com

cs_Nono40 · Answer

Ben c'est normal :
- KeyPressed retourne vrai si une touche est appuyée mais : Keuypressed reste vrai tant que la touche n'est pas lue par ReadKey. Donc sans le ReadKey, dès que tu appuyes sur une touche Keypressed reste vrai et tout le message est affiché !
- Dans le deuxième cas : Write(Tab[i],ReadKey), c'est normal que la touche s'affiche car tu lui demandes de s'afficher avec le Write !!!

En fait il faut écrire quelque chose comme :
repeat
    If KeyPressed Then
    begin
      ReadKey;
      Write(Tab[I]);
      Inc(I);
    end;
until false;

--- :sleepy)  Nono du Moulin  :sleepy) ---

Controler le texte taper en aplli console

20 réponses

Votre réponse

Discussions similaires