SVN Revision als Buildnummer nutzen in Delphi

[Martin W]

Danke, hat funktioniert!

Zitat von Daimonion:

Das einzige Problem, was ich derzeit noch habe sind ein paar Hieroglyphen.

So sieht die Quelle aus:

Delphi-Quellcode:

1 VERSIONINFO
FILEVERSION 4,3,5,407
PRODUCTVERSION 4,3,5,407
FILEOS 0x4
FILETYPE 0x1
{
BLOCK "StringFileInfo"
{
   BLOCK "040704E4"
   {
      VALUE "CompanyName", "Zebra Elektrotechnik"
      VALUE "FileVersion", "4.3.5"
      VALUE "InternalName", "LAP"
      VALUE "LegalCopyright", "Copyright Zebra"
      VALUE "LegalTrademarks", ""
      VALUE "OriginalFilename", "Laserschweissanlage.exe"
      VALUE "ProductName", "Laserarbeitsplatz"
      VALUE "ProductVersion", "4.3.5"
      VALUE "Comments", ""
   }
}

BLOCK "VarFileInfo"
{
   VALUE "Translation", 0x0407 0x04E4
}
}

Das kompilierte File hat dann aber noch ein paar Daten mehr in der VersionsInfo (mit ResourceHacker ausgelesen):

Delphi-Quellcode:

1 VERSIONINFO
FILEVERSION 4,3,5,407
PRODUCTVERSION 4,3,5,407
FILEOS 0x4
FILETYPE 0x1
{
BLOCK "StringFileInfo"
{
   BLOCK "040704E4"
   {
      VALUE "CompanyName", "Zebra Elektrotechnik*
FileVersion"
      VALUE "FileVersion", "4.3.5"
      VALUE "InternalName", "LAP"
      VALUE "LegalCopyright", "Copyright Zebra"
      VALUE "LegalTrademarks", ""
      VALUE "OriginalFilename", "Laserschweissanlage.exe"
      VALUE "ProductName", "Laserarbeitsplatz"
      VALUE "ProductVersion", "4.3.5"
      VALUE "Comments", ""
   }
}

BLOCK "VarFileInfo"
{
   VALUE "Translation", 0x0407 0x04E4
}
}

Komischerweise passiert dies nicht, wenn ich bei Company Name den letzten Bustaben wegmache.

Ja, die Länge einer jeden Eigenschaft muss, warum auch immmer, durch 2 Teilbar sein, dann geht es. Im Notfall einfach mit einem Leerzeichen auffüllen.

Dank an Dich!

Viele Grüße,
Martin