trouver les Num de version

**aladin95** · 24/07/2013, 12h08

Bonjour a tous.
depuis XE .. je ne parviens plus a récupérer dans les appli (services ou appli Windows) le numéro de version de cette appli afin de l'afficher en début d’exécution.

J'utilise encore XP, Seven .. et prochainement Windows 8 sous lesquels mes appli seront utilisées.

D'avance merci a celui ou ceux qui pourraient m'aider

**Lung** · 24/07/2013, 14h40

Tu utilisais quel fonctions jusqu'à présent ?

**aladin95** · 24/07/2013, 15h31

Voila ce que je faisais pour les applis windows ..
ca plante pas mais ca retourne une chaine vide
Meme style pour les service apres avoir trouvé le repertoire d'install

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
29
30

// --------------------------------------------------------------GetAppVersion
// Pour aplication Windows classique
// Appel : x := GetGetAppVersion(Application.exename);
Function GetAppVersion (SvcName : String):String;
Var
  S         : String;
  Taille    : DWord;
  Buffer    : PChar;
  VersionPC : PChar;
  VersionL  : dword;
begin
  S := Svcname;
  Taille := GetFileVersionInfoSize(PChar(S), Taille);
  If Taille>0
  Then Try
  {--- Réservation en mémoire d'une zone de la taille voulue ---}
    Buffer := AllocMem(Taille);
  {--- Copie dans le buffer des informations ---}
    GetFileVersionInfo(PChar(S), 0, Taille, Buffer);
  {--- Recherche de l'information de version ---}
    If VerQueryValue(Buffer, PChar('\StringFileInfo\040C04E4\FileVersion'), Pointer(VersionPC), VersionL)
      Then Result:=VersionPC;
  Finally
    FreeMem(Buffer, Taille);
  End;
end;
// --------------------------------------------------------------- GetAppVersion

**tourlourou** · 24/07/2013, 15h44

Problème de AnsiString/AnsiChar/PAnsiChar ?

**ShaiLeTroll** · 24/07/2013, 15h58

Et les fonction de la

Comment récupérer le numéro de version de mon application ?

omment obtenir les informations de version d'un programme ?

Sont-elles toutes compatibles XE ?

Dommage que VersionInfo.pas par [SFX]-Zeus et SystmD semble être encore orienté Ansi donc pas compatible 2009,XE...

**Andnotor** · 24/07/2013, 16h17

ici

**aladin95** · 24/07/2013, 16h30

mon code fonctionne avec les anciennes version Delphi.
Je pense que Tourlourou a raison. Je vais rechercher autour des aménagements relatifs aux nouvelles gestions de string.

Pour info mon code est issu des forums ou FAQ d'ici ..

mais c'est bien de le rappeler

**Andnotor** · 24/07/2013, 17h19

La langue de ton projet n'est pas le français

Le code que je t'ai donné ci-dessus ne s'en préoccupe pas. Il prend la première disponible.

**aladin95** · 24/07/2013, 18h01

tu écris en français .. mais je crois ne pas avoir tout saisis ..

en tout cas, je viens d'essayer ton module.. je bute sur un probleme d'appel surchargé ambigu a strpas'

pas simple parfois de s'adapter aux évolutions des progiciels.

**Andnotor** · 24/07/2013, 19h19

Dans les options du projet, va sous Information de version et contrôle la langue choisie

Au pire si ce n'est pas le français, tu peux modifier la langue dans ta fonction. StringFileInfo\040C04E4\FileVersion.

**aladin95** · 30/07/2013, 12h57

pour supprimer l'erreur sur StrPas j'ai corrigé comme suit :

Code :

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

1
2
    if VersionQueryValue(format(TranslationFormat , [SubBlock, QueryValue]), QueryResult) then
      Result := StrPas(pansichar(QueryResult));

Apres essais, la version retournée ne comporte que la partie unité de la version et pas la partie décimale
si la version réelle est "1.1" la valeur retournée est "1"

la version est bien française..
L'info version est bien validée
comment obtenir les décimales aussi ?

**Andnotor** · 30/07/2013, 13h38

Cette routine mériterait d'être mise à jour mais... je ne suis pas au bureau

Result attend de l'unicode et non du ANSI. PAnsiChar n'est pas utilisable puisque le deuxième octet est rempli avec #0 (d'où la chaîne tronquée). Essaye simplement Result := PChar(QueryResult);.

**aladin95** · 30/07/2013, 15h05

En effet, ça marche mieux.

J'obtiens 1.1.0.0 et non 1
Sauf que la version réelle est plus développée soit par exemple : 1.1.49xx.12345
C’était mieux en incrémentant simplement mais cela ne semble plus possible avec XE2 automatiquement.
Je vais attendre ton retour de vacances

Merci en tout cas et bonnes vacances

**Andnotor** · 30/07/2013, 17h05

Vacances, faut le dire vite, trois jours tout au plus

Tu devrais retrouver la même info que par un clique droit sur l'exe.
Il y a plusieurs options possibles sous XE2+ et on peut toujours la mettre en auto-incrémentée. Mais il faut admettre que multiplier le remplissage pour les versions debug, release, 32 et 64 bits n'est pas des plus logiques

**aladin95** · 30/07/2013, 18h18

hé bien non, justement.
Ce n'est pas la même info..
Même en prenant soin des options.
j'ai testé avec ou sans incrément
Sans incrément en fixant 1.2.3.4 l'exe et le module renvoient 1.2.0.0 les 2 dernières valeurs ne semblent pas être prises en compte par le compilateur.
Avec incrément on ne peut fixer que 1.2 par exemple et l'exe donne 1.2.4026.85120 alors que le module ne renvoi que 1.2

a moins que j'ai oublié qq chose

allez .. bon repos

**Andnotor** · 01/08/2013, 20h36

Bon, de retour (déjà

)

J'ai refait un essai avec la version précédente. Résultat, pas de soucis ! Les quatre numéros sont correctement récupérés.
1.2.4026.85120 n'est pas possible ! chaque numéro est un word.

Sinon, voici une nouvelle version simplifiée :

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
29
30
//aQuery peut prendre ces valeurs:
//Comments, InternalName, ProductName, CompanyName, LegalCopyright, ProductVersion
//FileDescription, LegalTrademarks, PrivateBuild, FileVersion, OriginalFilename, SpecialBuild
function GetFileInfo(aFileName :TFileName; aQuery :string = 'FileVersion') :string; overload;
var
  Block  :pointer;
  Buffer :pointer;
  Size   :cardinal;
  Dummy  :cardinal;
 
begin
  Result := '';
 
  Size := GetFileVersionInfoSize(PChar(aFileName), Dummy);
 
  if Size > 0 then
  begin
    GetMem(Block, Size);
 
    try
      if GetFileVersionInfo(PChar(aFileName), 0, Size, Block) and
         VerQueryValue(Block, '\VarFileInfo\Translation', Buffer, Size) and
         VerQueryValue(Block, PChar(Format('\StringFileInfo\%.4x%.4x\%s', [word(Buffer^), HiWord(dword(Buffer^)), aQuery])), Buffer, Size) then
        SetString(Result, PChar(Buffer), Size);
 
    finally
      FreeMem(Block);
    end;
  end;
end;

et une autre qui permettrait de récupérer les informations localisées (bien sûr aucun intérêt pour le numéro de version

) :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
//aQuery:
//  Comments, InternalName, ProductName, CompanyName, LegalCopyright, ProductVersion
//  FileDescription, LegalTrademarks, PrivateBuild, FileVersion, OriginalFilename, SpecialBuild
//aLanguage:
//  français (France): $040C, anglais (Etats-Unis): $0409, etc.
function GetFileInfo(aFileName :TFileName; aQuery :string; aLanguage :word; aCodePage :word = 0) :string; overload;
type
  TTranslation = record
    Language :word;
    CodePage :word;
  end;
 
  PTranslations = ^TTranslations;
  TTranslations = array[0..0] of TTranslation;
 
var
  Block        :pointer;
  Buffer       :pointer;
  Size         :cardinal;
  Dummy        :cardinal;
  Translations :PTranslations;
  Count        :integer;
  i            :integer;
  Index        :integer;
 
begin
  Result := '';
 
  Size := GetFileVersionInfoSize(PChar(aFileName), Dummy);
 
  if Size > 0 then
  begin
    GetMem(Block, Size);
 
    try
      if GetFileVersionInfo(PChar(aFileName), 0, Size, Block) and
         VerQueryValue(Block, '\VarFileInfo\Translation', pointer(Translations), Size) then
      begin
         //Nombre de traductions
         Count := Size div SizeOf(TTranslation);
 
         //Si la langue n'est pas disponible, renverra la première info de la liste
         Index := 0;
 
         if Count > 1 then
           for i := 0 to Count -1 do
             //Langue recherchée ?
             if Translations[i].Language = aLanguage then
             begin
               //Au minimum, renverra l'info dans la bonne langue
               Index := i;
 
               //Si bon CodePage ou si CodePage pas requis => trouvé !
               if (Translations[i].CodePage = aCodePage) or (aCodePage = 0) then
                 Break;
             end;
 
        if VerQueryValue(Block, PChar(Format('\StringFileInfo\%.4x%.4x\%s', [Translations[Index].Language, Translations[Index].CodePage, aQuery])), Buffer, Size) then
          SetString(Result, PChar(Buffer), Size);
      end;
 
    finally
      FreeMem(Block);
    end;
  end;
end;

**aladin95** · 20/08/2013, 11h23

En regardant les propriétés de l'exe, on remarque qu'il y a 2 réponses différentes pour la version du fichier.
voir fichier joint
la 1 ere est celle que je recherche (1.0.4980.33871) elle figure hors du cadre "autre information de version"
La 2 ème (dans le cadre) indique 1.0.0.0 c'est la valeur que je récupère par programme.
La langue n'est pas celle définie dans les options du projet.

problème de configuration ? mais ou ??

trouver les Num de version

Langage Delphi

Discussions similaires

Partager

Partager