CreateProcess: Pb de lancement d'un processusRésolu

Question

Bonjour tout le monde, J'ai un pti souci avec la fonction CreateProcess, et je comprends pas où ça coince! Voilà le topo: mon appli est composée de 3 classes java et d'un "lanceur" développé en Delphi (BDS 2006). Chacun des 3 traitements est lancé par un appel à CreateProcess, mais l'un des 3 ne marche pas comme je veux, alors qu'il est construit de la même manière que les 2 autres. Voici mon code: Le problème, c’est qu’il génère à chaque fois une erreur, et le GetLastError me renvoie l’optimiste message « Opération réussie » ??? -> Je suppose que l’opération en question, c’est le plantage de la fonction .. sinon, j’vois pas ce qui a réussi !! En tout cas, le problème ne vient pas de la ligne de commande, parce qu’elle s’exécute bien quand je la lance directement dans le DOS. Du coup, je sais vraiment plus ce que je peux faire pour que ça marche, surtout que pour les 2 autres process ça marche nickel… Please, I need help ! En vous remerkiant …

f0xi · Accepted Answer

pi: PROCESS_INFORMATION;




evite cela deja ... PI existe en delphi (renvois le nombre pi)
mets plutot ProcInfo ou ProcNfo

pour la commande il vaut mieux faire :

Cmd : string;
...
CreateProcess( nil, PChar(cmd), ...);

et tu peu aussi faire :

StringReplace(pdf+'"  "'+csv, '\', '/',[rfReplaceAll])

pour eviter 2 appels a StringReplace

<hr size="2" width="100%" />

JeremyLecouvert · Answer

Oups, désolé, pti pb de mise en forme sur le bout de code...

procedure
TBusinessTreatment.InsertBookmarks(pdf, csv: String);

var

  cmd, classpath: String;

  si: STARTUPINFO;

  pi: PROCESS_INFORMATION;

  ret: Cardinal;

  pCmd: PAnsiChar;

  i: integer;

begin

    //création du classpath java

  classpath:= '';

  for i:=0 to Length(LIBS)-1 do

    classpath:= classpath + AppPath + LIBS[i];

  cmd:= 'java -Xms16m -Xmx512m -cp "'+ classpath + '"
"InsertBookmarks" "';


  pCmd:= PAnsiChar(cmd + StringReplace(pdf, '\', '/',[rfReplaceAll]) +
'" "' + StringReplace(csv, '\', '/',[rfReplaceAll]) + '"');

  CreateProcess(nil,  

               
pCmd, 

               
nil, nil, False, 0, nil, nil, si, pi);


  ret:= WaitForSingleObject(pi.hProcess, INFINITE);

  if ret=WAIT_FAILED then   //échec de la fonction

  begin

    DisplayProcessError;   //Fct d'affichage de
l'erreur

    CloseProcess(pi);   //Fermeture du process

  end

  else

  begin   //process terminé (valeur de retour= WAIT_OBJECT_0)
    CloseInsertOperation(pdf, csv);

    CloseProcess(pi);

  end;  //end if

end;

    ... Voilà, c'est un peu mieux!

Cirec · Answer

Salut,
et "DisplayProcessError" te dit quoi 

 
@+
Cirec

<hr siz="" />

JeremyLecouvert · Answer

C'est une procedure qui remplit un TMemo avec SysErrorMessage(GetLastError); et elle me dit "Opération réussie".

JeremyLecouvert · Answer

Salut tout le monde,

    ça y est, ça marche... merci fOxi! Ceci dit, je suis pas sûr de savoir pourquoi !!

Pour le 'pi', je l'ai changé en 'pInfo'; ça ne créait pas de conflit, mais tu as raison, il vaut être rigoureux ça évite les soucis..
Pour les types PChar et PAnsiChar, je n'ai pas l'habitude de les utiliser; je ne sais pas si il y des différences selon si on utilise l'un ou l'autre. D'après l'aide Delphi, C'est équivalent sous Win32...

Bizarrement, si j'exécute le code:
      CreateProcess(nil, PChar(cmd), nil, nil, False, 0, nil, nil, si, pInfo);
 Ca marche nickel. Par contre, si je déclare un PChar et que je fais:
        pCmd:= PChar(cmd);
      CreateProcess(nil, PChar(cmd), nil, nil, False, 0, nil, nil, si, pInfo);
Cette fois, j'ai la même erreur que la dernière fois, ou l'erreur "accès refusé". Pourtant, je ne me sers même pas de 'pCmd'... on dirait que le simple fait de faire l'affectation modifie 'cmd'... Chais pas keskispass !!

Si quelqu'un peut apporter ses lumières à mon petit cerveau embrumé, je suis preneur !!

En tout cas, je valide ta réponse puisque mon pb est résolu ..
@+

CreateProcess: Pb de lancement d'un processus

5 réponses

Votre réponse

Discussions similaires