Discussion :

[emmaus]

Bonjour à tous,

Je viens avec un problème dont l'issue me permettra d'implémenter un programme console beaucoup plus grand avec cette logique.
En fait j'aimerai récupérer directement sur la même instance du DOS le résultat de mon programme de test comme si on éffectuait simplement une instruction du genre : set /a 1+1
mon code de test est le suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function BackDos(Value1: string; Value2: string) : string;
begin
  Result := IntToStr(StrToInt(Value1)+StrToInt(Value2));
end;
 
{$R *.RES}
 
begin
  try
    { TODO -oUser -cConsole Main : Insérer du code ici }
 
     IF (ParamStr(1) = 'BackDos') THEN
        Writeln(BackDos(ParamStr(2), ParamStr(3)));
	 else
 
       Write('Erreur de paramètres !');
 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

je voudrais récupérer le résultat de la fonction BackDos sans que son appel par start app.exe BackDos 1 1 ne lance une autre fenêtre pour l'application .
je précise aussi que je ne déisre pas de redirection dans un fichier avant de récupérer le résultat avec le ShellExecute, je travaille sur XE7; merci pour votre aide.

[der§en]

Tu devrais regarder du côté de stdin et stout, si j'ai bien compris ta problématique !

Sur le toujours excellent site de Félix Colibri tu as des exemples, tel qu'ici :
http://www.felix-colibri.com/papers/...in_stdout.html

[emmaus]

bonjour der§en,
tout d'abord merci pour ton apport, mais ce n'est pas ce que je désire. En fait je voudrais qu'une fois l'execution de mon application terminée(form visible ou pas mais de préférence invisible), le resultat soit visible sur le DOS initiale de windos à partir duquel l'application a été lancée; je ne sais pas si je m'étais mal exprimé mais j'espère avoir été plus précis. Merci de me revenir avec une autre astuce ou autre
c'est juste dommage qu'il n'y ait pas un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

return MaValstring

[emmaus]

je reviens vers vous; désolés de vous avoir soumis à ce problème qui était tout simplement simple . Il suffisait juste d'enlever le start dans

start app.exe BackDos 1 1

qui est l'instruction d'appel . Merci à der§en pour son passage