Re: cWdDos Problème réponse vide |
Sujet: Re: cWdDos Problème réponse vide par Anonyme sur 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 |