Discussion :

[michastro]

Bonjour
J'ai une ligne de commande qui marche très bien pour controler l'intensité de l'écran de mon RaspBerry:
echo 30 > /sys/class/backlight/rpi_backlight/brightness

Je voudrais l'intégrer dans mon programme, j'ai donc écrit ça:

Code :

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

1
2
3
4
  AProcess := TProcess.Create(nil);
  AProcess.CommandLine := 'echo 30 > /sys/class/backlight/rpi_backlight/brightness';
  AProcess.Execute;
  AProcess.Free;

ça ne marche pas, snif, je ne comprends pas.
Merci de votre aide
Michel

[BeanzMaster]

Salut "TProcess" est "déprécié" si je ne me trompe pas et il faut utiliser la fonction "ExecuteProcess" qui se trouve dans l'unité SysUtils. cf : http://wiki.freepascal.org/Executing_External_Programs et https://www.freepascal.org/docs-html...teprocess.html
Et il y a également une discussion sur le forum anglais ici avec "TProcess" qui pourras t'aidé.

A+

[jurassic pork]

hello,
regarde ici (dans le forum anglais) c'est un exemple qui ressemble beaucoup à celui du lien à Beanzmaster. Pour une commande avec redirection il faut mettre en premier l'interpréteur de commande (du genre /bin/bash ou /bin/sh comme dans le lien à BeanzMaster.

Ami calmant-, J.P

[Jipété]

'lut,

Salut "TProcess" est "déprécié" si je ne me trompe pas

T'es sûr, là ?????
Parce que dans le 1^er lien que tu donnes on peut lire

For a more versatile approach, see the next section about the prefered cross-platform TProcess

[BeanzMaster]

'lut,

T'es sûr, là ?????
Parce que dans le 1^er lien que tu donnes on peut lire

Non, justement pas sur, mais il me semble avoir lu quelque chose dans ce sens avec TProcess. Ou bien ce sont le noms des fonctions de la classe qui on changé ou autre chose. Il me semble qu'il y a eu un changement entre 1.4 et 1.6.4. mais je sais vraiment plus

[jurassic pork]

hello,
Voici les propriétés qui sont deprecated dans TProcess :



et pour michastro un paramétrage du style :

Code :

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

1
2
3
4
5
6
7
 
hProcess := TProcess.Create(nil);
  // On Linux/Unix/OSX, we need specify full path to our executable:
  hProcess.Executable := '/bin/sh';
  // Now we add all the parameters on the command line:
  hprocess.Parameters.Add('-c');
  hprocess.Parameters.add('echo ' + sValue  + '  > /sys/class/backlight/rpi_backlight/brightness');

avec sValue la valeur à appliquer, devrait faire l'affaire.

Ami calmant, J.P (santé)

[Jipété]

hello,
Voici les propriétés qui sont deprecated dans TProcess :

Si je peux me permettre, car les deux dernières lignes ne sautent pas instantanément aux yeux (m'a fallu un certain temps...) :