Accueil > > > GESTION DES VERSIONS D'UNE APPLICATION
GESTION DES VERSIONS D'UNE APPLICATION
Information sur la source
Description
J'en avais marre de gérer à la main les numéros de version de mes programmes. Il y a de nombreuses discussions sur les versions des programmes (cf http://www.delphifr.com/infomsg_VERSION-APPLICATIO N_113551.aspx par exemple), par contre : - il y a bien une fonction pour lire la version du pgm mais impossible de savoir comment l'écrire lors d'une compilation (ou après) - la fonction de lecture n'est de toute façon pas universelle (pour les personnes qui passent sous Lazarus, MacOsX, Linux, ...) Du coup, j'ai fait un petit programme qui se lance en ligne de commande qui permet de lire ou écrire dans un fichier INI. Là je vois les neurones de certains lecteurs de cet article qui s'agitent : mais qu'est-ce qu'il dit? quel est le rapport? ... Cela permet de: - gérer le numéro de version dans un fichier Ini et de renommer le programme avec son numéro de version - d'utiliser le numéro de version par le programme (s'il a besoin de connaître sa version, il lit dans le fichier). Exemples : - VarIni c:\toto.ini -gNumVersion (cela permet de récupérer le numéro de version et l'afficher) - VarIni toto.ini -sNumVersion=0.0.1.4 (permet de dire que le numéro de version est 0.0.1.4) Comme vous l'avez compris : -g veut dire "get", -s veut dire "set" et NumVersion est le nom de la variable utilisée dans le fichier INI... Attention, je ré-insiste : le programme est sans prétention (la lecture/écrite dans un fichier INI a déjà été vu de nombreuses fois sur http://www.delphifr.com), mais il peut servir à la communauté (en tout cas il me sert :))
Source
- program VarIni;{$APPTYPE CONSOLE}
- {______________________________________________________________________________
-
- Programme sans prétention pour gérer les numéros de version
- Auteur = Eric SALLOU
- ______________________________________________________________________________
- }
- uses
- SysUtils,
- IniFiles;
-
- const
- kSection = 'Application';
-
- var
- Ini: TIniFile;
- NomFichier, Ligne: string;
-
- {______________________________________________________________________________
-
- Help générique
- ______________________________________________________________________________
- }
- procedure Erreur;
- begin
- writeln('Ligne de commande:');
- writeln(' VarIni <NomFichierIni> [-g<VariabledansApplication>} | [-s<VariabledansApplication>=<valeur>]');
- writeln('-g : get, -s : set');
- writeln('Exemples:');
- writeln(' VarIni c:\toto.ini -gNumVersion');
- writeln(' VarIni toto.ini -sNumVersion=1.2.3');
- end;
-
- {______________________________________________________________________________
-
- Programme principal
- ______________________________________________________________________________
- }
- begin
- if Paramcount <> 2
- then Erreur
- else
- begin
- NomFichier := ParamStr(1);
- // S'il n'y a pas de chemin on met celui du pgm
- if Pos('\', NomFichier) = 0 then
- NomFichier := ExtractFilePath(ParamStr(0)) + NomFichier;
- // On vérifie que le fichier existe
- if FileExists(NomFichier) then
- begin
- Ini := TIniFile.Create(NomFichier);
- try
- // Vérification qu'il y a au moins 2 paramètres
- if length(ParamStr(2)) > 2 then
- begin
- // regarde si c'est un get ou un set
- if copy(ParamStr(2), 1, 2) = '-g' then
- writeln(Ini.ReadString(kSection, copy(ParamStr(2), 3,
- length(ParamStr(2)) - 2), '???'))
- else if copy(ParamStr(2), 1, 2) = '-s' then
- begin
- // gestion du get
- Ligne := copy(ParamStr(2), 3, length(ParamStr(2)) - 2);
- if Pos('=', Ligne) = 0 then
- begin
- writeln('Pb avec 2ème paramètre (manque "="): ' + ParamStr(2));
- writeln;
- Erreur;
- end
- else
- begin
- // gestion du set
- Ini.WriteString(kSection, copy(Ligne, 1, pos('=', Ligne) - 1),
- copy(Ligne, pos('=', Ligne) + 1, length(Ligne) - pos('=', Ligne)));
- writeln('Mise a jour de la variable OK');
- end;
- end
- else
- begin
- writeln('2ème paramètre inconnu: ' + ParamStr(2));
- writeln;
- Erreur;
- end;
- end
- else
- begin
- writeln('2ème paramètre inconnu: ' + ParamStr(2));
- writeln;
- Erreur;
- end;
- finally
- Ini.Free;
- end;
- end
- else
- begin
- writeln('Fichier ' + NomFichier + ' non trouvé');
- writeln;
- Erreur;
- end;
- end;
- end.
program VarIni;{$APPTYPE CONSOLE}
{______________________________________________________________________________
Programme sans prétention pour gérer les numéros de version
Auteur = Eric SALLOU
______________________________________________________________________________
}
uses
SysUtils,
IniFiles;
const
kSection = 'Application';
var
Ini: TIniFile;
NomFichier, Ligne: string;
{______________________________________________________________________________
Help générique
______________________________________________________________________________
}
procedure Erreur;
begin
writeln('Ligne de commande:');
writeln(' VarIni <NomFichierIni> [-g<VariabledansApplication>} | [-s<VariabledansApplication>=<valeur>]');
writeln('-g : get, -s : set');
writeln('Exemples:');
writeln(' VarIni c:\toto.ini -gNumVersion');
writeln(' VarIni toto.ini -sNumVersion=1.2.3');
end;
{______________________________________________________________________________
Programme principal
______________________________________________________________________________
}
begin
if Paramcount <> 2
then Erreur
else
begin
NomFichier := ParamStr(1);
// S'il n'y a pas de chemin on met celui du pgm
if Pos('\', NomFichier) = 0 then
NomFichier := ExtractFilePath(ParamStr(0)) + NomFichier;
// On vérifie que le fichier existe
if FileExists(NomFichier) then
begin
Ini := TIniFile.Create(NomFichier);
try
// Vérification qu'il y a au moins 2 paramètres
if length(ParamStr(2)) > 2 then
begin
// regarde si c'est un get ou un set
if copy(ParamStr(2), 1, 2) = '-g' then
writeln(Ini.ReadString(kSection, copy(ParamStr(2), 3,
length(ParamStr(2)) - 2), '???'))
else if copy(ParamStr(2), 1, 2) = '-s' then
begin
// gestion du get
Ligne := copy(ParamStr(2), 3, length(ParamStr(2)) - 2);
if Pos('=', Ligne) = 0 then
begin
writeln('Pb avec 2ème paramètre (manque "="): ' + ParamStr(2));
writeln;
Erreur;
end
else
begin
// gestion du set
Ini.WriteString(kSection, copy(Ligne, 1, pos('=', Ligne) - 1),
copy(Ligne, pos('=', Ligne) + 1, length(Ligne) - pos('=', Ligne)));
writeln('Mise a jour de la variable OK');
end;
end
else
begin
writeln('2ème paramètre inconnu: ' + ParamStr(2));
writeln;
Erreur;
end;
end
else
begin
writeln('2ème paramètre inconnu: ' + ParamStr(2));
writeln;
Erreur;
end;
finally
Ini.Free;
end;
end
else
begin
writeln('Fichier ' + NomFichier + ' non trouvé');
writeln;
Erreur;
end;
end;
end.
Conclusion
Exemple d'un fichier INI : [Application] NumVersion=0.0.0.1
Exemple d'un fichier batch à lancer après la compilation et avant diffusion: REM GESTION DU NUMERO DE VERSION @echo Ancien numero de version: @Varini\VarIni Info.ini -gNumVersion @set /p NumVer=Numero de version?: Varini\VarIni Info.ini -sNumVersion=%NumVer% REM ON FAIT DU MENAGE POUR DELPHI del VarIni\src\*.~dpr del VarIni\src\*.~dfm del VarIni\src\*.~pas del VarIni\src\*.dcu del VarIni\src\*.exe del VarIni\src\*.~ddp del VarIni\src\*.~dsk del VarIni\src\*.~dsk del VarIni\src\*.~txt del VarIni\src\*.~pa del VarIni\src\*.~dp del VarIni\src\*.~ds REM ON FAIT DU MENAGE POUR LAZARUS del VarIni\src\*.o del VarIni\src\*.or del VarIni\src\*.ppu del VarIni\src\*.bk1 del VarIni\src\*.bk2 REM ON COMPRESSE LE PGM AVEC UPX ..\..\Outils\upx\upx --force --ultra-brute VarIni\VarIni.exe REM ON FAIT UNE VERSION ZIP AVEC TZIP del w32portable\Outil.zip ..\..\Outils\7z\7za a -tzip w32portable\Outil.zip VarIni -mx9 REM ON FAIT UNE VERSION INSTALLABLE (création de w32light\setup.exe) "\Inno Setup 5\iscc" w32light.iss REM .... ET LA ON GERE LA VERSION !!!!!!!!!!!!!!!!! ren w32portable\Outil.zip Outil%NumVer%.zip ren w32light\setup.exe Outil%NumVer%.exe
Historique
- 21 juillet 2007 12:30:45 :
- J'avais oublié de vous donner des exemples d'utilisation:
- VarIni c:\toto.ini -gNumVersion (cela permet de récupérer le numéro de version et l'afficher)
- VarIni toto.ini -sNumVersion=0.0.1.4 (permet de dire que le numéro de version est 0.0.1.4)
Comme vous l'avez compris : -g veut dire "get", -s veut dire "set" et NumVersion est le nom de la variable utilisée dans le fichier INI...
- 21 juillet 2007 12:34:49 :
- J'ai mis le source à télécharger
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
shellexecute et commande print sous DOS [ par fredy24 ]
je cherche comment exécuter la commande PRINT sous DOS en passant par un shellexecute.Merci d'avance pour les réponses.
Commande DOS dans une page web [ par jeremymolla1 ]
Bonjour, J'aimerais savoir s'il était possible de créer un code qui enclancherait une commande DOS sur l'ordinateur du visiteur. Par exemple
Commande DOS dans une page web [ par jeremymolla1 ]
Bonjour, je voudrais savoir s'il était possible de mettre une commande DOS dans une page web et si oui comment ?????
Net use [ par jmp77 ]
Hello, Est ce que quelqu'un saurait comment faire la meme chose que cette commande dos : net use LPT1 \\Serveur1\Printer12 /persistent:yes Cette com
détourner entree et sortie standart du dos [ par dk2089 ]
j'aimerais ecrire un programme qui ferait office d'un espece de shell a la place du tradutionnel cmd.exe, et que je pourrais integrer dans mon applica
exectution commande C sour Dos [ par DDHL ]
bonjour,je dois réaliser un batch pour lancer le logiciel winaudit et surtout lancer la commande audit et a la fin de celui ci enregistrer un log ds u
recuperer la sortie d'une commande dos. [ par Oamiotte ]
bonjourj'ai fait un applicatif pour lister les connexions terminal server ouvertes et les fermer toutes. pour obtenir la liste j'utilise la commande c
Executer une commande dos + script [ par emirej ]
Voila enfaite j'aimerais savoir comment avec Delphi 7 je peux ouvrir dos et faire cette commande :ipconfig /flushdnsipconfig /releaseipconfig /renewEf
en peut jointer une commande fichier ms-dos avec une photo jpg?? [ par loupy50 ]
salut lé ami j'ai une question en peut jointer une commande fichier ms-dos avec une photo jpg??enfin si c'est possible merci d'avence
commande DOS "universelle" (98, XP, Vista) [ par JackNUMBER ]
bonjour !j'aimerai savoir si il y a une possibilité d'éxécuter une commande DOS qui marche sur tous les Windows (98, XP, Vista) car mon problème est q
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|