Exécution d'un programme à partir d'une application Lazarus

Version imprimable

29/10/2023, 15h06
ChPr

Exécution d'un programme à partir d'une application Lazarus
Bonjour à toutes et à tous,

Dans une application que je développe, je lance un visualisateur de fichier PDF pour afficher un PDF en cours de création. Là où ça se complique, c'est que je demande deux choses :

Je souhaite lancer le visualisateur par défaut, c'est-à-dire que je ne veux pas m'embêter à savoir où il se trouve. La fonction "OpenDocument" fait ça très bien (Windows et Linux), mais avec elle, je ne peux pas (ou ne sais pas) bloquer mon programme tant que le visualisateur n'est pas fermé, ce qui est ma deuxième demande.

D'un autre côté, le composant "TProcess" demande à savoir où se trouve le visualisateur à lancer, mais, grâce à son option "poWaitOnExit" ou sa propriété "Running", il permet d'attendre que le visualisateur soit fermé pour reprendre la main dans mon application. NOTA : toutefois, cette option et cette propriété ne sont pas fonctionnelles sous Linux (Ubuntu chez moi).

Quelle expérience avez-vous de cela ?

En picorant dans la fonction "OpenDocument", j'ai trouvé les commandes qui permettent de savoir où est le visualisateur par défaut pour Linux. Je n'ai pas compris sous Windows, la fonction renvoie sur "ShellExecuteW" qui, a priori ne permet pas de savoir si le programme est en cours où non.

Pour résumer, je cherche comment faire pour lancer un visualisateur de fichiers PDF avec les trois particularités suivants :
- Je ne veux pas savoir où sont les visualisateurs
- Je ne veux pas pouvoir reprendre la main dans mon application tant que le visualisateur n'est pas fermé.
- Il faut que ça fonctionne sous Windows et Linux.
J'espère que ce que je viens de raconter est assez clair.

Cordialement.

Pierre.
29/10/2023, 23h29
Jipété

Yep !

Citation:

Envoyé par ChPr

Je souhaite lancer le visualisateur par défaut, c'est-à-dire que je ne veux pas m'embêter à savoir où il se trouve. La fonction "OpenDocument" fait ça très bien (Windows et Linux), mais avec elle, je ne peux pas (ou ne sais pas) bloquer mon programme tant que le visualisateur n'est pas fermé, ce qui est ma deuxième demande.

Si je devais faire ça, je partirais de la fiche principale avec un bouton qui lancerait une fiche secondaire contenant le visualisateur et masquant la fiche principale, qui serait réaffichée à la fermeture de la fiche secondaire.
Avec du Form.Hide et du Form.Show tu devrais t'en sortir.
30/10/2023, 09h06
ChPr

Citation:

Envoyé par Jipété

.. je partirais de la fiche principale avec un bouton qui lancerait une fiche secondaire contenant le visualisateur ...

Merci pour cette proposition, mais le visualisateur n'est pas interne à mon application, c'est un programme du genre "PDF-Viewer" ... ou le navigateur par défaut si on n'a pas d'application visualisateur de PDF.

Cordialement.

Pierre.

Bon, j'ai partiellement résolu mon problème pour la partie Windows avec le petit bout de programme suivant :
Code:

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 50 51 52 53 54 55 56 57 58 59 60 61 unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, process, Forms, Controls, Graphics, Dialogs, StdCtrls, ShellAPI; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Process1: TProcess; procedure Button1Click(Sender: TObject); private ws: WideString; xx: array[0..255] of WideChar; Fch, pgm: String; i: Integer; public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); begin {$IFDEF WINDOWS} Fch:= 'E:\Lazarus\Projets_ChP\Facturation\Factures\Facture_12_28-10-2023.pdf'; ws:= UTF8Decode(Fch); FindExecutableW(PWideChar(ws), nil, xx); pgm:= UTF8ToString(xx); Process1.CommandLine:= pgm + ' ' + Fch; {$ENDIF} {$IFDEF UNIX} Process1.CommandLine:= 'xdg-open '+'/media/Data/Lazarus/Projets_ChP/Facturation/Factures/Facture_12_28-10-2023.pdf'; {$ENDIF} Process1.Execute; while Process1.Running do // Boucle a utiliser si pas l'option poWaitOnExit begin Sleep(100); Inc(i); Edit1.Text:= IntToStr(i); Application.ProcessMessages; end; Edit1.Text:= 'Terminé'; Application.ProcessMessages; end; end.
En farfouillant ... j'ai trouvé l'instruction "FindExecutableW" qui renvoie le nom et le chemin de l'exécutable qui correspond à une extension donnée. J'injecte donc ce nom et chemin dans la "CommandLine" du "TProcess" et ça fonctionne.

Mon petit programme devrait fonctionner sous Linux si l'option "poWaitOnExit" ou la propriété "Running" voulait bien fonctionner. Chez vous, cette option ou cette propriété fonctionne-t-elle sous Linux ?

Cordialement.

Pierre.

Yep !

Citation:

Envoyé par ChPr

Merci pour cette proposition, mais le visualisateur n'est pas interne à mon application, c'est un programme du genre "PDF-Viewer" ... ou le navigateur par défaut si on n'a pas d'application visualisateur de PDF.

Et ça change quoi ?
Pour utiliser ton visualisateur externe, tu utilises un bouton (ou similaire) pour l'appeler, hé bien sur la ligne suivante de la procédure tu rajoutes une ligne où tu fais ce que j'ai suggéré.

Citation:

Envoyé par ChPr

Mon petit programme devrait fonctionner sous Linux si l'option "poWaitOnExit" ou la propriété "Running" voulait bien fonctionner. Chez vous, cette option ou cette propriété fonctionne-t-elle sous Linux ?

Ben chez moi oui, exemple, voilà comment je l'utilise avec un TProcess pour la mise à jour de l'horloge de la machine dans une Debian 11.8 :
Code:

1 2 3 4 5 6 7 8 9 10 11 AProcess := TProcess.Create(nil); with aProcess do begin Executable := 'timedatectl'; Parameters.Add('--adjust-system-clock'); Parameters.Add('set-time'); Parameters.Add(aDate); // hh:mm:ss Options := Options + [poWaitOnExit, poUsePipes]; // déjà dans les options de l'unité process mais je crois que c'est nécessaire ici Execute; // bloquant Free; end;
Mais attention, il me semble bien avoir eu des soucis avec la façon de lui passer des paramètres, alors fais comme moi, l'exécutable c'est une chose (une string), les paramètres c'est autre(s) chose(s), autant de lignes que de params.

(je n'ai quasiment pas regardé ton code)

30/10/2023, 20h19
ChPr
Citation:

Envoyé par Jipété

...Pour utiliser ton visualisateur externe, tu utilises un bouton (ou similaire) pour l'appeler, hé bien sur la ligne suivante de la procédure tu rajoutes une ligne où tu fais ce que j'ai suggéré. ...

J'avais compris que le fenêtre de masquage contenait le visualisateur. Bon ce n'est qu'une fenêtre de masquage.

Deux cas :
- La fenêtre de masquage est fermable. Dans ce cas, rien ne m'empêche de la fermer avanr de fermer le visualisatuer découvrant ainsi mon application -> pas bon.
- La fenêtre de masquage n'est pas fermable : c'est tout bon, mais quand je vais fermer le visualisateur, qui va fermer le fenêtre de masquage sachant que "OpenDocument" ne renvoie aucune donnée permettant de savoir que le visualisateur est fermé et donc de fermer la fenêtre de masquage-> pas bon.
Citation:

Envoyé par Jipété

... Ben chez moi oui, exemple, voilà comment je l'utilise avec un TProcess pour la mise à jour de l'horloge de la machine dans une Debian 11.8 : ...
Mais attention, il me semble bien avoir eu des soucis avec la façon de lui passer des paramètres, alors fais comme moi, l'exécutable c'est une chose (une string), les paramètres c'est autre(s) chose(s), autant de lignes que de params. ...

J'ai essayé tout un tas de combinaison entre "executable", "parameters", "commandLine" ... rien n'y fait.

Cordialement.

Pierre.

Citation:

Envoyé par ChPr

Deux cas :

La fenêtre de masquage est fermable. Dans ce cas, rien ne m'empêche de la fermer avanr de fermer le visualisatuer découvrant ainsi mon application -> pas bon.
La fenêtre de masquage n'est pas fermable : c'est tout bon, mais quand je vais fermer le visualisateur, qui va fermer le fenêtre de masquage sachant que "OpenDocument" ne renvoie aucune donnée permettant de savoir que le visualisateur est fermé et donc de fermer la fenêtre de masquage-> pas bon.

Rien compris...
EDIT : Mais après avoir relu cinq fois ça :

Citation:

qui va fermer le fenêtre de masquage

j'aurais tendance à répondre : toi, éventuellement par l'intermédiaire de la fermeture du visualisateur, tout simplement.

Regarde un peu comment fonctionne une fenêtre secondaire de traitement d'image dans Gimp : on a l'image affichée dans une fiche principale et une fiche secondaire propose des réglages qui s'affichent en temps réel en plus (à la différence de cette cochonnerie de LibreOffice Writer où il faut toujours cliquer sur Valider et si c'est pas bon il faut recommencer en rappelant la fenêtre de trifouillage, :roll:)

Citation:

Envoyé par ChPr

J'ai essayé tout un tas de combinaison entre "executable", "parameters", "commandLine" ... rien n'y fait.

Bon ben je sais pas quoi te dire...
J'ai pris ça tel quel,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 var AProcess : TProcess; aDate: string; begin aDate := '23:35:06'; AProcess := TProcess.Create(nil); with aProcess do begin Executable := 'timedatectl'; Parameters.Add('--adjust-system-clock'); Parameters.Add('set-time'); Parameters.Add(aDate); // hh:mm:ss Options := Options + [poWaitOnExit, poUsePipes]; // déjà dans les options de l'unité process mais je crois que c'est nécessaire ici Execute; // bloquant Free; end; end;
un coup de copier pi un coup de coller dans un bouton, ai pensé à rajouter process dans uses, ai fait F9 pi j'ai cliqué sur mon bouton et ça a fonctionné. Tellement bien (j'avais choisi une date en avance de 10 minutes sur la réalité) qu'il m'a fallu arrêter le prog et lui remettre une heure correcte et re-F9, re-clic et mon heure est revenue à la bonne heure. Que du bonheur !

EDIT : j'ai indiqué hier que les options poWaitOnExit et poUsePipes étaient positionnées par défaut dans les sources, alors j'en ai profité pour tester et on peut donc s'en passer :
Code:

1 2 3 4 5 6 ... Parameters.Add(aDate); // hh:mm:ss // Options := Options + [poWaitOnExit, poUsePipes]; // déjà dans les options de l'unité process mais je crois que c'est nécessaire ici Execute; // bloquant Free; end;
Ça fonctionne !

Attention ; en cas de multiples utilisations, il faut bien penser à faire MAJ-F9, si on se contente de F9 cet imbécile de compilateur prend la valeur précédente, qui doit être en cache ou je ne sais où, mais qui met sa pagaille !