Discussion :

[Sparktacus]

Bonjour,

Je souhaite lire un fichier .inf qui n'est pas structuré comme un ini, il n'a pas de section.

Je voudrais récupérer la version pour autoriser ou non l'installation.

Code :

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

1
2
3
...
Version=1.2.3.4
...

Merci

[tourlourou]

il suffit de le charger dans un TStringList et de chercher la valeur associée à la chaîne clef :

Code :

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

1
2
MyStringList.LoadFromFile('test.inf');
MyVersion:=MyStringList.Values[ 'Version' ];

[Andnotor]

il suffit de le charger dans un TStringList et de chercher la valeur associée à la chaîne clef :

Code :

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

1
2
MyStringList.LoadFromFile('test.inf');
MyVersion:=MyStringList.Values[ 'Version' ];

La propriété Values n'est malheureusement pas disponible sous IS. La "cause" est à chercher dans RemObjects. Cette librairie fournit l'interpréteur mais ne met aucune classe originale à disposition. La logique est là, mais pas les déclarations !

Les classes incluses dans IS telles que nous les connaissons sous Delphi ont en fait été entièrement réécrites : les structures recréés, les propriétés et méthodes redéfinies et assignées par pointeur sur les allocations faites effectivement par IS lui-même. Bref de quoi donner l'illusion qu'on travaille en Delphi ! Un gros boulot (ceux qui ont déjà intégré RemObjects dans un de leurs outils le savent) !

@Sparktacus: Pas le choix si ce n'est de charger le fichier et de le décoder à la pogne !
Maintenant ne pas oublier qu'il est très facile d'intégrer une DLL "maison" créée dans le langage de notre choix et de la lier à notre script. Cela reste la façon la plus facile, la plus rapide et la plus intuitive de palier aux manques IS

[Sparktacus]

Merci bien pour vos informations.

Bon but était simplement d'éviter des boulettes venant de l'utilisateur.
Je ne suis pas en mesure de toucher au fichier, ce n'est pas moi qui le crée (bien que je le remplace mais par simple écrasement).

Créer une dll maison serait surement une très bonne solution, pour un programmeur, ce que je ne suis pas.

Et la réponse qui a été donné dans le sujet que j'ai linké ? Il n'y a pas moyen d'exploiter quelque chose ?

[Andnotor]

Et la réponse qui a été donné dans le sujet que j'ai linké ? Il n'y a pas moyen d'exploiter quelque chose ?

Ben si ! La fonction GetKeyValue correspond exactement à ton besoin.

ps: Il faudrait juste remplacer if KeyPos > 0 then par if KeyPos = 1 then.

[Sparktacus]

Ba oui, mais non ! Si j'avais compris sa réponse j'aurais juste eu à la mettre en pratique

Code :

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

L2Ver2.Caption := GetKeyValue('PatchVersion', FilePath, 'N/A');

Késako Caption . L2Ver2.Caption ne semble pas être une variable contenant la valeur. Et je ne comprends pas non plus tous le reste du code qui suit la ligne que j'ai citée, surtout la partie procedure InitializeWizard.