3

我的产品正在从 Delphi 6 迁移到较新的 Delphi XE3。Delphi 6 编译器用于输出已编译为可执行文件的文件列表：

Borland Delphi Version 14.0
Copyright (c) 1983,2002 Borland Software Corporation

ProjectName.dpr(X) 
...
PathToSomeUnit.pas(X) 
...
PathToSomeIncludedFile.inc(X)     
...
X lines, X.XX seconds, X bytes code, X bytes data.

其中“X”表示一些数字

我们有一个内部软件，用于分析应用程序和特定文件（单元和包含文件）之间的依赖关系。该软件使用 dcc32 控制台输出（如上图）作为其输入。

在新的 Delphi XE3 中，我们不再直接调用 dcc32，而是使用 MSBuild。不幸的是，控制台输出与 Delphi 6 不同。当禁用“安静编译”选项时，控制台输出有多个空行代替已编译文件列表。

Embarcadero Delphi for Win32 compiler version 24.0
Copyright (c) 1983,2012 Embarcadero Technologies, Inc.

[multiple blank lines]

X lines, X.X seconds, X bytes code, X bytes data. (TaskId:65)

使用 /verbosity:diagnostic 参数，它看起来如下

Embarcadero Delphi for Win32 compiler version 24.0 (TaskId:65)
Copyright (c) 1983,2012 Embarcadero Technologies, Inc. (TaskId:65)
(TaskId:65)
(TaskId:65)
(TaskId:65)
(TaskId:65)
(TaskId:65)
(TaskId:65)
...
X lines, X.X seconds, X bytes code, X bytes data. (TaskId:65)

直接调用 dcc32 时，也出现了类似的问题，但使用“-B”编译器开关（-B = 构建所有单元）解决了这个问题。我通过添加 /p:DCC_AdditionalSwitches=-B 尝试了与 MSBuild 类似的方法，但它仍然输出多个空行。

4

2 回答 2

3

这是一个可能的解决方案：

  1. 备份您的文件等。
  2. 打开 .NET Framework SDK v2.0 命令提示符。

  3. 反汇编Borland.Build.Tasks.Delphi.dll（位于您的$(BDS)\bin目录中）：

    ildasm Borland.Build.Tasks.Delphi.dll /out=Borland.Build.Tasks.Delphi.il

  4. 编辑Borland.Build.Tasks.Delphi.dcctask.xml（由上一步创建）并注释掉节点的Ignore子OutputParsing节点。

  5. 重新组装它：

    ilasm Borland.Build.Tasks.Delphi.il /dll

  6. 为其注册一个强名称异常：

    sn -Vr Borland.Build.Tasks.Delphi.dll

如果您按照此答案中的说明关闭了安静模式，则使用 MSBuild 构建您的 Delphi 项目现在应该会显示详细的编译器输出。

于 2015-10-09T11:52:24.777 回答
2

将--depends添加到 DCC32 命令行或/p:DCC_OutputDependencies=true 到 msbuild，它将输出一个易于解析的.d文件，如下例所示：

C:\publico\BUILD\temp\YourDPR.exe: YourDPR.dpr \
        C:\blabla blabla\FrameWork\Base\biblioteca\dcus\unit15.dcu \
        C:\blabla blabla\FrameWork\Base\biblioteca\dcus\unit13.dcu \
        C:\bla bla\bla\LIBD5\Units\unit12.dcu \
        C:\blabla blabla\FrameWork\Base\biblioteca\rxlib\units\unit1.dcu \
        C:\blabla blabla\FrameWork\Base\biblioteca\rxlib\units\unit13.dcu \
        C:\bla bla\bla\LIBD5\Units\unit1.dcu \
        C:\bla bla\bla\LIBD5\Units\unit12.dcu \

附言。您可以使用/p:DCC_Hints=false隐藏那些空白的 msbuild 行；

于 2016-07-22T12:42:07.003 回答