Discussion :

[genteur slayer]

salut à tous, j'ai un programme fortran s'éxécutant dans une console, et je le lance à partir d'une ihm en delphi qui récupère son PID pour tracé l'occupation mémoire et CPU du processus. tout ça marche bien mais, j'aimerai ajouter deux chose: la première, ne pas ouvrir de fenetre console pour l'exécution du process, et afficher ce qui devrai être en consol dans mon IHM (dans un TMemo par exemple)

voici le code de lancement de mon appli:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
//==============================================================================
//=== Lance une application et retourne le process ID
//==============================================================================
Function StartAndGetProcessID(Command: String): DWord;
Var
  lpsaProcess: PSecurityAttributes;
  lpsaThread: PSecurityAttributes;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  AddrCmd: Array[0..255] Of Char;
  ReturnValue: BOOL;
Begin
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  With StartupInfo Do
  Begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_SHOW;
  End;
  New(lpsaProcess);
  New(lpsaThread);
  Try
    lpsaProcess^.nLength := SizeOf(lpsaProcess^);
    lpsaProcess^.lpSecurityDescriptor := Nil;
    lpsaProcess^.bInheritHandle := True;
 
    lpsaThread^.nLength := SizeOf(lpsaThread^);
    lpsaThread^.lpSecurityDescriptor := Nil;
    lpsaThread^.bInheritHandle := True;
 
    StrPCopy(AddrCmd, Command);
    ReturnValue := CreateProcess(Nil, AddrCmd, lpsaProcess, lpsaThread, False,
      0, Nil, Nil, StartupInfo, ProcessInfo);
  Finally
    Dispose(lpsaProcess);
    Dispose(lpsaThread);
  End;
  result := 0;
  If ReturnValue Then
  Begin
    result := ProcessInfo.dwProcessId;
    SEtThreadIdealProcessor(ProcessInfo.hThread,0);
  End;
  CloseHandle(ProcessInfo.hThread);
  CloseHandle(ProcessInfo.hProcess);
End;

note, l'affichage dans la console se fait en unicode, et je sais que win le gère trèèèèèèèès mal....

[cmen76]

Je crois qu'il faut chercher du côté du startupinfo, pour lui attribuer un anonymous pipe (hStdOutput) et dans un thread faire un ReadFile sur ce pipe.

[sjrd]

Réponse dans les sources :
http://delphi.developpez.com/sources...no40source0060

[genteur slayer]

Merci de la réponse cela m'a un peu aidé mais mon problème c'est que mon programme dos est censé s'éxécuter quelques temps.... (2-3j est un petit calcul) or dans les sources, le code proposer attend la fin d'exécution du prog.... moi j'aimerai avoir en temps réel ce qu'il devrai y avoir dans la console.... (par exemple le prog dos a une barre d'avancement, j'aimerai la voir avancer)

[Laurent Dardenne]

Essaie cette solution
http://delphi.developpez.com/sources...rectionConsole

[genteur slayer]

yeeessss c'est exactement cela!!!! Merci bcp!!!!!

en plus c'est un composant (donc bien facile à mettre en place) cela marche nikel à une execption près : les conversion de type de string.... j'ai des soucis avec les accents et autre caractère non ASCII standard.... faut juste que je corrige cela et c'est marre!!!!