Discussion :

[Roland Chastain]

Bonjour ! J'essaie de résoudre le problème suivant.

Soit une application console, Upper.exe, qui renvoie en majuscules tout ce qu'elle reçoit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program Upper;
 
uses
  SysUtils;
 
var
  s: string;
 
begin
  while not EOF do
  begin
    ReadLn(s);
 
    if s = 'quit' then
      Break
    else
      WriteLn(UpperCase(s));
  end;
end.

Soit une deuxième application, UpperInterface.exe, qui sera l'application effectivement utilisée par... l'utilisateur, et qui devra se comporter extérieurement comme Upper.exe, après l'avoir lancé.

J'ai un code basé sur l'API Windows qui fait presque cela, sauf qu'il reste bloqué. Si je lance UpperInterface.exe et que je saisis quelque chose dans la console. Rien ne se passe. C'est lorsque j'appuie sur Ctrl+Z puis entrée que je vois apparaître la "réponse" de Upper.exe.

Qu'est-ce que je dois faire ? Mettre le ReadLn dans un thread aussi ? Utiliser WaitForSingleObject, PeekNamedPipe, PeekConsoleInput... Je me perds dans tout ça.

J'espère que j'ai été clair. Ci-joint le code des deux programmes. Voir plus loin un exemple qui fonctionne.

[Roland Chastain]

En fait c'est toujours le même problème que celui abordé dans cette vieille discussion. J'avais trouvé un programme en C qui faisait ce que je voulais. Je l'ai traduit en Pascal mais la version Pascal n'a jamais fonctionné.

Je vais peut-être le faire en C, tout compte fait, mon programme.

[BeanzMaster]

Salut Roland

Si j'ai bien compris tu as un programme "UpperInterface.exe" lancé par ton programme de jeux d'echec (disons "Echec.exe") . "UpperInterface.exe" lance et doit récupérer les infos retournés par "Upper" et les renvoyés lui même dans "Echec.Exe" c'est bien ça ?

As tu essayé de passer par TProcess ? cf https://www.developpez.net/forums/d1.../#post10167133

A+

[EDIT] sinon peut-être avec les composants IPC https://www.developpez.net/forums/d1.../#post10238316

[Roland Chastain]

Bonjour Jérôme ! Oui tu as très bien compris mais pour ne pas compliquer les choses on peut faire abstraction d'Echec.exe. Là dans ce cas disons que c'est un simple utilisateur qui ouvre UpperInterface.exe, qui tape "bla" et UpperInterface.exe doit lui répondre "BLA".

Merci pour les liens. Je vais les regarder.

D'un autre côté comme j'ai un programme en C qui le fait, je me suis remis à étudier ce programme.

Le problème sur lequel je bute, c'est d'écrire dans la console tout en laissant la possibilité à l'utilisateur d'entrer quelque chose. Enfin, c'est quelque chose comme ça.

[BeanzMaster]

Voila j'ai fais un test vite fait, je pense que c'est plus ou moins ce que tu recherches

ShareConsole.zip

PS : pour UpperTool il faut le compiler sans débogage

[EDIT] voici une variante fonctionnelle de Client :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program Client;
 
{$mode objfpc}{$H+}
 
{$IFDEF WINDOWS}
  {$APPTYPE CONSOLE} // Définition du type d'application
  {$CODEPAGE UTF-8}  // A rajouter sous Windows pour forcer le mode UTF-8 pour les chaînes de caractères en mode console
{$ENDIF}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  // Classes,
  SysUtils,  Process, Processutils //FileUtil,LConvEncoding,LazUTF8
  { you can add units after this };
 
var
  UpperToolOutput : String;
 
procedure ProcessOutput(Sender:TProcessEx; output:string);
begin
  UpperToolOutput := Output; //ConsoleToUtf8(output);
end;
 
procedure ProcessError(Sender: TProcessEx; IsException: boolean);
begin
  if IsException then
    UpperToolOutput := 'Erreur ! ' + Sender.ExceptionInfo
  else UpperToolOutput := 'Erreur inconnue ! ';
end;
 
var
  UserInput : String;
  cmdProcess : TProcessEx;
begin
  WriteLn('Entrez quelque chose :');
  ReadLn(UserInput);
  try
    cmdProcess := TProcessEx.Create(nil);
    cmdProcess.ShowWindow := swoHIDE;
    cmdProcess.Executable := 'UpperTool' ;
    cmdProcess.Parameters.Add(UserInput);
    cmdProcess.OnError := @ProcessError;
    cmdProcess.OnOutput := @ProcessOutput;
    cmdProcess.Execute();
   // if ExecuteCommand('UpperTool '+UserInput, UpperToolOutput,false) <> 0 then UpperToolOutput := 'Erreur !';
  finally
     FreeAndNil(cmdProcess);
  end;
 
  Write('Réponse : '); writeln(UpperToolOutput);
  Readln;
 
 
end.

[Roland Chastain]

Merci pour ton code Jérôme. Cette unité ProcessUtils a l'air intéressante.

Mais ton exemple ne fait pas la même chose que le mien. Tu passes un paramètre à l'outil au moment où tu l'exécutes. Ça ne convient pas, parce que moi j'ai besoin de lui envoyer de nouvelles commandes à tout moment.