Discussion :

[Difré91]

Bonjour,

J'utilise Inno Setup pour générer l'installeur de mon application.
Mon application lit des fichiers de configuration en JSON.
Je souhaiterais, via Inno Setup, modifier une entrée dans un des fichiers de config.
J'ai vu qu'il existait nativement des fonctions pour travailler sur les .ini, mais je ne souhaite pas modifier le format de mes fichiers de conf.

Voilà à quoi ressemble mon fichier :

Code :

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

1
2
3
4
5
6
7
8
 
{
    "section1" :
    {
        "key1" : "value1",
        "key2" : "value2"
    }
}

Je souhaiterais concrètement, setter value2 avec {userappdata} : "The path to the Application Data folder" (selon la doc Inno).
Il faut aussi que j'échappe les backslashes du chemin, sinon mon parser n'arrive pas à lire le chemin.

Première question : est-il possible, via un plugin ou une instruction basique de Inno Setup, de modifier ma variable ? (je ne pense pas).

Deuxième question : J'ai vu sinon qu'il était possible d'utiliser un script pascal défini dans la section [code] ou dans un fichier externe.
Quel serait le meilleur moyen pour changer la valeur de la clé ?
La repérer via expression régulière et la remplacer ?
La remplacer en recherchant un mot clef qui serait placé à la place de la valeur ? Comme ça :

Code :

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

1
2
3
4
5
6
7
8
 
{
    "section1" :
    {
        "key1" : "value1",
        "key2" : __KEY_2_VALUE__
    }
}

Voila, je suppose qu'il existe des tonnes de solutions à ce problème, mais je préfère ne pas réinventer la roue si un mécanisme permettant ce que je veux faire existe déjà.

[Ph. B.]

Bonjour,

Première question : est-il possible, via un plugin ou une instruction basique de Inno Setup, de modifier ma variable ? (je ne pense pas).

Non, mais je peux me tromper

Deuxième question : J'ai vu sinon qu'il était possible d'utiliser un script pascal défini dans la section [code] ou dans un fichier externe.

Il existe des parseurs JSON open source, mais il faudrait intégrer tout le code de ces unités dans la section [ CODE ] d'Innosetup, ce qui me parait très lourd et pas simple à réaliser vu qu'il faut tout de même adapter du code Delphi en script pascal !
On pourrait aussi intégrer ce parseur dans une dll et l'appeler depuis le script, mais cela me parait à peine moins lourd...

Quel serait le meilleur moyen pour changer la valeur de la clé ?
La repérer via expression régulière et la remplacer ?
La remplacer en recherchant un mot clef qui serait placé à la place de la valeur ? Comme ça :

Code :

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

1
2
3
4
5
6
7
8
 
{
    "section1" :
    {
        "key1" : "value1",
        "key2" : __KEY_2_VALUE__
    }
}

Si les clés sont repérables sans ambiguité, et compte tenu de la taille plutot faible d'un fichier de configuration, j'utiliserais une TStringList et la fonction StringChange. Exemple partiel de script à inclure :

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
22
23
24
25
[ Files ]
; Fichier de configuration à installer
; On précise la procédure à appeler après l installation
Source: "conf.json"; DestDir: "{app}"; AfterInstall: Parametrage
 
[ Code ]
// Procédure d’initialisation du fichier de configuration une fois celui-ci installé
procedure Parametrage;
var
  SL: TStringList;
  App, Tmp: String;
begin
  App := ExpandConstant('{app}');
  SL := TStringList.Create;
  try
    SL.LoadFromFile(App + '\Conf.json');
    Tmp := SL.Text;
    StringChange(Tmp, '__KEY_1_VALUE__', '"Valeur 1"');
    StringChange(Tmp, '__KEY_2_VALUE__', '"' + app + '\SousRep');
    SL.Text := Tmp;
    SL.SaveToFile(App + '\Conf.json');
  finally
    SL.Free;
  end;
end;

Pour plus de détails, se référer à l'aide d'InnoSetup.

[Difré91]

Bonjour,

Merci beaucoup pour ta réponse, ça marche parfaitement.
Sinon, j'ai juste une question par curiosité.
Pourquoi tu utilise une TStringList pour la mettre dans un String, travailler sur le String et le remettre dans la TStringList ?
J'ai vu cette fonction :

Code :

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

1
2
 
function LoadStringFromFile(const FileName: String; var S: AnsiString): Boolean;

Bon, j'avoue que j'ai essayé de l'utiliser et j'ai eu un "Type mismatch".
Je suppose que AnsiString n'est pas String.
Du coup, je suis reparti sur ta solution.

En fait, quel est l'intérêt de TStringList ?

[Ph. B.]

Sinon, j'ai juste une question par curiosité.
Pourquoi tu utilise une TStringList pour la mettre dans un String, travailler sur le String et le remettre dans la TStringList ?

Pour éviter que le générateur Innosetup crie lors de la génération du programme d'installation. Il n'aime pas un travail direct...

J'ai vu cette fonction :

Code :

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

1
2
 
function LoadStringFromFile(const FileName: String; var S: AnsiString): Boolean;

Je ne la connaissais pas ! comme quoi...

Bon, j'avoue que j'ai essayé de l'utiliser et j'ai eu un "Type mismatch".
Je suppose que AnsiString n'est pas String.

Si vous utilisez la version unicode d'Innosetup, AMHA, String est un WideString. Dans le cas contraire, string est un AnsiString.

En fait, quel est l'intérêt de TStringList ?

D'avoir les fonctions de lecture et sauvegarde de et vers un fichier et pouvoir accéder au contenu via une variable string.
Mais la fonction citée et son pendant SaveStringToFile doivent permettre de bâtir un script alternatif.

Complément : Après un petit test de vérification, cela donne :

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
procedure Parametrage;
var
  App, Tmp: String;
begin
  App := ExpandConstant('{app}');
  if not LoadStringFromfile(App + '\Conf.json', Tmp) then
    MsgBox('Echec Lecture paramétrage.', mbInformation, MB_OK)
  else
  begin
    StringChange(Tmp, '__KEY_1_VALUE__', '"Valeur 1"');
    StringChange(Tmp, '__KEY_2_VALUE__', '"' + app + '\SousRep');
    if not SaveStringToFile(App + '\Conf.json', Tmp, False) then
      MsgBox('Echec modification paramétrage.', mbInformation, MB_OK);
  end;
end;