Discussion :

[david.touzeau]

Bonjour,
J'utilise Lazarus sous Linux, je me demandais si il n'y avais pas une solution pour ajouter automatiquement un numéro de version à la compilation du programme (un peu comme Visual Studio).

Style 1.0.0.0 puis 1.0.0.1.. etc;.
Vous avez une idée ???


David Touzeau
http://www.artica.fr

[Clandestino]

Une réponse a déjà été donnée sur ce forum,
http://www.developpez.net/forums/sho...d.php?t=175968

Utilise resman disponible ici :
http://clandestino000.free.fr/lazarus/resman.zip

Bonne programmation

Clandestino

[david.touzeau]

heu...
Intéressent comme truc mais je suis sous Linux et ce n'est pas d'une icone que je recherche mais la possibilité d'ajouter un numéro de version automatiquement....

[Clandestino]

resman permet d'ajouter un numero de version qui s'autoincremente, mais sous windows... (voir photo jointe)
Je ne connais pas la démarche (meme manuelle) pour inserer un numero de version dans un binaire elf...

[pierrealain6913]

Bonjour,
Je reprends cette vieille discussion car elle m'intéresse et que je ne comprends pas la limitation de cette possibilité à Windows.
En effet seul l'EDI connait le numéro de version du projet.
Par ailleurs, ce n'est pas à l'exécution que le numéro de version risque de changer.
Pourquoi ne pourrait-on pas faire créer, par exemple, une directive de compilation: quelque chose comme ceci:

Code :

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

1
2
3
4
Var
  MyVersion: String;
Begin
  MyVersion := {$VN};

{$VN} serait automatiquement remplacé par le numéro de version trouvé dans l'EDI :

Code :

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

  MyVersion := 1.110;

Bien sûr, je ne suis pas un expert et ceci n'est peut-être pas possible pour des questions de normes. C'est simplement une idée qui pourrait être exploitée de façon plus orthodoxe par les spécialistes.
Cordialement.
PierreAlain.

[thewolf]

Bonjour.

Je ne sais pas si cela fonctionne mais dans la version 2.06 de Lazarus, si on va dans projet / options du projet, il y a un chapitre "Informations sur la version" avec une numérotation pouvant être incluse dans l'exécutable ...

Cordialement.

[Roland Chastain]

Bonjour ! Voici deux lectures que je viens de faire en diagonale et qui m'ont paru intéressantes :

https://forum.lazarus.freepascal.org...?topic=12435.0
https://wiki.freepascal.org/Show_App...n,_and_Company

[BeanzMaster]

Bonjour

Pour l'application, comme l'a dit TheWolf il faut te diriger dans les options du projet



Ensuite pour les lires depuis ton projet (par code) il suffit de suivre les explications données par le lien de Roland vers le wiki

En plus voila quelques fonctions très simple qui permettent d'obtenir quelques infos sur le compilateur utilisé et la LCL

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
26
27
28
 
uses
  LCLVersion, LCLPlatformDef;
 
function GetWidgetSet: string;
begin
  Result := LCLPlatformDisplayNames[WidgetSet.LCLPlatform]; 
end;
 
Function GetCompilerInfo: String;
begin
  Result := 'FPC '+{$I %FPCVERSION%};
end;
 
Function GetLCLVersion: String;
begin
  Result := 'LCL '+lcl_version;
end;
 
Function GetCompiledDate: String;
Begin
  Result:= {$I %DATE%};
End;
 
Function GetCompiledTime: String;
Begin
  Result:= {$I %TIME%};
End;

Bonne journée

[pierrealain6913]

Merci à tous.
En effet, je n'avais pas pensé à un fichier de ressources.
les exemples fournis à la page :
https://wiki.freepascal.org/Show_App...n,_and_Company
fonctionnent parfaitement, y compris sous linux.

Cordialement,
PierreAlain.

[Roland Chastain]

@BeanzMaster

Merci pour le complément d'information et pour le code. Bon, pour t'embêter un peu, je dirais quand même, à propos des quatre dernières fonctions, qu'il me paraîtrait plus logique d'en faire des constantes. À moins qu'il y ait une raison qui m'échappe ?

Bonne journée !

[BeanzMaster]

@BeanzMaster

Merci pour le complément d'information et pour le code. Bon, pour t'embêter un peu, je dirais quand même, à propos des quatre dernières fonctions, qu'il me paraîtrait plus logique d'en faire des constantes. À moins qu'il y ait une raison qui m'échappe ?

Bonne journée !

Salut, je n'y ai pas vraiment pensé. A tester si les constantes peuvent prendre comme argument la commande $I. pour ce qui est de "lcl_version" c'est déjà une constante dans l'unité LCLVersion et en plus on a :

Code :

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

1
2
3
4
5
6
7
const
  lcl_major = laz_major;
  lcl_minor = laz_minor;
  lcl_release = laz_release;
  lcl_patch = laz_patch;
  lcl_fullversion = laz_fullversion;
  lcl_version = laz_version;

J'ai ces fonctions (de complaisance) dans une unité, pas besoin de me souvenir des paramètres entre autres et de me souvenir de mettre les unités nécessaires dans les uses, hormis la mienne