delphi - DELPHI XE命令行编译本地化文件

Question

有人知道如何使用命令行编译整个本地化项目（RCN 和 DFN 文件）吗？我使用了 cgrc.exe，但不编译 DFN 表单，只处理 RCN 文件……我通过 processmonitor 看了一下，看到 bds.exe 加载了 DFM/DFN 文件……所以这可能是不可能的。如果有人知道...

谢谢

Answer 1

查看 DCC 命令行编译器的文档并编写一个执行所有编译的批处理文件。

这是一个例子：

@echo off
cd eng_core
call build.bat 
if errorlevel 1 goto finalerr
rem Errorlevel test needs to come directly after call.
rem If error occurs code at finalerr will back up one dir.
cd ..
cd eng_coreweb
call build.bat FINAL
if errorlevel 1 goto finalerr
cd ..
cd eng_lspconfig
call build.bat FINAL
if errorlevel 1 goto finalerr
cd ..
cd eng_pvcc
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd eng_tasks
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_block
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_login
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_profman
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_uconsole
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_uninst
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_update
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_updcheck
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_vmigrate
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_visereg
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_vssview
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd instreq
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_vtray
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd gui_wizard
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd svc_pvcc
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd svc_vlaunch
call build.bat 
if errorlevel 1 goto finalerr
cd ..
cd svc_vservice
call build.bat 
if errorlevel 1 goto finalerr
cd ..
goto off
:finalerr
cd ..
:off

并在单独的子目录中：

@ECHO OFF
echo .
echo ***************************
echo ***Compiling profman.exe***
echo ***************************
if FINAL!==%1! ..\ResetTestFase
if errorlevel 1 goto :err
dcc32 -B -GD profman.dpr
if errorlevel 1 goto :err
copy profman.exe D:\source\output
goto off
:err
if FINAL!==%1! ..\RestoreTestFase
pause
:off
if FINAL!==%1! ..\RestoreTestFase

我不知道这是否/如何明确解决您对 DFN 文件的评论，但如果 IDE 处理这些，我认为 DCC32 也会这样做。