Не компилируется модуль

[Лубышев]

Я решил почитать Графика DirectX в Delphi М.Краснова, и немного подучиться, но Delphi не хочет компилировать модуль DirectDraw.pas, который был приведен в книге. Я не знаю, че делать, помогие пожалуйста

[alexBlack]

Привели бы еще номера строк, в которых ошибки.
И какая версия Delphi

// исправьте здесь
var
  NilGUID : TGUID = ''; //absolute 0;  (по моему так)

// и здесь
....
{$ELSE}
  PDirectDrawSurface = Pointer; // IDirectDrawSurface;
{$ENDIF}

после этого в 10-ке компилируется

[Лубышев]

Блин, к сожалению не дома я.
Я работаю в Delphi 7.
Ошибка где-то тут была(кажется):

    1: (
      lpDDSZBufferDest            : PDirectDrawSurface; // Surface to use as Z buffer for dest
      dwZSrcConstBitDepth         : DWORD;     // Bit depth used to specify Z constant for source
      case integer of
      0: (
        dwZSrcConst               : DWORD;     // Constant to use as Z buffer for src
       );
      1: (
        lpDDSZBufferSrc           : PDirectDrawSurface; // Surface to use as Z buffer for src
        dwAlphaEdgeBlendBitDepth  : DWORD;     // Bit depth used to specify constant for alpha edge blend
        dwAlphaEdgeBlend          : DWORD;     // Alpha for edge blending
        dwReserved                : DWORD;
        dwAlphaDestConstBitDepth  : DWORD;     // Bit depth used to specify alpha constant for destination
        case integer of
        0: (
          dwAlphaDestConst        : DWORD;     // Constant to use as Alpha Channel
         );
        1: (
          lpDDSAlphaDest          : PDirectDrawSurface; // Surface to use as Alpha Channel
          dwAlphaSrcConstBitDepth : DWORD;     // Bit depth used to specify alpha constant for source
          case integer of
          0: (
            dwAlphaSrcConst       : DWORD;     // Constant to use as Alpha Channel
          );

Что то было типа не совместимость типов.
Если не изменяет мне память то вроде бы эта строка:
lpDDSZBufferSrc : PDirectDrawSurface;
или вот эта:
lpDDSAlphaDest : PDirectDrawSurface;

[Лубышев]

Извините, за предыдущее
Вот ошибка какая:
строка:

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

Компилятор пишет:
[Warning] DirectDraw.pas(85): Unsafe type 'TRefGUID'
[Warning] DirectDraw.pas(168): Unsafe type 'TDDBltFX'
[Error] DirectDraw.pas(173): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Error] DirectDraw.pas(180): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Error] DirectDraw.pas(190): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Error] DirectDraw.pas(197): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Error] DirectDraw.pas(209): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Warning] DirectDraw.pas(475): Unsafe type 'TDDPixelFormat_DX5'
[Warning] DirectDraw.pas(512): Unsafe type 'TDDPixelFormat_DX6'
[Warning] DirectDraw.pas(579): Unsafe type 'TDDOverlayFX'
[Error] DirectDraw.pas(590): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
[Error] DirectDraw.pas(592): Type 'IDirectDrawSurface' needs finalization - not allowed in variant record
.... и так далее.

[alexBlack]

Не пробовали исправить как в посте #2 ?
В 7-ке те-же исправления.

[MAMOHT128]

Сообщение от alexBlack

Не пробовали исправить как в посте #2 ?
В 7-ке те-же исправления.

Delphi XE2 теже грабли
пост 2 помог

[Sladkii_marmalad]

Ребята!!!Огромное спасибище))))Решили всю проблему разом)))
Спасибо спасибо и еще раз спасибо)