Équivalent de SetEnvironmentVariable sous Linux

Version imprimable

D'après qq. messages de plusieurs années SetEnvironmentVariable n'existe que sous windows, il y-a t-il eu quelque équivalent depuis ? Parce que :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
begin
     A_Process.Executable:='/bin/sh';
     A_Process.Options:=A_Process.Options+[poUsePipes,poNewConsole];
     Memo_Result.Clear;
 
       for I := 1 to GetEnvironmentVariableCount do begin
       A_Process.Environment.Add(GetEnvironmentString(I));
       Memo_Result.Lines.Add(GetEnvironmentString(I));
       end;
 
       Memo_Result.Lines.Add('');
       Memo_Result.Lines.Add('----------------------------------------');
       Memo_Result.Lines.Add('');
 
       A_Process.Executable := '/bin/sh';
       A_Process.Environment.Add('export WINEPREFIX=/usr/local');
       A_Process.Execute;
        for I := 1 to GetEnvironmentVariableCount do
         Memo_Result.Lines.Add(GetEnvironmentString(I));
 
end;

Ne fait rien ( également essayé des variantes sans plus de succès ). Si il faut que je passe par des scripts .sh pour y arriver ça va être un peu lourdingue.

12/10/2017, 09h37
Jipété

Salut,

histoire de faire un peu avancer le schmilblik,

1- je ne comprends pas ce que tu racontes : dans le texte tu parles de Set et dans le code de Get...
:koi:
2- à propos de ta ligne Environment.Add, la doc précise bien qu'il s'agit de couples Name=Value, pas sûr que ton "export NOM=blah" fonctionne comme tu l'attends. Peut-être en virant "export" ?

3- as-tu lu cette page ? Je suppose que oui, mais je te recopie ce qui me semble intéressant :

Citation:

Envoyé par the web

Important notes:
TProcess is not a terminal/shell! You cannot directly execute scripts or redirect output using operators like "|", ">", "<", "&" etc.

Cependant, la page des exemples montre bien une utilisation comme tu l'envisages de Executable := '/bin/sh'; dans l'exemple "using fdisk", presque tout en bas : à étudier...

EDIT :
Si au final ton problème est de lancer un exécutable en prenant en compte un chemin pouvant être différent selon les machines, pourquoi ne pas construire ce chemin avant, en dehors de tout TProcess, et une fois la ligne de commande bien construite, la lui passer en un bloc ?
12/10/2017, 10h27
mm_71
Citation:

Je ne comprends pas ce que tu racontes : dans le texte tu parles de Set et dans le code de Get...

Mais plus bas dans mon code il y-a:

Code:

A_Process.Environment.Add('export WINEPREFIX=/usr/local');

Pour montrer que la liste des variables n'a pas changé malgré cette instruction. Pour parvenir à mes fins à la base j'ai besoin de faire dans lazarus ce que fait ce script:
Code:

1 2 3 4 5 6 #!/bin/sh#!/bin/sh WINEPREFIX=$HOME/.wine/w7_32/ export WINEPREFIX="$HOME/.wine/w7_32/" cd $WINEPREFIX/drive_c/Program\ Files/Bounty\ Train wine start /unix BountyTrain.exe /bin/bash
Et si je ne peux pas créer et exporter une variable d'environnement depuis Lazarus ça va sérieusement me compliquer la vie.

Citation:

as-tu lu cette page ? Je suppose que oui

Oui, et c'est justement sur cette page qu'il est dit que ce que je veux est impossible mais comme ces pages ne sont pas d'hier j'espère que la situation a évolué depuis.

Citation:

Si au final ton problème est de lancer un exécutable en prenant en compte un chemin pouvant être différent selon les machines

Non, pas du tout, le but je l'ai exposé ici:
https://www.developpez.net/forums/d1...reur-terminal/
Mais comme la question est différente j'ai ouvert un nouveau fil.

Pour faire simple je décompose en étapes ce que je veux:
1: Lancer un exe wine préfixé dans un terminal sans avoir à utiliser un script. ( Avec le script je sais faire ).
2: Récupérer dans un memo toutes les sorties du terminal.
3: Tout stopper et récupérer le contrôle du bazar si il y-a un plantage à l’exécution.

Je crois avoir trouvé.

Code:

1
2
3
4
5
6
7
8
with TProcess.Create(nil) do begin
    Executable:='wine';
    for I := 1 to GetEnvironmentVariableCount do Environment.Add(GetEnvironmentString(I));
    Environment.add('WINEDEBUG=fixme-all');
    Parameters.add('/media/moi/home_common/wine_games/setup_starpoint_gemini_warlords_1.400.4_(15449)_(g).exe');
    Options := Options+[poWaitOnExit,poUsePipes,poNewConsole];
    Execute;
 end;

Les docs sont vraiment d'une indigence post apocalytique...

12/10/2017, 14h55
BeanzMaster

Salut il semblerai d'après ce que j'ai pu lire ici (2eme post) que tu puisses récupérer tes variables d'environnement avec SysUtils.GetEnvironmentVariable

EDIT : J'ai trouvé ça aussi : https://www.freepascal.org/docs-html.../fpsystem.html Regardes dans les référence des fonctions certaines pourront t'intéresser je pense

Citation:

FpExecL : Execute process (using argument list, environment)
FpExecLE : Execute process (using argument list, environment)
FpExecLP : Execute process (using argument list, environment; search path)
FpExecLPE : Execute a program in the path, and pass it an environment
FpExecV : Execute process
FpExecVP : Execute process, search path
FpExecVPE : Execute process, search path using environment
WIFSTOPPED : Check whether the process is currently stopped.
13/10/2017, 14h38
mm_71

Citation:

Salut il semblerai d'après ce que j'ai pu lire ici (2eme post) que tu puisses récupérer tes variables d'environnement avec SysUtils.GetEnvironmentVariable

Oui, c'est ce que je faisais, mais le problème n'était pas tant de les récupérer que d'assigner des varaibles d'environnement supplémentaires à un TProcess.
Dans le message 3 j'avais trouvé la réponse, quand on ajoute une variable au TProcess elle n'existe qu'a l'intérieur de ce dernier, la liste des variables d'environnement du système ne la prend pas en compte d’où une certaine perplexité.

Citation:

J'ai trouvé ça aussi : https://www.freepascal.org/docs-html.../fpsystem.html Regardes dans les référence des fonctions certaines pourront t'intéresser je penseouvé ça aussi : https://www.freepascal.org/docs-html.../fpsystem.html Regardes dans les référence des fonctions certaines pourront t'intéresser je pense

Oui, c'est fort possible, je vais me pencher dessus.