1. #1
    Membre averti
    Inscrit en
    juin 2012
    Messages
    226
    Détails du profil
    Informations forums :
    Inscription : juin 2012
    Messages : 226
    Points : 360
    Points
    360

    Par défaut Equivalent de SetEnvironmentVariable sous Linux ?

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

  2. #2
    Expert éminent
    Avatar de Jipété
    Profil pro
    Inscrit en
    juillet 2006
    Messages
    5 981
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : juillet 2006
    Messages : 5 981
    Points : 8 174
    Points
    8 174

    Par défaut

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

    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 ?
    Il a à vivre sa vie comme ça et il est mûr sur ce mur se creusant la tête : peutêtre qu'il peut être sûr, etc.
    Oui, je milite pour l'orthographe et le respect du trait d'union à l'impératif.
    Après avoir posté, relisez-vous ! Et en cas d'erreur ou d'oubli, il existe un bouton « Modifier », à utiliser sans modération
    On a des lois pour protéger les remboursements aux faiseurs d’argent. On n’en a pas pour empêcher un être humain de mourir de misère.
    Mes 2 cts,
    --
    jp

  3. #3
    Membre averti
    Inscrit en
    juin 2012
    Messages
    226
    Détails du profil
    Informations forums :
    Inscription : juin 2012
    Messages : 226
    Points : 360
    Points
    360

    Par défaut

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

    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.

    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.

  4. #4
    Membre averti
    Inscrit en
    juin 2012
    Messages
    226
    Détails du profil
    Informations forums :
    Inscription : juin 2012
    Messages : 226
    Points : 360
    Points
    360

    Par défaut

    Je crois avoir trouvé.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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...

  5. #5
    Membre confirmé

    Homme Profil pro
    Amateur Passionné
    Inscrit en
    septembre 2015
    Messages
    276
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : Amateur Passionné
    Secteur : Tourisme - Loisirs

    Informations forums :
    Inscription : septembre 2015
    Messages : 276
    Points : 553
    Points
    553

    Par défaut

    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

    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.
    • "L'Homme devrait mettre autant d'ardeur à simplifier sa vie qu'il met à la compliquer" - Henri Bergson
    • "Bien des livres auraient été plus clairs s'ils n'avaient pas voulu être si clairs" - Emmanuel Kant
    • "La simplicité est la sophistication suprême" - Léonard De Vinci
    • "Ce qui est facile à comprendre ou à faire pour toi, ne l'est pas forcément pour l'autre." - Mon pèrei

  6. #6
    Membre averti
    Inscrit en
    juin 2012
    Messages
    226
    Détails du profil
    Informations forums :
    Inscription : juin 2012
    Messages : 226
    Points : 360
    Points
    360

    Par défaut

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

    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Equivalent de pskill sous linux
    Par ErloBZH dans le forum Réseau
    Réponses: 0
    Dernier message: 11/12/2007, 11h42
  2. equivalent de easyPHP sous linux ?
    Par [Hugo] dans le forum Serveurs (Apache, IIS,...)
    Réponses: 2
    Dernier message: 06/11/2007, 12h38
  3. je cherche l'equivalent de WMI sous linux
    Par jlassiramzy dans le forum Linux
    Réponses: 1
    Dernier message: 25/01/2007, 19h42
  4. Equivalent de easyphp sous linux
    Par polace dans le forum Applications et environnements graphiques
    Réponses: 2
    Dernier message: 28/02/2006, 14h50
  5. Applicatifs equivalent MS exchange sous linux
    Par MarcG dans le forum Applications et environnements graphiques
    Réponses: 5
    Dernier message: 13/04/2004, 17h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo