Re: cWdDos Problème réponse vide

Posté par Anonyme le 16/12/2005 9:23:08

Bonjour,

La solution suivante fonctionne mais malheureusement elle n'utilise plus cWdDos et je trouve que c'est bien dommage.


WInterTexte est une chaine
PrgLance est une chaîne
//txtCmd est le champ recevant la commande à executer

PrgLance = txtCmd + " > C:\TEMP\ULTIME.TXT" + RC + "CLS"
fSauveTexte("EXECUBAT.BAT",PrgLance)
FenEtat("frmmain",DessusTout) // pour essayer de cacher la fenêtre MsDos
LanceAppli("EXECUBAT.BAT",exeActif,exeBloquant)
WInterTexte = fChargeTexte("C:\TEMP\ULTIME.TXT")
SI PDetecteOem(WInterTexte) = Vrai ALORS
txtResultat = OemVersAnsi(WInterTexte)
SINON
txtResultat = WInterTexte
FIN


Après plusieurs essais je pense que c'est cWdDos qui ne prend pas en compte ces quelques cas mais je n'arrive pas à savoir ce qui ne va pas compte tenu de mon manque de connaissance sur le fonctionnement des API.

Cordialement