TProcess : redirection d'un flux Python vers un TMemo

**naute** · 28/08/2020, 12h52

Bonjour

.

Je voudrais rediriger le flux de sortie d'un script Python vers un TMemo.

J'utilise le script Python suivant :

Code python :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/env python
# coding: utf8
 
import time
print('Compte à rebours:')
time.sleep(1.0)
i = 1
while i < 11:
     print(11 - i)
     i += 1
     time.sleep(1.0)
print('C''est parti:')

Si je le lance dans la console, ça me donne :
Nom : Capture du 2020-08-28 12-25-19.png
Affichages : 1167
Taille : 18,9 Ko

En utilisant le code Lazarus suivant :

Code pascal :

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Processus: TProcess;
begin
  try
    Processus := TProcess.Create(nil);
    Processus.Executable:= 'python';
    Processus.Parameters.Add('test.py');
    Processus.Options := Processus.Options + [poUsePipes];
    Processus.Execute;
    Memo1.Lines.LoadFromStream(Processus.output);
    finally
    Processus.Free;
  end;
end;

j'obtiens ceci :
Nom : Capture du 2020-08-28 12-25-37.png
Affichages : 1010
Taille : 10,6 Ko

Apparemment tout va bien sauf que dans la console, l'affichage suit bien le script, à savoir :

affichage de "Compte à rebours :" ;
pause de 1 seconde ;
affichage de "10" ;
pause de 1 seconde
... ;
affichage de "C'est parti :".

alors qu'en ce qui concerne le TMemo, le tout s'affiche en bloc après une attente correspondant à la somme des pauses.

Y a-t-il un moyen d'obtenir sur le TMemo le même affichage "dynamique" que sur la console ?

Merci d'avance,
naute

**jurassic pork** · 28/08/2020, 13h09

hello,
pour faire des échanges entre lazarus et du python il y a mieux qu'utiliser un Tprocess : il y a le paquet pythonForlazarus voir ici . PythonForLazarus est présent dans le gestionnaire de paquets en ligne.

Ami calmant, J.P

**naute** · 28/08/2020, 15h45

Bonjour jurassic pork

.

Merci pour ta réponse

.

Dans mes recherches sur TProcess, je suis déjà tombé sur le fil dont tu parles, mais mon but n'est pas spécifiquement faire des échanges entre Lazarus et Python. Les scripts que j'utilise n'attendent pas une saisie utilisateur. Ils n'ont besoin que de la ligne de commande.

Je veux simplement lancer sous Lazarus des scripts python (ça c'est simple), et à l'occasion des commandes shell, et utiliser un TMemo comme stdOut à la place de la console, autant pour les sorties normales que pour les messages d'erreur, et que le rendu soit le même qu'avec la console, c'est à dire ne pas attendre que le programme soit terminé pour afficher les résultats intermédiaires. Est-ce que pythonForlazarus fait ça ?

J'ai déjà installé le paquet CmdLine (qui est dans le dépot local comme pythonFoLazarus), pour voir, mais l'absence de doc, comme pour beaucoup de paquets, le rend inutilisable (ce n'est pas une critique, mais c'est dommage de faire un super boulot qui s'avérera difficile, voire impossible, à exploiter en raison d'un manque de documentation).

Amicalement,
naute

**tourlourou** · 28/08/2020, 16h10

Bonjour,
Y aurait-il une piste ici, à l'alinéa "Reading large output" en adaptant la boucle de lecture ?

**jurassic pork** · 28/08/2020, 16h35

hello,
il y a mieux que TProcess :

Code :

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

TprocessEx includes Real time output management.

voir ici

et PythonforLazarus affiche aussi les print en temps réel :

Nom : pythonForLazarus.gif
Affichages : 1027
Taille : 26,6 Ko

Ami calmant, J.P

**Roland Chastain** · 28/08/2020, 17h25

Bonjour !

Dans les exemples de Lazarus, il y a une démo qui permet de faire ce genre de chose. Elle permet même de faire plus, puisqu'on peut envoyer des lignes au processus en cours d'exécution.

https://sourceforge.net/p/lazarus-cc...momainform.pas

**BeanzMaster** · 28/08/2020, 17h32

Salut Naute,

Un des problèmes c'est ton script python qui utilise Print et qui est "bloquant"

Essayes comme ceci :

Code python :

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
 
#!/usr/bin/env python
# coding: utf8
 
import sys, time
 
def ConsolePrint(msg):
      sys.stdout.write(msg)
      sys.stdout.flush()
 
print('Compte à rebours:')
time.sleep(1.0)
i = 1
while i < 11:
     j = 11 - i
     mymsg = str(j) + "\n"
     ConsolePrint(mymsg)
     i += 1
     time.sleep(0.5)
print('C''est parti:')

Deuxièmement utilises plutôt l'unité "ProcessUtil" de cette discussion et de FPCUpDeluxe

(Notes : Tu peux commenter les lignes de 274 à 277 pour avoir un affichage bien clean)

Ensuite procèdes comme ceci :

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Process, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ProcessUtils;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    mmoConsole: TMemo;
    Button1: TButton;
 
    procedure Button1Click(Sender: TObject);
  private
    FProcessEx : TProcessEx;
    procedure ProcessExOutput(Sender:TProcessEx; output:string);
    procedure ProcessExError(Sender:TProcessEx; {%H-}IsException:boolean);
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
uses LazUTF8;
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
   Screen.Cursor := crHourGlass;
   FProcessEx := TProcessEx.Create(Self);
   FProcessEx.Options :=  FProcessEx.Options + [poUsePipes];
   FProcessEx.Executable := 'python';
   FProcessEx.Parameters.Add('test2.py');
   FProcessEx.OnOutputM := @ProcessExOutput;
   FProcessEx.OnErrorM := @ProcessExError;
   FProcessEx.PipeBufferSize := 10 * 1024;
 
   FProcessEx.Execute();
 
   While FProcessEx.Running do
   begin
     If FProcessEx.Output.NumBytesAvailable > 0 Then
     begin
       Application.ProcessMessages;
     end;
     If FProcessEx.StdErr.NumBytesAvailable > 0 Then
     begin
       Application.ProcessMessages;
     end;
   end;
 
  finally
   FreeAndNil(FProcessEx);
   Screen.Cursor := crDefault;
  end;
end;
 
procedure TForm1.ProcessExError(Sender: TProcessEx; IsException: boolean);
begin
   mmoConsole.Lines.Append('Erreur ! ' + Sender.ExceptionInfo);
end;
 
procedure TForm1.ProcessExOutput(Sender: TProcessEx; output : String);
begin
  {$IFDEF WINDOWS}
  mmoConsole.Lines.Text :=  mmoConsole.Lines.Text + WinCPToUTF8(output);
  {$ELSE}
  mmoConsole.Lines.Text :=  mmoConsole.Lines.Text + output;
  {$ENDIF}
 
  // pour scroll automatique
  mmoConsole.SelStart := Length(mmoConsole.Lines.Text)-1;
  mmoConsole.SelLength:=0;
 
end;
 
end.

Résultat sous Windows

A+

Jérôme

EDIT : @jurassic pork : Le temps que je ponde l'exemple, nos message se sont croisés

**BeanzMaster** · 28/08/2020, 17h58

Y'a eu de la mise à jour du coté de FPCUpDeluxe je te met l'unié "ProcessUtils" en attachement

A+

Jérôme

**Jipété** · 05/09/2020, 19h33

Salut,

je squatte cette discussion deux secondes, ça va intéresser tout le monde :

Envoyé par BeanzMaster

Y'a eu de la mise à jour du côté de FPCUpDeluxe

du côté de FPC, du côté de Lazarus, ou interne à FPCUpDeluxe ?

Et qu'est-ce qu'il faut faire ? Cliquer sur quoi ?

Merci,

**naute** · 05/09/2020, 21h17

Salut Jipété

.

J'ai actuellement la version "1.8.0e", à priori la plus récente. Par rapport à ma version précédente, qui ne mentionne que sa date de "construction", à savoir "build-date: 2018-03-19" , il y a eu un remaniement de l'interface, laquelle propose, entre autres, plus de choix dans les versions.
À part ça, les fonctionnalités semblent similaires et je ne sais pas s'il y a des changements plus "profonds".

Jérôme a peut-être plus de données la-dessus.

À tout hasard, la dernière version est ici.

**BeanzMaster** · 05/09/2020, 21h35

Hello

Envoyé par Jipété

Salut,

je squatte cette discussion deux secondes, ça va intéresser tout le monde :

du côté de FPC, du côté de Lazarus, ou interne à FPCUpDeluxe ?

Et qu'est-ce qu'il faut faire ? Cliquer sur quoi ?

Merci,

Je parlais des sources de FPCUpDeluxe. Qui ont changé. Depuis la première divulgation de son unité "ProcessUtils", rien avoir avec Lazarus et FPC

A+

Jérôme

**Roland Chastain** · 28/08/2020, 17h59

Bien vu Jérôme le coup du "flush" ! J'étais en train de me demander pourquoi ma démo ne fonctionnait pas. Je n'avais pas pensé à cette histoire de "flush" (alors que c'est un problème bien connu pour les moteurs d'échecs).

**BeanzMaster** · 28/08/2020, 18h47

Envoyé par Roland Chastain

Bien vu Jérôme le coup du "flush" ! J'étais en train de me demander pourquoi ma démo ne fonctionnait pas. Je n'avais pas pensé à cette histoire de "flush" (alors que c'est un problème bien connu pour les moteurs d'échecs).

Merci

du coup, on peut virer cette partie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   While FProcessEx.Running do
   begin
     If FProcessEx.Output.NumBytesAvailable > 0 Then
     begin
       Application.ProcessMessages;
     end;
     If FProcessEx.StdErr.NumBytesAvailable > 0 Then
     begin
       Application.ProcessMessages;
     end;
   end;

Je ne sais pas trop pourquoi, lors, de mes essais, lorsque je l'avais supprimé, cela ne fonctionnait plus, et la miracle ; sans ; tout (re)marche

**naute** · 28/08/2020, 18h52

D'abord, bonjour et merci à tous

.

Envoyé par tourlourou

Y aurait-il une piste ici, à l'alinéa "Reading large output" en adaptant la boucle de lecture ?

C'est une des premières pages que j'ai consulté pendant mes recherches, et d'ailleurs, mon exemple est une adaptation d'un des codes qui s'y trouvent. Peut-être que le code dont tu parles solutionnerait mon problème, mais je n'ai pas trouvé comment l'adapter à mon cas.

Envoyé par Roland Chastain

Dans les exemples de Lazarus, il y a une démo qui permet de faire ce genre de chose.

C'est une piste intéressante si je décide de rester sur TProcess. Petit inconvénient, ce code utilise CommandLine qui est considéré comme obsolète, mais ce n'est pas forcément un obstacle.

Envoyé par BeanzMaster

Un des problèmes c'est ton script python qui utilise Print et qui est "bloquant"

Oui, mais il a beau être bloquant, ça fonctionne quand même dans la console

. Et il est impératif que l'affichage dans le TMemo fonctionne pour tout script Python valide.

Envoyé par BeanzMaster

Y'a du de la mise à jour du coté de FPCUpDeluxe je te met l'unié "ProcessUtils" en attachement

Merci pour l'unité en pièce jointe Jérôme

.

@jurassic pork et @BeanzMaster
Je pense que je vais m'intéresser sérieusement à l'unité ProcessUtil et à TProcessEx. Par contre, je suppose qu'il n'y a pas de documentation. Ou peut-être ?

Je vous tiens au courant de mes avancées,
amicalement,
Hervé

**BeanzMaster** · 28/08/2020, 19h12

Salut Hervé

Envoyé par naute

Oui, mais il a beau être bloquant, ça fonctionne quand même dans la console

. Et il est impératif que l'affichage dans le TMemo fonctionne pour tout script Python valide.

Oui mais sans le "flush" c'est mort. (pour le moment) Et à moins qu'il y ai une autre façon de faire en Python. Mais là je suis pas assez calé avec ce langage.
Pis si tu veux afficher la sortie dans un memo quel est l’intérêt dans ce cas de vouloir afficher les lignes une à une. Surtout si le terminal n'est pas visible ?
Après si tes scripts proviennent de diverses sources, il te faudra les adapter et avoir 2 versions. La normale et celle pour ton application.

Envoyé par naute

Merci pour l'unité en pièce jointe Jérôme

.

@jurassic pork et @BeanzMaster
Je pense que je vais m'intéresser sérieusement à l'unité ProcessUtil et à TProcessEx. Par contre, je suppose qu'il n'y a pas de documentation. Ou peut-être ?

Je vous tiens au courant de mes avancées,
amicalement,
Hervé

Pas de soucis

Franchement le TProcessEx est super utile, je trouve. Et pour ce qui est de la doc, ben c'est tout pareil que le TProcess, sauf que tu as les événements "OnOutputM/ OnOuput" et "OnErriom / OnError" pour capter les messages au fur et à mesure, provenant de la console. Plus quelques propriétés supplémentaires spécifiques, mais rien de bien méchant.

A+

Jérôme

**Roland Chastain** · 28/08/2020, 19h18

Envoyé par naute

C'est une piste intéressante si je décide de rester sur TProcess. Petit inconvénient, ce code utilise CommandLine qui est considéré comme obsolète, mais ce n'est pas forcément un obstacle.

Concernant CommandLine, la modification est vite faite. D'ailleurs voici l'adaptation que je viens de faire de la démo en question.

Deux choses à noter. 1° La dernière ligne ne s'affiche pas toujours. La démo est conçue pour un processus qui ne s'arrête pas tant qu'on le ne lui dit pas de s'arrêter. Là tout de suite je ne vois pas comment régler ce problème.

2° La redirection de l'erreur ne semble pas fonctionner, malgré l'option poStderrToOutput. Je m'en suis aperçu parce que le "à" (avec un accent) dans le script faisait échouer l'exécution, et que je ne voyais pas le message d'erreur. Mais peut-être que c'est tout simplement parce que la dernière ligne ne s'affiche pas.

**Roland Chastain** · 28/08/2020, 20h03

Envoyé par Roland Chastain

Deux choses à noter. 1° La dernière ligne ne s'affiche pas toujours. La démo est conçue pour un processus qui ne s'arrête pas tant qu'on le ne lui dit pas de s'arrêter. Là tout de suite je ne vois pas comment régler ce problème.

2° La redirection de l'erreur ne semble pas fonctionner, malgré l'option poStderrToOutput. Je m'en suis aperçu parce que le "à" (avec un accent) dans le script faisait échouer l'exécution, et que je ne voyais pas le message d'erreur. Mais peut-être que c'est tout simplement parce que la dernière ligne ne s'affiche pas.

J'ai trouvé une solution. Supprimer la condition if AProcess.Running then (dans la procédure DoStuffForProcess).

Attention ! Du coup, il faut démarrer le timer seulement après le lancement du processus, autrement il y a une violation d'accès (qui ne se produit pas après après le processus s'est arrêté, je ne sais pas pourquoi).

Une fois cette modification faite, les messages d'erreurs éventuels s'affichent bien.

TProcess : redirection d'un flux Python vers un TMemo

Lazarus Pascal

Vue hybride

Discussions similaires

Partager

Partager