| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как скомпилировать DCU из PAS файла

Виктор1985 ©   (2012-06-08 19:15:00) 

Здравствуйте.

Подскажите, как правильно получить DCU из PAS файла с помощью DCC32.

Самый простой вариант

dcc32 myunit.pas

выдает ошибку на строке

{$IF compilerversion >= 19}

При этом в начало юнита вставил

{$IF not Declared(CompilerVersion)}
 тут вывожу варнинг
{$ENDIF}

варнинг выводится. При компиляции dpr файла с подключенным юнитом все ок, а сам юнит никак не компилируется. Использую D2010.

---

Виктор1985   (2012-06-09 12:10:00) [1]

Пуии все передаются, полный вариант батника

@echo off

echo ===== Compile "%~1" ======

SET DCUDIR=..\DCU

SET GLOBALUNITSEARCH=d:\Work\StarTeam\_Shared\Alternative_RTL_VCL\DCU\;"d:\Langs\RAD  Studio\7.0\lib";"d:\Langs\RAD Studio\7.0\Imports";"d:\Langs\RAD Studio\7.0\Lib\Indy10";"C:\Users\Public\Documents\RAD Studio\7.0\Dcp";"d:\Langs\RAD Studio\7.0\include";"d:\Langs\RAD Studio\7.0\RaveReports\Lib";"d:\Langs\Components\Virtual Treeview\Source";"d:\Langs\Components\madCollection\madBasic\BDS7";"d:\Langs\Com ponents\madCollection\madDisAsm\BDS7";"d:\Langs\Components\madCollection\madExce pt\BDS7";"d:\Langs\Components\madCollection\madExcept\..\Plugins";"d:\Langs\Comp onents\madCollection\madKernel\BDS7";"d:\Langs\Components\madCollection\madSecur ity\BDS7";"d:\Langs\Components\madCollection\madShell\BDS7";d:\work\starteam\_sh ared\packages\source\f-in-box\packages;d:\Work\StarTeam\_Shared\Packages\DCU;

SET LOCALFILES="GUI;sbHardware;sbHardware\TGetDiskSerialVCL;sbUtils;sbUtils\sbLocali zer;sbUtils\PBearHTMLViewer;sbUtils\PBearHTMLViewer\Obj"

SET FINDPASDIR=%GLOBALUNITSEARCH%;%LOCALFILES%;..\..\_Shared\SharedUnits\;..\..\_Shared\SharedUnits\Protect;..\..\_Shared\Shar edUnits\Utils;

SET DEFINE=RELEASE;

dcc32 -D%DEFINE% -U%FINDPASDIR% -N0%DCUDIR% "%~1"

IF ERRORLEVEL 1 GOTO ERROR

rem -------------Все завершили теперь можно выходить

GOTO EXIT
:ERROR
echo ===========!!!!!!!!!!!!!!!!Error!!!!!!!!!!!============
pause
:EXIT

---

Rouse_   (2012-06-08 20:11:00) [2]

пути тоже передавать нужно, с которыми обычный экзешник компилится. Сами пути можно в билдлоге посмотреть...

---

Наверх