如何创建批处理文件编译Delphi所有项目并生成含提示警告错误的日志

1. 核心批处理脚本（Windows环境） #

以下脚本可遍历指定目录下所有.dpr文件，调用Delphi官方编译工具完成批量编译，并生成项目单独日志与汇总日志：

@echo off
setlocal enabledelayedexpansion

:: 配置Delphi环境变量，根据你的Delphi版本修改路径（示例为Delphi 11）
call "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\rsvars.bat"

:: 创建日志存储目录
set LOG_DIR=.\BuildLogs
if not exist "%LOG_DIR%" mkdir "%LOG_DIR%"

:: 初始化汇总日志
set SUMMARY_LOG=%LOG_DIR%\BuildSummary.log
echo === 编译汇总日志 === > "%SUMMARY_LOG%"
echo 编译时间: %date% %time% >> "%SUMMARY_LOG%"
echo ------------------- >> "%SUMMARY_LOG%"

:: 遍历所有.dpr文件，跳过指定目录（如Test、临时文件目录）
for /r %%f in (*.dpr) do (
    set "PROJECT_PATH=%%f"
    set "PROJECT_NAME=%%~nf"
    set "PROJECT_LOG=%LOG_DIR%\!PROJECT_NAME!.log"

    :: 跳过不需要编译的项目目录，可按需修改过滤规则
    echo !PROJECT_PATH! | findstr /i "Test Temp" >nul
    if errorlevel 1 (
        echo 正在编译: !PROJECT_NAME!
        echo --- 编译项目: !PROJECT_NAME! --- >> "%SUMMARY_LOG%"

        :: 推荐用MSBuild编译（适配Delphi XE及以上版本，支持项目配置）
        msbuild "!PROJECT_PATH!" /t:Build /p:Configuration=Release /verbosity:detailed > "!PROJECT_LOG!" 2>&1

        :: 若为旧版Delphi（如Delphi 7），替换为dcc32命令：
        :: dcc32 "!PROJECT_PATH!" -v -B -Q > "!PROJECT_LOG!" 2>&1

        :: 记录编译结果与警告数
        if errorlevel 1 (
            echo 编译失败 >> "%SUMMARY_LOG%"
            echo 日志路径: !PROJECT_LOG! >> "%SUMMARY_LOG%"
        ) else (
            findstr /c:"Warning" "!PROJECT_LOG!" | find /c /v "" > "%LOG_DIR%\tmp_warn.tmp"
            set /p WARNING_COUNT=<"%LOG_DIR%\tmp_warn.tmp"
            del "%LOG_DIR%\tmp_warn.tmp"
            echo 编译成功，警告数: !WARNING_COUNT! >> "%SUMMARY_LOG%"
        )
        echo ------------------- >> "%SUMMARY_LOG%"
    )
)

echo 编译完成，汇总日志路径: %SUMMARY_LOG%
endlocal

2. 日志优化说明 #

• 每个项目生成独立日志文件，便于定位单个项目的警告/错误
• 汇总日志记录所有项目的编译状态与警告数量，快速对比整体质量
• 通过/verbosity:detailed（MSBuild）或-v（dcc32）参数确保日志包含完整的提示、警告与错误信息

3. Azure DevOps流水线集成要点 #

• 触发条件：设置流水线仅在PR提交时触发，避免不必要的编译
• 代理配置：确保构建代理已安装对应版本的Delphi，且rsvars.bat路径与脚本一致
• 日志上传：将BuildLogs目录作为构建工件上传，方便开发者查看
• 差异提醒：可添加自定义任务分析汇总日志，对比当前PR与上一次构建的警告数量变化，在PR评论中自动提醒开发者

示例流水线YAML片段：

steps:
- script: |
    call BuildAllProjects.bat
  displayName: '批量编译Delphi项目'
  condition: eq(variables['Build.Reason'], 'PullRequest')

- task: PublishBuildArtifacts@1
  inputs:
    PathtoPublish: 'BuildLogs'
    ArtifactName: 'DelphiBuildLogs'
    publishLocation: 'Container'
  displayName: '上传编译日志'

4. 注意事项 #

• 按需修改rsvars.bat路径，不同Delphi版本的路径编号不同（如Delphi 10.4对应21.0）
• 可扩展脚本的过滤规则，排除测试项目、废弃项目等非核心代码
• 若项目依赖第三方组件，需确保代理环境已安装对应组件包

内容的提问来源于stack exchange，提问作者Tobexy