Bonjour,

Je souhaiterais récupérer les informations d'une fênetre DOS.
Après plusieurs essais, je me suis tourné vers le TJvCreateProcess

Mais j'arrive à créer le process mais pas à récupérer les infos

Est - ce bien par la métode JvCreateProcess1RawRead ?

Comment est ce que cela fonctionne ?

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
 
procedure TFormSW.BitBtn1Click(Sender: TObject);
begin
  try
      JvCreateProcess1.ApplicationName := 'plink.exe';
     // JvCreateProcess1.CurrentDirectory := ExtractFileDir(Application.GetNamePath);
      JvCreateProcess1.CommandLine := ' -ssh ldapsup@AUBSUP29';
      JvCreateProcess1.Run;
      JvCreateProcess1.WriteLn('alice006');
      sleep(500);
      JvCreateProcess1.WriteLn('cd cat');
      JvCreateProcess1.WriteLn('runmed')
   finally
//  JvCreateProcess1.Free;
       end;
end;
 
procedure TFormSW.JvCreateProcess1Read(Sender: TObject; const S: string;
    const StartsOnNewLine: Boolean);
begin
  // C is the Form Feed char.
  if S = #$C then
  begin
    // Clear screen
    ListBox1.Clear;
  end
  else if StartsOnNewLine then
    // Add new line1
    ListBox1.Items.Add(S)
  else
    // Change last line
    ListBox1.Items[ListBox1.Count - 1] := S;
end;
Il marche jusqu'au JvCreateProcess1.WriteLn('alice006');
mais après il me fait plus rien il me rentre pas dans le répertoire cat


Merci