Discussion :

[ChPr]

Bonjour à toutes et à tous,

Je lance une application "console" à partir d'une application "graphique" via "TProcess".

L'application console, au fur et à mesure qu'elle se déroule, envoie des informations à l'écran.

Y a-t-il moyen de récupérer ces informations et de les afficher (en temps réel ou presque) via mon application graphique et si oui, comment fait-on ?

Merci pour vos informations.

Cordialement.

Pierre

[DomDA91]

Voir ici : http://wiki.lazarus.freepascal.org/E...correct_yet.29

[ChPr]

Merci pour ce lien, je vais aller voir ça d'un peu plus près.

Cordialement.

Pierre.

[Roland Chastain]

Bonjour ! C'est un problème que j'ai beaucoup étudié : j'ai une collection d'exemples qui fonctionnent. Je les tiens à votre disposition. (Je suppose que c'est sous Windows.)

Cependant il y a deux cas de figure à distinguer : soit on lance une application console avec des paramètres et on se contente de lire tout ce qu'elle renvoie jusqu'à ce qu'elle se ferme d'elle-même ; soit on lance l'application et ensuite on lui envoie des commandes comme on le ferait au clavier depuis l'invite de commandes.

[ChPr]

Bonjour ! C'est un problème que j'ai beaucoup étudié : j'ai une collection d'exemples qui fonctionnent. Je les tiens à votre disposition. (Je suppose que c'est sous Windows.)

Cependant il y a deux cas de figure à distinguer : soit on lance une application console avec des paramètres et on se contente de lire tout ce qu'elle renvoie jusqu'à ce qu'elle se ferme d'elle-même ; soit on lance l'application et ensuite on lui envoie des commandes comme on le ferait au clavier depuis l'invite de commandes.

J'ai essayé d'implanter les exemples donnés dans le lien que DomDA91 m'a fourni : Je ne récupère rien d'évident et ça plante (fige) mon programme à la fin de l'application console.

Je souhaite simplement récupérer, mais au fur et à mesure qu'elles apparaissent les infos que l'appli console envoie à l'écran dont voici un exemple.

Je n'ai réussi qu'à obtenir la première ligne ..

Cordialement.

Pierre

[Roland Chastain]

J'ai essayé d'implanter les exemples donnés dans le lien que DomDA91 m'a fourni : Je ne récupère rien d'évident et ça plante (fige) mon programme à la fin de l'application console.

Attention, il est bien précisé dans le document en question que le premier exemple ne convient pas pour une grande quantité de données. Dans votre cas il faut donc plutôt utiliser cet exemple-ci :

http://wiki.lazarus.freepascal.org/E...g_large_output

Si ça ne fonctionne toujours pas je vous proposerai un code que j'ai testé. Le temps que je fouille dans mes tiroirs...

[jurassic pork]

hello,
peux-tu donner quelques précisions concernant ton programme ?
programme que sous windows ?
en mode graphique ? Affichage de la sortie console dans un TMemo par exemple ? ou console ?
gestion de la sortie erreur ?
Le programme lancé génère-t-il des accents ?

Ami calmant, J.P

[BeanzMaster]

Salut

Jette un œil dans les sources de FPCUpDeluxe notamment l'unité processutils.pas

[jurassic pork]

hello,
voici un exemple d'utilisation de la classe TProcessEx qui se trouve dans l'unité processutils proposée par BeanzMaster

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
57
58
59
60
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  LConvEncoding,Processutils;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Bt_Go: TButton;
    Bt_GoEx: TButton;
    MemConsole: TMemo;
    procedure Bt_GoExClick(Sender: TObject);
  private
 
  public
    procedure ProcessOutput(Sender:TProcessEx; output:string);
    procedure ProcessError(Sender:TProcessEx; {%H-}IsException:boolean);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Bt_GoExClick(Sender: TObject);
var Proc: TProcessEx;
begin
   try
   Proc := TProcessEx.Create(nil);
   Proc.Executable := 'cmd.exe';
   Proc.Parameters.Add('/C');
   Proc.Parameters.Add('ping.exe 127.0.0.1');
   Proc.OnErrorM:=@(ProcessError);
   Proc.OnOutputM:=@(ProcessOutput);
   Proc.Execute();
   finally
     Proc.Free;
   end;
 
end;
 
procedure TForm1.ProcessError(Sender: TProcessEx; IsException: boolean);
begin
   MemConsole.Lines.Append('Erreur ! ' + Sender.ExceptionInfo);
end;
 
procedure TForm1.ProcessOutput(Sender: TProcessEx; output : String);
begin
  //    Quand il n'y a pas de problème d'accent
  //    MemConsole.Lines.Append(output);
  //    sinon conversion de chaîne
  MemConsole.Lines.Append(ConvertEncoding(output,EncodingCP850, EncodingUTF8));
end;
 
end.

et voici ce que cela donne :


Ami calmant, J.P

[ChPr]

hello,
peux-tu donner quelques précisions concernant ton programme ?
programme que sous windows ? Si ça fonctionne sous Windows, ce sera déjà pas mal
en mode graphique ? Oui
Affichage de la sortie console dans un TMemo par exemple ? ou console ? Dans un TMemo
gestion de la sortie erreur ? Non dans un premier temps
Le programme lancé génère-t-il des accents ? Apparemment pas

Ami calmant, J.P

Cordialement.

Pierre

[ChPr]

hello,
voici un exemple d'utilisation de la classe TProcessEx qui se trouve dans l'unité processutils proposée par BeanzMaster
.....
Ami calmant, J.P

Je viens d'essayer ce code et, tel quel, cela fonctionne sauf que, n'ayant pas trouvé la constante "EncodingCP850", je n'ai pas pu gérer les accents. Ce n'est pas grave dans le sens où l'application console que veux exécuter n'en possède pas.

J'ai remplacé "cmd.exe" par mon application console et cela a parfaitement fonctionné sauf qu'à la fin, je peux pas fermer mon application graphique !

J'ai introduit un Proc.Terminate(0) avant le Proc.Free, mais cela n'a rien fait.

Une idée de ce qu'il faudrait faire ?

Cordialement.

Pierre

[BeanzMaster]

Je viens d'essayer ce code et, tel quel, cela fonctionne sauf que, n'ayant pas trouvé la constante "EncodingCP850", je n'ai pas pu gérer les accents. Ce n'est pas grave dans le sens où l'application console que veux exécuter n'en possède pas.

Quelle version de Lazarus utilises tu ?

EncodingCP850 est une constante définie dans l'unité LConvEncoding

J'ai remplacé "cmd.exe" par mon application console et cela a parfaitement fonctionné sauf qu'à la fin, je peux pas fermer mon application graphique !
J'ai introduit un Proc.Terminate(0) avant le Proc.Free, mais cela n'a rien fait.

Une idée de ce qu'il faudrait faire ?

Cordialement.

Pierre

Est-ce que ton application console est toujours exécutée,lorsque tu veux fermer ton application graphique ? attend-t-elle une réponse de ta part (genre appuyer sur une touche par exemple), ou simplement elle n'a pas fini d'exécuter ces taches ?
Si oui, ne cherches pas plus loin. Tu ne peux pas quitter ton application graphique tant que ton application console est en fonctionnement.


EDIT : La solution est simplement de passer la variable Proc : TProcessEx dans la partie public de ta "Form" et de faire Proc.Terminate(0) ça fonctionne chez moi.

[jurassic pork]

hello,

J'ai remplacé "cmd.exe" par mon application console et cela a parfaitement fonctionné sauf qu'à la fin, je peux pas fermer mon application graphique !

Le souci c'est que ton application mobat2jnx est du genre interactive. C'est à dire qu'elle peut être en attente d'un appui de touche. Dans ce cas tu restes dans le Proc.Execute et le processus n'est pas terminé. Pour t'en rendre compte, faire un point d'arrêt sur le Proc.free.
Si tout se passe bien dans l'exécution de l'application, en ajoutant l'option -noread à la fin de ta ligne de commande, cela devrait terminer ton processus.

Usage is mobat2jnx <directory> <<maxtiles>|-sas|-trimnn|-jnxscalexxx.xx|-jpegn|-bounds(n,w,s,e)
-copyjpeg> <-noread> <-tilelist>
-noread removes the 'readline' at the end of successful execution

donc mettre un :

Code :

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

  Proc.Parameters.Add('-noread');

Par contre si la commande se passe mal ou si tu lances mobat2jnx tout seul(qui affiche Hit ENTER to exit) cela va coincer.
Pour t'en sortir dans ces cas-là, il faut envoyer un CRLF sur le canal d'entrée du processus.
Pour faire cela :
1 - Définir Proc dans une variable globale.
2 - L'initialiser à Nil dans le Create de la Form.

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  Proc :=  Nil;
end;

3 - Dans l'événement OnKeyPress du TMemo mettre un code du genre :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.MemConsoleKeyPress(Sender: TObject; var Key: char);
begin
  if Proc <> nil then
  begin
  Proc.Input.WriteAnsiString(#13#10);
  end;
end;

et rajouter un Proc := Nil derrière le Proc.Free :

Code :

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

1
2
3
4
 finally
     Proc.Free;
     Proc := nil;
   end;

Comme cela, quand le programme est bloqué par une attente de touche, il suffit de taper sur une touche dans le TMemo pour continuer (il faut que le memo ait le focus à ce moment là).
Ami calmant, J.P

[ChPr]

Quelle version de Lazarus utilises tu ?

EncodingCP850 est une constante définie dans l'unité LConvEncoding ...

J'utilise la version 1.2.4 et la constante EncodingCP850 n'existe pas dans mon unité LConvEncoding

...Est-ce que ton application console est toujours exécutée,lorsque tu veux fermer ton application graphique ? attend-t-elle une réponse de ta part (genre appuyer sur une touche par exemple), ou simplement elle n'a pas fini d'exécuter ces taches ?
Si oui, ne cherches pas plus loin. Tu ne peux pas quitter ton application graphique tant que ton application console est en fonctionnement. ...

Ce qui m'avait fait dire que l'application console n'attendait rien est que lorsque je la lançais via cmd, il suffisait que je ferme l'écran console pour que cela s'arrête. Je ne sais donc pas quel est le critère qui me dit si oui ou non l'application console est toujours en exécution.

Avec l'application graphique que vous m'avez donnée, à la fin du traitement de l'application console, le pointeur graphique est toujours le sablier, je suppose donc que cela indique qu'elle est toujours active.

... EDIT : La solution est simplement de passer la variable Proc : TProcessEx dans la partie public de ta "Form" et de faire Proc.Terminate(0) ça fonctionne chez moi.

C'est ce que j'avais essayé et qui ne fonctionne pas.

Cordialement.

Pierre

[ChPr]

... Si tout se passe bien dans l'exécution de l'application, en ajoutant l'option -noread à la fin de ta ligne de commande, cela devrait terminer ton processus. ...

C'est la commande qu'il fallait dont je n'avais pas compris l'utilisation.

Je vais regarder les autres solutions que tu me proposes.

Je vous remercie tous pour votre aide.

Cordialement.

Pierre.

[DomDA91]

Code :

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

1
2
3
4
5
6
7
procedure TForm1.ProcessOutput(Sender: TProcessEx; output : String); 
begin
  //    Quand il n'y a pas de problème d'accent
  //    MemConsole.Lines.Append(output);
  //    sinon conversion de chaîne
  MemConsole.Lines.Append(ConvertEncoding(output,EncodingCP850, EncodingUTF8));
end

Ne vaudrait-il pas mieux utiliser la fonction ConsoleToUtf8 de l'unité LazUtf8 au lieu de ConvertEncoding( .. , EncodingCP850, ...) qui elle choisira la page de code OEM appropriée selon la configuration linguistique courante du système :

Code :

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

1
2
3
4
5
6
7
8
9
Uses LazUtf8;
...
procedure TForm1.ProcessOutput(Sender: TProcessEx; output: string);
begin
   //    Quand il n'y a pas de problème d'accent
   //    MemConsole.Lines.Append(output);
   //    sinon conversion de chaîne
   MemConsole.Lines.Append(ConsoleToUtf8(output));
end;

[ChPr]

Ne vaudrait-il pas mieux utiliser la fonction ConsoleToUtf8 de l'unité LazUtf8 au lieu de ConvertEncoding( .. , EncodingCP850, ...) qui elle choisira la page de code OEM appropriée selon la configuration linguistique courante du système : ...

Je viens d'essayer, et effectivement, cela fonctionne parfaitement.

Cordialement.

Pierre

[jurassic pork]

hello,
je viens d'essayer TprocessEx sous linux, cela fonctionne aussi.
Par rapport à mon ancien code j'ai apporté deux améliorations :
1 - A chaque fois que l'application lancée affichait un bloc de données, il y avait un retour à la ligne de rajouter par mon code d'affichage. J'ai donc remplacé :

Code :

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

MemConsole.Lines.Append(ConsoleToUtf8(output));

par

Code :

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

 MemConsole.Lines.Text := MemConsole.Lines.Text + ConsoleToUtf8(output);

Si quelqu'un peut m'expliquer pourquoi j'ai une erreur de compilation unit1.pas(107,36) Error: Variable identifier expected
avec cette syntaxe :

Code :

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

 MemConsole.Lines.Text +=  output;

2 - Pour avoir toujours affiché le dernier texte envoyé j'ai rajouté :

Code :

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

1
2
  MemConsole.SelStart := Length(MemConsole.Lines.Text)-1;
  MemConsole.SelLength:=0;

De plus sous Lubuntu le texte dans un terminal est déjà en UTF8.

Donc voici le code pour afficher :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.ProcessOutput(Sender: TProcessEx; output : string);
begin
  MemConsole.Lines.Text :=  MemConsole.Lines.Text + output;
  //MemConsole.Lines.Text := MemConsole.Lines.Text + ConsoleToUtf8(output);  
  // pour scroll automatique
  MemConsole.SelStart := Length(MemConsole.Lines.Text)-1;
  MemConsole.SelLength:=0;
end;

avec ce code :

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
procedure TForm1.Bt_GoExClick(Sender: TObject);
begin
   try
   Proc := TProcessEx.Create(nil);
   Proc.Executable := '/bin/ping';
   Proc.Parameters.Add('-i 0.5');
   Proc.Parameters.Add('-c 5');
   Proc.Parameters.Add('127.0.0.1');
   Proc.OnErrorM:=@(ProcessError);
   Proc.OnOutputM:=@(ProcessOutput);
   Proc.Execute();
   Proc.Executable := '/bin/bash';
   Proc.Parameters.Clear;
   Proc.Parameters.Add('-c');
   Proc.Parameters.Add('echo éêùèçà');
   Proc.Execute();
   finally
     Proc.Free;
     Proc := nil;
   end;
end;

j'obtiens ceci sous Lubuntu 16.04 64 bits Lazarus 1.8.2 :


Ami calmant, J.P

[Jipété]

Si quelqu'un peut m'expliquer pourquoi j'ai une erreur de compilation unit1.pas(107,36) Error: Variable identifier expected
avec cette syntaxe :

Code :

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

 MemConsole.Lines.Text +=  output;

Parce que Lazarus ne supporte pas la syntaxe C ?

J'ai essayé chez moi c'est pareil, j'ai essayé en rajoutant ":" (memo1.Lines.Text +:= output;) c'est pire : 3 lignes d'erreur au lieu d'une

[jurassic pork]

en version 1.8.x l'option Opérateur de style C (*=, +=, /= et -=) (-Sc, {$COPERATORS ON}) est coché par défaut et d'ailleurs

le code suivant :

Code :

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

1
2
3
4
5
var  str1,str2 : string;
begin
  str1 := 'hello ';
  str2 := 'world';   
  str1 += str2;

ne produit pas d'erreurs de compilation et fonctionne