Discussion :

[Jipété]

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 :

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

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 :

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

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 :

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

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

[jurassic pork]

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

Code :

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

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é)

[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 ! ! !

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

Bonne journée,

[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.

[Jipété]

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,

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 :

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

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,