Discussion :

[jojo86]

Bonsoir, j'ouvre une application à partir d'une autre.

J'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.LaunchConverter(Path: string);
var
  AProcess: TProcess;
begin
  AProcess := TProcess.Create(nil);
  AProcess.CommandLine := ExtractFilePath(Application.Exename)+'Test_Params.exe ' + Path;
  AProcess.Options := AProcess.Options + [poWaitOnExit];
  AProcess.Execute;
  AProcess.Free;
end;

Je voudrais, que mon application maître (celle qui ouvre l'autre) puisse être informée en cas d'erreur d’exécution de l'esclave...

Pour resumer :
Le programme ouvre l'application, et attend la fin du processus. En cas de bug du programme lancé, celui-ci se terminera automatiquement, mais le programme maitre ne sera pas informé de l'erreur.

J'avais pensé noter dans un fichier txt la présence d'une erreur. Comme ça après exécution du programme extérieur, je viens lire dans le fichier txt la présence ou non de l'erreur d’exécution...
Qu'en pensez vous?

Merci !

[Ph. B.]

Bonjour,
Si votre programme renvoie un code d'erreur, vous pouvez utiliser la propriété ExitStatus...

Code :

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

1
2
3
4
5
  if AProcess.ExitStatus <> 0 then
  begin
    // Erreur d'exécution
    // ...
  end;

Sinon, il y a dans le wiki de Lazarus un exemple détaillé d'appels de programme externe (en français) : Executing_External_Programs
--
Philippe.

[jojo86]

Merci, mais je ne pige pas trop comment utiliser ton code. Car mon programme maitre attend que l'esclave ai terminé sa tache, or si l'esclave bug, le maitre reste bloqué et attend indefiniement...

Quand au lien wiki, je le connaissais deja! C'est grâce a lui que j'ai apris a utiliser tprocess.

[Ph. B.]

Merci, mais je ne pige pas trop comment utiliser ton code. Car mon programme maitre attend que l'esclave ai terminé sa tache, or si l'esclave bug, le maitre reste bloqué et attend indefiniement...

Eh bien, ExitStatus renvoie la valeur de sortie du programme :

• 0 => sortie sans erreur
• 1 => arrêt du processus par le système (sous Windows)
• n => code de sortie renvoyé par le programme appelé ou "esclave"

Maintenant, c'est au programme appelé d'être bien conçu et de gérer les bugs, même ceux non prévus, par exemple en traitant l'évènement TApplication.OnException et en renvoyant une valeur de sortie via l'instruction Halt(n).
Cela dit, vous ne pourrez rien contre un programme appelé qui rentre dans une boucle infinie...
--
Philippe.

[jojo86]

Salut, je traite les erreurs avec

Code :

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

1
2
3
Try
Except
end;

Sur les points "sensibles", je gère les possibles erreurs et je renvois donc un code avec Halt();. Le code renvoyé par Halt me permet d'afficher un message d'erreur lié au code.

Merci beaucoup de votre participation !