Message de rapport:
 

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
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2