Discussion :

[remissssss]

Bonjour,

Dans un code Lazarus, j'ai besoin d'ouvrir un programme externe. Apres m'être renseigné, voilà ce que j'ai tapé (en ayant bien declaré Process dans les uses) :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.RUNClick(Sender: TObject);
begin
     NMP_Process:= TProcess.Create(nil);
     NMP_Process.CommandLine:= '/bin/ping';
         NMP_Process.Options := NMP_Process.Options + [poWaitOnExit];
         NMP_Process.Execute;
         NMP_Process.Free;
end;

J'obtiens le message d'erreur suivant : Executable not found: "/bin/ping.exe".
Cet exécutable est pourtant bien évidemment pr&sent sur mon disque (j'utilise Linux).

Comment fixer ce problème ?
Merci

[ThWilliam]

Bonjour,

Ce ne peut être qu'un problème de path. Essaie en renseignant le chemin complet.
Je viens de faire un test (sous Windows) et aucun problème.

Remarque : "CommandLine" est déprécié.
Il est préférable de remplacer par "Executable".
Voir http://forum.lazarus.freepascal.org/...?topic=19643.0

Thierry

[remissssss]

Je viens d'essayer avec "Executable" au lieu de "CommandLine" mais voila l'erreur que j'obtiens :

unit1.pas(147,18) Error: identifier idents no member "Executable"

Sinon pour ce qui est du path complet, il me semble que c'est deja le cas avec '/bin/ping', puisque je suis sous Linux.

[Jipété]

Yep !

Je viens d'essayer avec "Executable" au lieu de "CommandLine" mais voila l'erreur que j'obtiens :

unit1.pas(147,18) Error: identifier idents no member "Executable" (...)

Doit y avoir une faute de frappe...

En ce qui me concerne, je me suis bricolé une petite procédure, c'est que du bonheur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure ProcExec(s, p: string; w: boolean);
var
  aProcess: TProcess;
begin
  aProcess := TProcess.Create(nil);
  with aProcess do
  begin
    Executable := s;
    if w then Options := Options + [poWaitOnExit];
    if p <> '' then Parameters.Add(p);
    Execute;
    Free;
  end;
end;

Exemple d'appel :

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  ProcExec('gimp', '/chemin/vers/images/une_image.jpg', False);
end;

Si besoin de plusieurs paramètres, adapter en conséquence en remplaçant p par p1, p2, etc.

[remissssss]

Tres belle procedure en effet ! qui ne resout pas le pb néanmoins
Je vais réecrire mon script, la faute de frappe suggérée ne saute pas aux yeux pourtant

[Ph. B.]

Bonjour,

Tres belle procedure en effet ! qui ne resout pas le pb néanmoins
Je vais réecrire mon script, la faute de frappe suggérée ne saute pas aux yeux pourtant

Quelle version de Lazarus sous Linux ? une 0.9.3x ?
En ce temps là , la propriété n'était peut-être pas implémentée...

Sinon, j'aurais ajouté un try finally dans l'exemple pour ne pas risquer de fuite de mémoire...

[michel_Vbg]

Bonsoir,

J'ai fait copier coller avec ta procédure, et dans une console on a bien le résultat.

Par contre ce qui me parait étrange c'est le message que tu reçois, /bin/ping.exe

Il n'y a pas d’extension en 'exe' pour les exécutables sous Linux

Michel.