Discussion :

[costaud05]

Bonjour,
Je développe actuelement une application pour notre administrateur réseaux.
J'utilise Delphi6 pro sous Win XP
je passe la commande suivante:

CommandeDos:='tracert -h 192.168.1.1>C:\TEMP\tracert.txt';
WinExec(PChar(CommandeDos),SW_SHOW);

Cela devrait donc me créer un fichier tracert.txt sous C:\TEMP\ contenant le résulat de mon tracert.
Mais voilà rien ne se passe.....

J'ai testé la commande directement sous l'invite de commande et là ça marche !??!

Quelqu'un a-t-il une idée?
Faut-il coder différemment les '\' ou le '>' ? Le passage des caractères de Delphi à MSDOS à t-il une subtilité comme celle là?

Merci d'avance pour votre aide

[Tardiff Jean-François]

Bonjour

Essayer ShellExecute. Je crois que c'est ce qui a emplacer WinExec depuis windows ???. (winexec conserver pour raison de conpatibilité).

[Invité]

Chez moi, ça marche pas, mon fichier tracert.txt contient ça:
tracert -h 192.168.5.122>C:\TEMP\tracert.txt

Code :

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

1
2
3
4
5
6
7
8
 
Un nom ou une adresse cible doit ˆtre sp‚cifi‚.
Utilisationÿ: tracert [-d] [-h SautsMaxi] [-j ListeH“tes] [-w d‚lai] NomCible
Optionsÿ:
   -d                 Ne pas convertir les adresses en noms d'h“tes.
   -h SautsMaxi       Nombre maximum de sauts pour rechercher la cible.
   -j ListeH“tes      Itin‚raire source libre parmi la liste des h“tes.
   -w d‚lai           Attente d'un d‚lai en millisecondes pour chaque r‚ponse.

Il ne te manque pas un paramêtre (après le -h)?

[costaud05]

Si j'ai fait un mauvais copier/coller

CommandeDos:='tracert -h 10 192.168.1.1>C:\TEMP\tracert.txt';
WinExec(PChar(CommandeDos),SW_SHOW);

J'ai essayé ShellExeCute-->même résultat

[Sub0]

Utilise un fichier BAT et ShellExecute plutôt que WinExec.

Fichier TRACE.BAT:

Code :

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

1
2
@echo off
tracert -h 10 192.168.1.1>C:\TEMP\tracert.txt

Attention, ta commande Dos à l'air d'être invalide et donc de lancer l'aide en ligne de la commande.
Vérifie bien ta syntaxe...

Code :

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

1
2
3
4
5
PROGRAM gobat; 
USES Forms,ShellApi; 
BEGIN 
 ShellExecute(Application.Handle,NIL,'TRACE.BAT','','',0); 
END.

à+

[costaud05]

la commande tracert -h 5 pop.wanadoo.fr>C:\TEMP\tracert.txt

est valide et me génère bien le fichier texte dont voici un extrait:

D‚termination de l'itin‚raire vers pop.wanadoo.fr [193.252.22.68]
avec un maximum de 10 sautsÿ:
1 1 ms 2 ms 1 ms *.*.*.*
2 70 ms 67 ms 69 ms *.*.*.*
3 71 ms 67 ms 67 ms *.*.*.*
4 65 ms 68 ms 68 ms pos1-0.nraub303.________.francetelecom.net [*.*.*.*]
5 69 ms 67 ms 68 ms pos5-

mais lorsque je lance la commande DELPHI Par:
WinExec(PChar('tracert -h 5 pop.wanadoo.fr>C:\TEMP\tracert.txt'),SW_SHOW);
rien ne se passe

Je préfèrerais ne pas passer par un .bat

merci de vos réponses
________________________________
[Edité par Lil_Jam63] Evitez de mettre des adresses IP

[Sub0]

Je préfèrerais ne pas passer par un .bat

Dans ce cas, je ne vois pas 36 solutions -> Développer ta propre fonction tracert.

Tu trouveras ici les sources d'un projet avec ICS qui permet cette fonctionalité (entre autres):

http://www.dergen.org/dossiers/dossiers.php?id_dossier=44

à+

[lil_jam63]

Essaye le composant TDosCommand, je crois qu'il permet ce genre de choses.

[Sub0]

Non lil_jam63!
TDosCommand fonctionne uniquement avec un fichier BAT (lire la doc du compo)

à+

[lil_jam63]

Autant pour moi, je l'ai pas sous la main donc j'ai pas fais d'essais .

[Sub0]

Ce n'est pas par hasard que ce compo doit utiliser un fichier BAT...
Tout simplement parce qu'il n'est pas possible de faire autrement!!
DOS n'est plus le système d'exploitation aujourd'hui...
A mon avis, lorsqu'on lance une commande dans le menu éxécuter, on crée un fichier BAT dynamique...

à+

[costaud05]

Merci de vos réponses à tous, je crois qu'il ne me reste plus qu'a développer ma function tracert comme l'a dit Sub0

Si qu'elqun d'autre à une idée, je suis preneur quand même,

Je met le Tag résolu....mais pas tout à fait

Encore merci à tous !!!!

[thor22]

Si tu ne veux pas faire de fichier bat parce qu'il est éditable, tu pourrais faire un fichier bat dynamique, c'est à dire, créer le fichier avec ta commande, exécuter le fichier bat et effacer le fichier.

Qu'en pense-tu?

[Laurent Dardenne]

Je vous propose de regarder ce programme de test utilisant TCommandDos
http://delphi.developpez.com/sources...rectionConsole

TCommandDos utilise les pipes en association avec un shell ( Cmd.exe ).
Code d'origine sur Community.borland.com :
http://www.vmlinux.org/jakov/community.borland.com/10387.html