delphi - 自动更新Delphi组中每个项目的版本信息？

Question

我有一个 .groupproj 文件，通过构建组项目，我用它来自动构建多个项目。我还增加了主要版本并通过 Delphi 的 IDE(RAD Studio，10.1 Berlin)中的 Project > Options > Version Info 添加新的 FileDescription，但这必须为每个项目手动完成。由于新版本频繁发布，这个手动过程变得很繁重。有什么方法可以为组中的每个项目自动执行此操作吗？也就是说，假设组中每个项目的新版本和文件描述都相同。

我写了一个bash script to do this但它似乎不起作用。当在 IDE 中查看 ... > Version Info 时，它看起来是正确的，但是当查看生成的可执行文件的属性时，在 Details、File version 和 File 下查看使用脚本时描述不正确，但手动完成时描述正确。这很重要，因为另一个软件使用此信息。

我还尝试了脚本中发现的正则表达式模式的变体，但没有成功。

我无法从自动和手动生成的版本中找到 .proj 和其他元数据文件之间的任何显着差异来解释该问题。我无法提供它们，因为我不拥有该项目代码的权利。

除了使用宏录制器和剪贴板管理器之外，还有其他更好的方法吗？

Answer 1

我们通过在项目中包含不同的 version.res 文件并关闭 IDE 添加的版本信息来实现此目的。这个“版本”文件位于我们的项目根目录中，并被所有其他项目引用。

首先在项目设置中取消选中“在项目中包含版本信息”选项。

然后在每个dpr中添加自定义资源文件:

{$R ..\version.res}

我使用 msbuild 来创建我的版本文件。它从一个模板文件开始，例如名为 version.rc.template 的文件。请注意，我有两个不同的替换字符串。嵌入的 FILEVERSION 和 PRODUCTVERSION 需要是逗号分隔的数字，但我还包含“.”。用户看到的字符串值中的数字。

VS_VERSION_INFO VERSIONINFO
FILEVERSION $(NewCommaVersion)
PRODUCTVERSION $(NewCommaVersion) 
FILEFLAGSMASK 0x3fL
FILEFLAGS 0x0L
FILEOS 0x4L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
  BLOCK "StringFileInfo"
  BEGIN
    BLOCK "080904B0"
    BEGIN
      VALUE "FileDescription", "Product, by Company.\0"
      VALUE "FileVersion", "$(NewBuildVersion)\0"
      VALUE "InternalName", "Product.exe\0"
      VALUE "LegalCopyright", "Copyright \251 Company\0"
      VALUE "ProductName", "Product\0"
      VALUE "ProductVersion","$(NewBuildVersion)\0"
    END
  END

  BLOCK "VarFileInfo"
  BEGIN
    VALUE "Translation", 0x809,1200
  END
END

我的 msbuild 进程将模板文件复制到真实的 version.rc 文件并替换 token 。我在 msbuild.proj 文件中有默认值，但通常它们是在运行构建时从命令行设置的。

  <PropertyGroup>
    <CommaVersion>1,2,999,999</CommaVersion>  
    <BuildVersion>1.2.999</BuildVersion>
  </PropertyGroup> 

  <ItemGroup>
    <TokenValues Include="NewCommaVersion">
        <Replacement>$(CommaVersion)</Replacement>
    </TokenValues>   
    <TokenValues Include="NewBuildVersion">
        <Replacement>$(BuildVersion)</Replacement>
    </TokenValues> 
  </ItemGroup>            

  <!--===================-->
  <Target Name="SetVersion">
    <Copy SourceFiles="version.rc.template" DestinationFiles="version.rc" />  

    <MSBuild.ExtensionPack.FileSystem.Detokenise 
       TaskAction="Detokenise" TargetFiles="version.rc" 
       ReplacementValues="@(TokenValues)"
       TextEncoding="ASCII" /> 
  </Target>

最后，我在让 Delphi 自动重建我的资源文件(.rc -> .res)时遇到了麻烦。我还没有在几个版本中对此进行测试，所以现在它可能可以正常工作。由于这些问题，我的项目中还有一个预构建步骤，将 .rc 文件编译到 .res 文件中:

brcc32 "$(PROJECTDIR)\..\version.rc"

我不 checkin .res 文件，这样 IDE 就不会提示新的构建。