Delphi 7(10), windows 7 и DirectX

[ImmortalAlexSan]

Вот хочу научится работать с DirectX в дельфи, но вот мне мешает одна фигня: DirectDraw, как использую её в коде, так ошибка выскакивает в коде DirectDraw.pas что в 10-й дельфе, что в 7-ой. Что делать ума не приложу.

 lpDDSZBufferDest            : PDirectDrawSurface; // Surface to use as Z buffer for dest

вот тут ошибка вот текст:
[DCC Error] DirectDraw.pas(173): E2154 Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
помогите разобраться.

[spamer]

С DirectX не работал, но вот что-то похожее глянь ==> тут

[ImmortalAlexSan]

Спасибо большое, spamer! Ещё на нашем же форуме нашёл тему, там рассказал AlexBlack что надо исправить... Можно закрывать обсуждение.

[chertovich]

Есть разные выпуски заголовочных файлов, скачай по-новее и не парь себе мозги, у мя все работает

[GunSmoker]

PDirectDrawSurface?

Вы уверены, что понимаете, что вы делаете? Может пройдёмся по-коду, во избежание?

[ImmortalAlexSan]

GunSmoker, во избежании чего? (Я только начал изучать). В Project->Options->Directories/Conditions->Search path был прописан путь к устаревшему модулю конкретно для этого проекта, я его удалил. И установил новый скачанный, указав к нему путь, всё заработало.

[GunSmoker]

Во избежание создания монстра, от встречи с которым программистам месяцами будут снится кошмары.

Поясняю: PDirectDrawSurface выглядит очень подозрительно, поскольку решительно намекает на такое определение:

PDirectDrawSurface = ^IDirectDrawSurface;

В нормальном коде не должно быть никаких PDirectDrawSurface. Должны быть IDirectDrawSurface.

[ImmortalAlexSan]

Вот опять началось! При компиляции модуля DDUtils.pas вылазиет такая ошибка:
[DCC Error] DDUtil.pas(239): E2010 Incompatible types: 'Char' and 'AnsiChar'
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'ddutil.pas'
Вот тут в коде:

fh := _lopen(szBitmap, OF_READ);

Попытался сделать так:

fh := _lopen(@zBitmap, OF_READ);

или так

fh := _lopen(Addr(szBitmap), OF_READ);

или так

fh := _lopen(PAnsiChar(szBitmap), OF_READ);

Этот модуль проходит но ошибка появляется в другом модуле DXCommon.pas вот в этой строке:

result := ( (OSVersion.dwPlatformID = VER_PLATFORM_WIN32_NT) and
              (Pos('DELPHI32.EXE', AppName) = Length(AppName) - Length('DELPHI32.EXE')

вот такого содержания:
First chance exception at $75A49617. Exception class EAccessViolation with message 'Access violation at address 75A48399 in module 'KERNELBASE.dll'. Write of address 00130000'. Process Project1.exe (5608)
Ошибка уже в процессе выполнения проги. Критическая, из проги сразу выкидывает с сообщением:
RuntimeError