[DOS] Problème affichage de DOS dans un Memo

Version imprimable

24/06/2004, 13h48
Pedro

[DOS] Problème affichage de DOS dans un Memo
Salut
voila, j'ai suivi les indications données (généreusement :wink: ) dans le forum pour afficher une commande DOS dans un TMemo...
Seulement voila, ça ne marche pas :evil:
Lorsque je lance une commande aussi simple que
Code:

1 2 command.com /c dirc:\
Mon programme freeze et ne répond plus...
Est-ce qu'il y a une directive spéciale à ajouter?

Note : je suis sous WinXP et Delphi 7
24/06/2004, 13h51
Nono40

Fait voir le code un peu plus complet...
24/06/2004, 13h54
Pedro

Ben en fait, le code, c'est exactement le code que j'ai trouvé dans un post... Je l'ai copié tel quel...
Je vais essayer de le retrouver...
24/06/2004, 13h56
Pedro

Voila, je crois que c'est Celui-là...

J'execute la commande net view et je recupere le resultat dans un fichier que je charge apres dans mon memo.

Code:

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
procedure TForm1.Attente;
 
Var  StartInfo   : TStartupInfo;
     ProcessInfo : TProcessInformation;
     Fin         : Boolean;
begin
  { Mise à zéro de la structure StartInfo }
  FillChar(StartInfo,SizeOf(StartInfo),#0);
  { Seule la taille est renseignée, toutes les autres options }
  { laissées à zéro prendront les valeurs par défaut }
  StartInfo.cb     := SizeOf(StartInfo);
 
   { cacher la fenetre}
  With Startinfo do
  begin
     cb := SizeOf(TStartupInfo);
     dwFlags := STARTF_USESHOWWINDOW;
     wShowWindow := SW_HIDE;
  end;
 
    { Lancement de la ligne de commande }
  If CreateProcess(Nil, '"cmd" "/c net view > c:\network.txt"', Nil, Nil, False,
                0, Nil, Nil, StartInfo,ProcessInfo) Then
 
  Begin
    { L'application est bien lancée, on va en attendre la fin }
    { ProcessInfo.hProcess contient le handle du process principal de l'application }
    Fin:=False;
    Repeat
      { On attend la fin de l'application }
      Case WaitForSingleObject(ProcessInfo.hProcess, 200)Of
        WAIT_OBJECT_0 :Fin:=True; { L'application est terminée, on sort }
        WAIT_TIMEOUT  :;          { elle n'est pas terminée, on continue d'attendre }
      End;
      { Mise à jour de la fenêtre pour que l'application ne paraisse pas bloquée. }
      Application.ProcessMessages;
    Until Fin;
    { C'est fini }
    listage;
  End
  Else RaiseLastOSError;
 
end;

permet d'attendre que la commande soit finie. ensuite tu fais:

Code:

1
2
memo1.Lines.loadFromFile('c:\network.txt');
DeleteFile('c:\network.txt');

24/06/2004, 16h37
cpdump

Il a y des composants qui permettent de récuperer la sortie standard sans passer par un fichier (j'ai peut être dit une bêtise :oops: )

Il sert à quoi le command.com /c 8O on peut pas faire un dir c:\ tout simplement ?
24/06/2004, 16h57
cpdump

On peut bien récuperer la sortie standard via les pipe, je trouve ça plus propre que de passer par un fichier :

http://delphi.about.com/cs/adptips2001/a/bltip0201_2.htm

http://www.efg2.com/Lab/Library/UseNet/2001/0504b.txt
24/06/2004, 19h48
Laurent Dardenne

Citation:

Envoyé par cpdump

Il sert à quoi le command.com /c 8O on peut pas faire un dir c:\ tout simplement ?

Command /C
Démarre l'interpréteur de commande, éxécute une commande, puis se termine.

cf. command /?

Tu peux aussi utiliser le composant TDosCommand :
http://laurent-dardenne.developpez.c...ionConsole.zip
25/06/2004, 10h39
/dev/null

Puré !!! Et dire que je me suis fait ch**r a comprendre comment fonctionner un Pipe !!!
et cpdump arrive et me file la solution... Plein le dos de perdre du temps :cry:
25/06/2004, 13h31
Pedro

OK ben je vais essayer tout ça!!

Un grand merci à tous :D