AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein SVN Revision als Buildnummer nutzen in Delphi
Thema durchsuchen
Ansicht
Themen-Optionen

SVN Revision als Buildnummer nutzen in Delphi

Ein Thema von Daimonion · begonnen am 27. Aug 2009 · letzter Beitrag vom 8. Mai 2013
 
Benutzerbild von Daimonion
Daimonion

Registriert seit: 4. Dez 2006
Ort: Vöhrenbach
15 Beiträge
 
#14

Re: SVN Revision als Buildnummer nutzen in Delphi

  Alt 28. Aug 2009, 10:54
Also ich hab jetzt zum einen das rc file in ein res File kompiliert (mit BRCC32) In meinem Projekt hab ich dann dieses ResFile mittels

{$R 'Version.res' 'Version.rc'} eingefügt. Funktioniert auch soweit ganz gut.

Als Alternative hab ich direkt das RC File in meinem Projekt hinzugefügt und dann kompiliert er es direkt mit, wenn ich ein Build erstelle.

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.
Thomas
Zitat Stromberg S03E08 - Erika:
"So...selbst die Capitolmatratze, die hier auf jedem Karosseplan umgerutscht ist, was will sie von mir? Zahlen. Aber so ist das. Als Chef in meiner Position, da bist du so einsam wie...Gott."
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz