Delphi 预构建事件在编译之前不执行

Question

我正忙于自动化我们的构建以包含 svn 修订号。我们使用的是 Delphi 2010。我添加了一个预构建事件，调用一个批处理文件，该批处理文件将 svn 修订号（从 .svn 目录中的条目文件读取）和指定的版本号注入到 aVersionInfo.rc 中，该版本号是用我的项目。预构建事件如下所示：

call SetVersionInfo.bat 6 5 4

...以及批处理文件（希望有人发现这有用）...

@ECHO OFF
SETLOCAL
setLocal EnableDelayedExpansion

SET _myVar=0
FOR /F %%G in (.svn\entries.) DO (
IF !_myVar! LSS 3 SET /A _myVar+=1 & SET _svn_dir_rev=%%G
)

ECHO 1 VERSIONINFO > aVersionInfo.rc
ECHO. FILEVERSION %1,%2,%3,%_svn_dir_rev%   >> aVersionInfo.rc
ECHO. PRODUCTVERSION 1   >> aVersionInfo.rc
ECHO. FILEOS VOS__WINDOWS32   >> aVersionInfo.rc
ECHO. FILETYPE VFT_APP   >> aVersionInfo.rc
ECHO. BEGIN   >> aVersionInfo.rc
ECHO.   BLOCK "StringFileInfo"   >> aVersionInfo.rc
ECHO.   BEGIN   >> aVersionInfo.rc
ECHO.     BLOCK "080904b0"   >> aVersionInfo.rc
ECHO.     BEGIN   >> aVersionInfo.rc
ECHO.       VALUE "CompanyName","COMPANY\000"   >> aVersionInfo.rc
ECHO.       VALUE "FileDescription","APP\000"   >> aVersionInfo.rc
ECHO.       VALUE "FileVersion","%1.%2.%3.%_svn_dir_rev%\000"   >> aVersionInfo.rc
ECHO.       VALUE "InternalName","APP\000"   >> aVersionInfo.rc
ECHO.       VALUE "LegalCopyright","Copyright APP\000"   >> aVersionInfo.rc
ECHO.       VALUE "LegalTrademarks","APP\000"   >> aVersionInfo.rc
ECHO.       VALUE "OriginalFilename","APP.exe\000"   >> aVersionInfo.rc
ECHO.       VALUE "ProductName","APP\000"   >> aVersionInfo.rc
ECHO.       VALUE "ProductVersion,"1\000"   >> aVersionInfo.rc
ECHO.       VALUE "Comments","Compiled on %date% by %username%\000"   >> aVersionInfo.rc
ECHO.     END   >> aVersionInfo.rc
ECHO.   END   >> aVersionInfo.rc
ECHO.   BLOCK "VarFileInfo"   >> aVersionInfo.rc
ECHO.   BEGIN   >> aVersionInfo.rc
ECHO.     VALUE "Translation", 0x0809 1200   >> aVersionInfo.rc
ECHO.   END   >> aVersionInfo.rc
ECHO. END   >> aVersionInfo.rc
ENDLOCAL

批处理文件确实作为编译的一部分执行，更新了 aVersionInfo.rc，重新编译了 aVersionInfo.res，但是由于某种原因，新的 res 文件不用于编译 exe。但是，它会在干净构建期间或我第二次编译时更新。看来对 rc 文件更改的检查是在调用“预”构建事件之前进行的。这实际上使它成为一个中期构建事件。或者我错过了什么？

我确实尝试删除 aVersionInfo.res 文件作为另一个预构建事件，但编译器抱怨该文件丢失。难道是

{$R 'aVersionInfo.res' 'aVersionInfo.rc'}

线放错地方了？

Answer 1

尝试

{$R aVersionInfo.res}

从批处理文件中手动使用和调用 brcc32 aVersionInfo.rc（在创建 .rc 文件后）。这样您的 .res 文件就应该从正常的 IDE 构建中排除。

Answer 2

可能缺少 ["]

回声。值“产品名称”，“APP\000”>> aVersionInfo.rc
ECHO。 VALUE "ProductVersion,"1\000" >> aVersionInfo.rc
----- 这里 -----------------------^

回声。 VALUE "评论","由 %username%\000 于 %date% 编译" >>>版本信息.rc
再见

Answer 3

TL;DR：

将行 {$R 'aVersionInfo.res' 'aVersionInfo.rc'} 直接放在 Program 语句的下面一次，然后构建。或者使用 BRCC32 强制第一次构建 .RES 文件

长版本：

您对行：

{$R 'aVersionInfo.res' 'aVersionInfo.rc'}

位于错误位置的猜测部分正确。

当我最初在 Delphi XE2 下使用 .RC 文件进行设置时，我遇到了同样的问题，代码略有不同，有时可以编译，有时不能。我尝试了如下变体：

{$R 'aVersionInfo.res' 'aVersionInfo.rc'}
{$R '.\aVersionInfo.res' '.\aVersionInfo.rc'}

但 XE2 编译器一直抱怨找不到 RES 文件，如果确实不存在的话（请注意，这是我的初始构建）。

事实证明，您首先必须将该行直接放在 Program 语句下面：

program TTClient;
{$R 'VersionInfo.res' 'VersionInfo.rc'}

... 而不是放在已经存在的附近

{$R *.res}

然后您构建一次程序。

之后，您可以将该行移回到更合乎逻辑的位置：

{$R *.res}
{$R 'VersionInfo.res' 'VersionInfo.rc'}

出于某种奇怪的原因，一旦 Delphi“知道”.rc 文件是项目的一部分，则不再重要：

• 将行放在其他任何
• 有.res 文件是否存在 不需要

预编译步骤。如果.RC 文件被修改，编译器将重建.RES 文件，无论早期版本是否存在。

当您最初设置这个系统时，这种奇怪的行为并没有真正的帮助;-(

在解析项目源代码和构建 .dproj 文件时还发生了其他奇怪的事情，这让我这个解决方案，值得注意的是：

如果您重命名 .rc 文件，这可能会让您再次陷入麻烦：.dproj 文件中的残留部分仍然指向旧的 .rc 文件，编译器会抱怨找不到它。您必须从 .dproj 文件中编辑此旧名称才能解决此问题。

请注意，这一切都在 XE2 下，在其他版本 YMMV。

---

编辑添加：您可能仍然需要与 XE2 版本信息不工作问题。

Answer 4

在批处理文件中添加一行，修改包含该资源的 Delphi 源文件：

touch VersionInfo.pas

然后应重新编译源文件。如果源文件未修改，则编译器没有理由重新链接程序的该部分，因此不会注意到更新的资源文件。

Answer 5

您可以在批处理文件中调用 brcc32，以便它始终更新 .res 文件。我做了类似的事情，它在编译和构建中都有效。