Я пытаюсь скомпилировать пакет, содержащий DSUtils.pas (часть DSPack), и он терпит неудачу, потому что он пытается скомпилировать неправильный блок DirectShow9.pas, а не тот из DSPack, но один из RTL Delphi XE2 (обновление 3).Невозможно скомпилировать пакет, содержащий DSUtils в XE2
Проблема может быть повторен с минимальным пакетом:
package Package1;
{$R *.res}
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DEFINE DEBUG}
{$ENDIF IMPLICITBUILDING}
{$IMPLICITBUILD ON}
requires
rtl;
contains
DSUtils in 'x:\common\pkg\dspack\src\DSPack\DSUtils.pas';
end.
Ошибка возникает в DSUtils линии 1058 и ошибка Undeclared identifier: FrameRateCode
.
Result.FrameRateCode := (x and $00000003) shr 00;
Необъявленный является «FrameRateCode» - CtrlClick на результате приводит нас к Winapi.DirectShow9 (в папке RTL), который не имеет это поле объявлено.
Интересная часть - если я перехожу в список DSUtils, нажмите DirectShow9 и нажмите Ctrl + Enter, откроется версия DSpack устройства (и этот блок имеет определенное поле FrameRateCode). Поэтому Дельфи знает, где находится единица. Он просто пытается скомпилировать пакет, используя неправильный DirectShow9.
Интересный лакомый кусочек: если я компилирую обычное приложение (не-пакет), использующее DSUtils, все работает нормально.
Что я пробовал:
Компиляция DirectShow9 из DSPack в свой собственный пакет (на самом деле я использовал DirectX9 пакет из DSPack, который содержит все файлы из папки DirectX9) и добавить его к «требует '. Не работает.
Добавление папки с файлом DirectShow9 (из DSPack) в начало пути системы и перезагрузка. Не работает.
Добавление папки с файлом DirectShow9 в начало пути к библиотеке. Не работает.
Добавление модуля DirectShow9 в пакет с явным путем. Не работает.
Копирование DirectX9 * .pas в папку DSPack, чтобы устройство DirectShow9 находилось в той же папке, что и блок DSUtils. Не работает.
Я вижу три возможных обходных пути, но я не доволен ни одним из них.
Я могу прокомментировать проблемный код. К счастью, это только одна строка, все остальное компилируется с DirectShow9 Delphi.
Я могу переименовать DirectShow9 из DSPack, но тогда мне, возможно, придется исправить часть «uses» в другом приложении.
Я могу отключить автоматическое префикса с помощью «Winapi». но это вызовет у меня много дополнительной работы по редактированию тысяч и тысяч файлов.
Что бы я хотел, чтобы увидеть, как XE2 использует правильный исходный файл.
вы пробовали добавлять блок DirectShow9.pas к пакету? Я помню, что у меня была такая же проблема некоторое время назад, но я пытался установить ее в D2010, мне удалось исправить ее с минимальными изменениями, но я не помню, как я это сделал, это почти 2 года): – ComputerSaysNo
О, да, попробовал это тоже. Я уточню вопрос. – gabr
блин ... Я беспокоюсь, что они что-то сломали в XE2 ... вы пытались установить его в D2010? – ComputerSaysNo