Discussion :

[mm_71]

Bonjour,

Le code ci-dessous:

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
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  AProcess     : TProcess;
  Tfile: TextFile;
  StrResult: String;
begin
  AProcess := TProcess.Create(nil);
  AProcess.Executable:='ps';
  AProcess.Executable := 'ps';
  AProcess.Parameters.Add('-U');
  AProcess.Parameters.Add('moi');
  AProcess.Options := [poUsePipes];
 
  // Start the process (run the dir/ls command)
  AProcess.Execute;
  AssignStream(TFile,AProcess.Output);
  Reset(TFile);
  while not EOF(TFile) do begin
    ReadLn(TFile,StrResult); // read a single line
    Memo1.Lines.Add(StrResult);
  end;
  AProcess.Free;
end;

Fonctionne parfaitement avec des commandes Linux mais ce que je n'arrive pas à faire c'est utiliser gnome-terminal comme process et récupérer tout ce qui s'y affiche quand un programme est lancé depuis le terminal. Ça pourrait venir du fait qu'une fois appelé gnome-terminal tourne en tant que /usr/lib/gnome-terminal/gnome-terminal-server/ mais avec xterm qui ne change pas de process à l'exécution c'est tout autant impossible.
Existe t-il un moyen de récupérer les lignes d'un terminal dans un memo ou une stringlist ?

[BeanzMaster]

Salut, je ne sais si c'est exactement ce que tu recherches, mais j'ai trouvé ça :

• http://wiki.freepascal.org/Console_M...irected_output
• https://forum.lazarus.freepascal.org...?topic=15315.0
• http://www.ctrlterm.com

[mm_71]

Non, J'avais eu un vague espoir avec le lien 2 mais je ne peux rien en tirer. J'ai essayé une nouvelle forme:

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
procedure TForm1.GetProcess(LstResult:TStringList);
const
  BUF_SIZE = 2048;
var
  AProcess     : TProcess;
  OutputStream : TStream;
  BytesRead    : longint;
  Buffer       : array[1..BUF_SIZE] of byte;
begin
  LstResult.Clear;
  AProcess := TProcess.Create(nil);
  AProcess.Executable := '/bin/ps';
  AProcess.Parameters.Add('-aU');
  AProcess.Parameters.Add(User_Name);
  AProcess.Options := [poUsePipes];
  AProcess.Execute;
  OutputStream := TMemoryStream.Create;
 
  repeat
    BytesRead := AProcess.Output.Read(Buffer, BUF_SIZE);
    OutputStream.Write(Buffer, BytesRead)
  until BytesRead = 0;
 
  AProcess.Terminate(0);
  AProcess.Free;
  OutputStream.Position := 0;
  LstResult.LoadFromStream(OutputStream);
  OutputStream.Free;
end;

Mais comme précédemment ça marche avec les commandes mais pas avec un terminal. Je sens que je vais être contraint de faire ça en mode goret en lançant un script shell qui renverra les sorties du terminal dans un fichier temporaire que je pourrai charger dans le memo. Bwerk...

[BeanzMaster]

J'ai refais quelques recherches, et j'ai retouvé ça :

• https://forum.lazarus.freepascal.org...?topic=32528.0
• http://wiki.lazarus.freepascal.org/CmdLine
• www.youtube.com/watch?v=KcHZVT1mHJY (en Allemand)
• http://forum.lazarus.freepascal.org/...p?topic=5986.0
• http://sourceforge.net/projects/dargui/

Le 2eme lien est utilisé par DoubleCommander

Je n'ai pas testé, mais il devrait y avoir quelques indices

[mm_71]

Merci pour tes recherches, je vais regarder ça, mais je me pose la question:

Quand on lance un truc du genre ls, ps ou autre, le process ne peut s'arrêter tant que le programme appelé envoie des données et on peut alors les récupérer.
Dans le cas d'un terminal tout ce qu'il fait c'est de s'ouvrir et après il attend et il semble que Tprocess considère qu'il a fini et oublie l'existence terminal.

J'ai aussi noté que si j'ajoute ponewconsole dans les options une instruction wine monexe monexe se lance bien dans la console. Mais comme wine appelle plusieurs process
24062 ? 00:00:00 wineserver
24068 ? 00:00:00 services.exe
24070 ? 00:00:00 explorer.exe
24073 ? 00:00:00 winedevice.exe
24083 ? 00:00:00 plugplay.exe
24089 ? 00:00:00 winedevice.exe
24059 ? 00:00:00 BountyTrain.exe
avant de lancer l'exe je n'ai que les messages attachés au premier process dans le terminal alors que ceux qui m'intéressent ( Les messages d'erreur sont envoyés par un des autres ).

Et le pire c'est que pour éviter certains crashs la commande doit devenir wine start /unix monexe le terminal est ouvert par start qui ne fait qu'initialiser toute la chaîne avant de disparaître et bien le terminal ouvert disparaît avec lui.
En fin de compte capturer les sorties des processus actifs éviterait d'avoir besoin du terminal mais je n'ai pas l'impression que Tprocess le permette.

[BeanzMaster]

Merci pour tes recherches, je vais regarder ça, mais je me pose la question:

Pas de soucis, ça me permet de faire un pause avec mon projet

Quand on lance un truc du genre ls, ps ou autre, le process ne peut s'arrêter tant que le programme appelé envoie des données et on peut alors les récupérer.
Dans le cas d'un terminal tout ce qu'il fait c'est de s'ouvrir et après il attend et il semble que Tprocess considère qu'il a fini et oublie l'existence terminal.

J'ai aussi noté que si j'ajoute ponewconsole dans les options une instruction wine monexe monexe se lance bien dans la console. Mais comme wine appelle plusieurs process
24062 ? 00:00:00 wineserver
24068 ? 00:00:00 services.exe
......
avant de lancer l'exe je n'ai que les messages attachés au premier process dans le terminal alors que ceux qui m'intéressent ( Les messages d'erreur sont envoyés par un des autres ).

Et le pire c'est que pour éviter certains crashs la commande doit devenir wine start /unix monexe le terminal est ouvert par start qui ne fait qu'initialiser toute la chaîne avant de disparaître et bien le terminal ouvert disparaît avec lui.
En fin de compte capturer les sorties des processus actifs éviterait d'avoir besoin du terminal mais je n'ai pas l'impression que Tprocess le permette.

Je comprend mieux, là. Ton problème c'est que c'est Wine qui lance un autre processus et celui-ci n'est pas controlé par toi.
Sous Windows, il me semble que c'est possible, avec les APIs en récupérant l'instance du "process" que tu veux et rediriger les sorties vers un flux.
Sous Linux aucune idées de comment faire ceci.

Tu devrais peut-être essayer de poster sur le forum Anglais de freepascal. Tu auras surement plus de chance d'obtenir une réponse.