d.bat

来自「EMS Advanced Import Component Suite 允许你把」· Batch 代码 · 共 93 行

@echo off

rem ---------------
rem Local variables
rem ---------------

@set D_VER=%1

@set DCC=%2
@set BPL=%3
@set DCP=%4

@set inst_log=%5

@if not defined DCC goto ParamsError
@if not defined BPL goto ParamsError
@if not defined DCP goto ParamsError

@if not exist %BPL% mkdir %BPL%
@if not exist %DCP% mkdir %DCP%

@if exist %BPL%\QImport3??_%D_VER%.bpl del %BPL%\QImport3??_%D_VER%.bpl /Q
@if exist %DCP%\QImport3??_%D_VER%.dcp del %DCP%\QImport3??_%D_VER%.dcp /Q

rem ------------------
rem Deleting old files
rem ------------------
rem @if exist error.log del error.log

echo ------------------------------- >> error.log
echo  %D_VER% >> error.log
echo ------------------------------- >> error.log


@if exist *.~?? del *.~?? > nul
@if exist *.dcu del *.dcu > nul

rem --------------------------
rem Compiling run-time package
rem --------------------------

rem @if exist QImport3RT_%D_VER%.dpk %DCC% QImport3RT_%D_VER%.dpk -B -LN%DCP% >> error.log
@%DCC% QImport3RT_%D_VER%.dpk -B >> error.log
@if errorlevel=1 goto RTCommonError
@echo QImport3RT_%D_VER%.dpk was compiled successfully! >> error.log

rem -----------------------------
rem Compiling design-time package
rem -----------------------------

rem @if exist QImport3DT_%D_VER%.dpk %DCC% QImport3DT_%D_VER%.dpk -B -LN%DCP% -U%DCP%>> error.log
@%DCC% QImport3DT_%D_VER%.dpk -B >> error.log
@if errorlevel=1 goto DTCommonError
@echo QImport3DT_%D_VER%.dpk was compiled successfully! >> error.log

rem --------------------
rem Copying bpl files
rem --------------------

@copy *%D_VER%.bpl %BPL% /Y > nul

rem -----------------------
rem Deleting needless files
rem -----------------------

@if exist *.bpl del *.bpl > nul
@if exist *.dcp del *.dcp > nul
@if exist *.dcu del *.dcu > nul

goto End

:RTCommonError
@echo QImport3RT_%D_VER%.dpk was compiled with errors! >> error.log
@echo QImport3RT_%D_VER%.dpk >>%inst_log%
rem @"error.log"
rem @pause
@exit 10

:DTCommonError
@echo QImport3DT_%D_VER%.dpk was compiled with errors! >> error.log
@echo QImport3DT_%D_VER%.dpk >>%inst_log%
rem @"error.log"
rem @pause
@exit 20

:ParamsError
@echo %D_VER% >> error.log
@echo Empty params! >> error.log
rem @pause
@exit 30

:End