Discussion :

[Keke des Iles]

Bonjour à tous.

Je doit effectuer un tnsping en delphi et vérifier s'il répond ou non. Après des recherches, je n'ai pas trouvé de composants, dll, ... qui pourraient m'aider (même s'il doit bien exister quelque chose quelque part).
La seule solution que j'aurai est d'exécuter cette commande tnsping (avec CreateProcess par exemple) et de récupérer le retour dans un fichier. Ensuite, je parcours ce fichier à la recherche d'un "Ok". Sinon, c'est que le tnsping a échoué.

Cette méthode marche bien si on est sur une machine anglaise et française mais je me suis aperçu ce matin que si c'était une machine espagnole, ça ne marchait plus. Tnsping n'affiche pas "Ok" mais "Realizado correctamente".

Quelqu'un aurait une solution plus propre que la mienne (c'est quand même moche cette idée de parcourir un fichier à la recherche d'un "Ok") et qui serait indépendante de la langue ?

Merci d'avance.

[Déplacé par King Kaiser]

[Pierre Castelain]

Le programme ne retourne pas un code d'erreur ?

[Keke des Iles]

Le programme ne retourne pas un code d'erreur ?

Apparemment non. J'ai testé pour voir le retour de CreateProcess ainsi que GetLastError et aucune erreur n'est signalée.

[cpdump]

Je ne suis pas sur que l'on puisse récuperer le code erreur DOS avec CreateProcess. Il faudrait voir la doc si un code erreur est retourné et faire un batch conditionnel pour indiquer de manière explicite si la commande a renvoyé une erreur