Problème d'arguments avec TProcess et le binaire "ls" sous Linux

Version imprimable

Bonsoir,

je viens vers vous car là je suis face à un mystère...

Je sais utiliser TProcess, lui passer une liste de paramètres et en récupérer la sortie (je récupère ainsi les données SMART de mes disques, par exemple), mais je voudrais automatiser un peu plus et je veux donc construire une liste de disques avec la commande ls -1 /dev/sd? dont la sortie ressemblera à ça, dans un terminal :
Code:

1 2 /dev/sda /dev/sdb
Le problème c'est que ça ne fonctionne pas, je me récupère une erreur "2" qui signifie "if serious trouble (e.g., cannot access command-line argument)."

Si je remplace le "?" par "a" ou "b" ça fonctionne très bien, si je mets "*" j'ai la même erreur (au lieu de récupérer
Code:

1 2 3 4 5 /dev/sda /dev/sda1 /dev/sda2 /dev/sdb /dev/sdb1
etc.)

Je ne comprends pas, on dirait que le passage de caractères spéciaux (* et ? sont-ils vraiment "spéciaux" ?) met la pagaille...
Un bout de code :
Code:

1 2 3 4 5 6 7 8 9 10 with aProcess do // composant posé sur la form begin Executable := '/bin/ls'; // nom du binaire Parameters.Add('-1'); // pour aff. en colonne Parameters.Add('/dev/sd?'); // avec sda ça passe, avec * ou ? --> erreur 2 ! Options := Options + [poWaitOnExit, poUsePipes, poDefaultErrorMode]; Execute; iExitStatus := ExitStatus; end; showmessage(inttostr(iExitStatus)); // 2=if serious trouble (e.g., cannot access command-line argument).
Voilà...
Si quelqu'un a une idée, je la lirai avec grand plaisir parce que là, je suis coincé :(

Environnement : Debian Wheezy 32 bits, Lazarus 1.0.10 FPC 2.6.2

hello jipété,
il faut lancer la commande dans un "shell" (sh,bash) pour pouvoir utiliser les caractères d'extension.
Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
   with aProcess do // composant posé sur la form
  begin
    Executable := 'bash'; // nom du shell
    Parameters.Add('-c'); // pour 
    Parameters.Add('ls -l /dev/sd?'); 
    Options := Options + [poWaitOnExit, poUsePipes, poDefaultErrorMode];
    Execute;
    iExitStatus := ExitStatus;
  end;
showmessage(inttostr(iExitStatus)); // 2=if serious trouble (e.g., cannot access command-line argument).

Ami calmant J.P (pas té)

10/12/2014, 09h51
Jipété

Bonjour,

un truc pareil je ne pouvais pas le deviner avant d'avoir eu le problème. Et la solution, grâce à toi ! ! ! :ccool:

Bravo, merci, alléluia, c'est bientôt Noël, youp-la boum, + 1 !, et :resolu:

Bonne journée,
10/12/2014, 09h57
yamer

Faire un appel à un programme externe pour ça me parait quand même un peu lourd. Tu dois pouvoir faire la même chose avec FindFirst/FindNext.

Citation:

Envoyé par yamer

Faire un appel à un programme externe pour ça me parait quand même un peu lourd.

Ben c'est parce que j'utilise beaucoup TProcess dans l'outil sur lequel je planche : récupération de "df" pour la surveillance de l'espace disque, utilisation de "rsync" pour les sauvegardes, de "smartctl" pour le monitoring, du coup je suis resté sur cette idée et il ne m'en est pas venu d'autres, :mrgreen:

Citation:

Envoyé par yamer

Tu dois pouvoir faire la même chose avec FindFirst/FindNext.

En effet (sauf que les données sont en ordre alphabétique inversé : sdb, sda) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TForm1.Log(aData: string); begin memo1.Lines.Add(aData); end; procedure TForm1.Button1Click(Sender: TObject); // http://www.freepascal.org/docs-html/rtl/sysutils/findfirst.html Var Info : TSearchRec; Count : Longint; Begin Count:=0; If FindFirst ('/dev/sd?', faAnyFile and faSysFile, Info)=0 then Repeat Inc(Count); With Info do log (Name); Until FindNext(info)<>0; FindClose(Info); log ('Finished search. Found ' + IntToStr(Count) +' matches'); end;
Merci pour l'idée,