Discussion :

[NicCo]

Bonjour
Je cherche à faire la chose suivante : je crée une boucle via un "for" qui parcourt une liste et quand il trouve le bon élément, il lance un process via un JvCreateProcess.
Le problème est que le JvCreateProcess n'attend pas la fin de l'exécution du process en cours avant d'en lancer un nouveau, et par conséquent me crée une erreur.
Y a-t-il un moyen d'attendre la fin du process (hors OnTerminate car je ne vois pas comment l'utiliser dans ma boucle) avant de poursuivre l'exécution du code ?
Merci !

[ShaiLeTroll]

Pour le JvCreateProcess je ne sais pas
Mais pour le CreateProcess des API Windows (surement le même encpasuler)
je te conseille la lecture de Redirection des entrées/sorties du process
WaitForSingleObject INFINITE pour attendre la fin, cela bloque ton programme pendant ce temps

[NicCo]

Merci pour cette réponse rapide
J'ai déjà utilisé le CreateProcess par le passé si je ne me trompe pas, mais j'avais laissé tomber au profit du JvCreateProcess qui permettait de gérer rapidement quelques points.
Si jamais je ne trouve pas de solution avec le Jv je retenterai le CreateProcess

[SergioMaster]

Bonjour ,

si je comprend bien tu veux faire un "ExecuteandWait" ?

avec CreateProcess voici un code j'utilise

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
47
48
49
 
unit Execute;
 
interface
 
uses
  Windows, SysUtils;
 
function WinExecAndWait32(FileName:String; Visibility : integer): LongInt;
 
implementation
 
function WinExecAndWait32(FileName:String; Visibility : integer): LongInt;
var
  zAppName:array[0..512] of char;
  zCurDir:array[0..255] of char;
  WorkDir:String;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
  Err : Cardinal;
begin
  StrPCopy(zAppName,FileName);
  GetDir(0,WorkDir);
  StrPCopy(zCurDir,WorkDir);
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);
  StartupInfo.cb := Sizeof(StartupInfo);
 
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if not CreateProcess(nil,
    zAppName,                      { pointer to command line string }
    nil,                           { pointer to process security attributes }
    nil,                           { pointer to thread security attributes }
    false,                         { handle inheritance flag }
    CREATE_NEW_CONSOLE or          { creation flags }
    NORMAL_PRIORITY_CLASS,
    nil,                           { pointer to new environment block }
    nil,                           { pointer to current directory name }
    StartupInfo,                   { pointer to STARTUPINFO }
    ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
 
  else begin
    WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess,Err);
    result:=err;
  end;
end;
 
end.

avec jvcreateProcess (qui fait la même chose )sauf que du coup il suffit de poser le composant , je crois qu'il faut simplement mettre la propriété waitforterminate à true

[NicCo]

Merci pour cet exemple
Oui en effet c'est ce que je veux faire car actuellement j'ai ce code (synthétisé) :

for i:=0 to 10 do
begin
JvCreateProcess.CommandLine:='programme.exe --parametre '+IntToStr(i);
JvCreateProcess.Run;
end;

Et le problème c'est que JvCreateProcess n'attend pas la fin de l'exécution du 1er avant de lancer le suivant, et le WaitForTerminate permet d'exécuter l'évènement "OnTerminate" ou alors j'ai loupé quelque chose ou je ne sais pas m'en servir

[NicCo]

J'ai finalement fais d'une autre manière, synthétiquement et en gros ca donne ca :

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
procedure ExecuterCommandes
begin
  for i:=0 to 10 do StringList1.Add(Commande_à_exécuter)
  Flag:=0;
  if StringList1.Count>0 then
    begin
      Flag:=1;
      JvCreateProcess1.CommandLine:=StringList1[Flag-1];
      JvCreateProcess1.Run;
    end;
end;
 
procedure JvCreateProcess1Terminate
begin
  if StringList1.Count>Flag then
    begin
      Flag:=Flag+1;
      JvCreateProcess1.CommandLine := StringList1[Flag-1];
      JvCreateProcess1.Run;
    end else FlagCommand:=999;
  if Flag=999 then Sortie_de_la_liste_des_commandes_à_exécuter;
end;

Il manque un peu d'optimisation mais pour le moment ca fonctionne comme je le souhaite