Passage de commande MSDOS

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

Bonjour

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

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

Code:

---

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)?

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

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

Fichier TRACE.BAT:

Code:

---

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:

---

1 2 3 4 5

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

---

à+
http://sub0.developpez.com/tag.png

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
________________________________
:arrow: [Edité par Lil_Jam63] Evitez de mettre des adresses IP :wink:

Citation:

---

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

à+

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

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

à+

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

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...

à+

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 !!!!

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?

Je vous propose de regarder ce programme de test utilisant TCommandDos :wink:
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