DirectX 7的Delphi接口单元

Tags: /超级猛料/Picture.图形图像编程/DirectX_OpenGL等/ Date Created:

DirectX 7 的Delphi接口单元

(*==========================================================================;

* Files: ddraw.h dvp.h

* Content: DirectDraw and DirectDrawVideoPort include files

* DirectX 7.0 Delphi adaptation by Erik Unger

* Modified: 27-Oct-99

* Download: http://www.delphi-jedi.org/DelphiGraphics/

* E-Mail: Erik.Unger@gmx.at

***************************************************************************)

unit DirectDraw;

interface

{$MINENUMSIZE 4}

{$ALIGN ON}

uses

Windows;

var

DDrawDLL : HMODULE = 0;

function DDErrorString(Value: HResult) : string;

function MAKEFOURCC(ch0, ch1, ch2, ch3: Char) : DWORD;

* FOURCC codes for DX compressed-texture pixel formats

const

FOURCC_DXT1 = 'DXT1';

FOURCC_DXT2 = 'DXT2';

FOURCC_DXT3 = 'DXT3';

FOURCC_DXT4 = 'DXT4';

FOURCC_DXT5 = 'DXT5';

* GUIDS used by DirectDraw objects

const

CLSID_DirectDraw: TGUID = '{D7B70EE0-4340-11CF-B063-0020AFC2CD35}';

CLSID_DirectDraw7: TGUID = '{3c305196-50db-11d3-9cfe-00c04fd930c5}';

CLSID_DirectDrawClipper: TGUID = '{593817A0-7DB3-11CF-A2DE-00AA00b93356}';

const

DD_ROP_SPACE = (256 div 32); // space required to store ROP array

MAX_DDDEVICEID_STRING = 512;

* Flags for the IDirectDraw4::GetDeviceIdentifier method

* This flag causes GetDeviceIdentifier to return information about the host (typically 2D) adapter in a system equipped

* with a stacked secondary 3D adapter. Such an adapter appears to the application as if it were part of the

* host adapter, but is typically physcially located on a separate card. The stacked secondary's information is

* returned when GetDeviceIdentifier's dwFlags field is zero, since this most accurately reflects the qualities

* of the DirectDraw object involved.

DDGDI_GETHOSTIDENTIFIER = $00000001;

(*============================================================================

* DirectDraw Structures

* Various structures used to invoke DirectDraw.

*==========================================================================*)

var

NilGUID : TGUID absolute 0;

type

TRefGUID = packed record

case integer of

1: (guid : PGUID);

2: (dwFlags : DWORD);

end;

IDirectDraw = interface;

IDirectDraw2 = interface;

IDirectDraw4 = interface;

IDirectDraw7 = interface;

IDirectDrawSurface = interface;

IDirectDrawSurface2 = interface;

IDirectDrawSurface3 = interface;

IDirectDrawSurface4 = interface;

IDirectDrawSurface7 = interface;

IDirectDrawPalette = interface;

IDirectDrawClipper = interface;

IDirectDrawColorControl = interface;

IDirectDrawGammaControl = interface;

* Generic pixel format with 8-bit RGB and alpha components

PDDARGB = ^TDDARGB;

TDDARGB = packed record

blue: BYTE;

green: BYTE;

red: BYTE;

alpha: BYTE;

end;

* This version of the structure remains for backwards source compatibility.

* The DDARGB structure is the one that should be used for all DirectDraw APIs.

PDDRGBA = ^TDDRGBA;

TDDRGBA = packed record

red : BYTE;

green : BYTE;

blue : BYTE;

alpha : BYTE;

end;

* TDDColorKey

PDDColorKey = ^TDDColorKey;

TDDColorKey = packed record

dwColorSpaceLowValue: DWORD; // low boundary of color space that is to

// be treated as Color Key, inclusive

dwColorSpaceHighValue: DWORD; // high boundary of color space that is

// to be treated as Color Key, inclusive

end;

// Delphi 5 can't handle interface in variant records

// so we have to use pointers instead (which can be type-casted into interfaces):

{$IFDEF VER130}

PDirectDrawSurface = Pointer;

{$ELSE}

PDirectDrawSurface = IDirectDrawSurface;

{$ENDIF}

* TDDBltFX

* Used to pass override information to the DIRECTDRAWSURFACE callback Blt.

PDDBltFX = ^TDDBltFX;

TDDBltFX = packed record

dwSize : DWORD; // size of structure

dwDDFX : DWORD; // FX operations

dwROP : DWORD; // Win32 raster operations

dwDDROP : DWORD; // Raster operations new for DirectDraw

dwRotationAngle : DWORD; // Rotation angle for blt

dwZBufferOpCode : DWORD; // ZBuffer compares

dwZBufferLow : DWORD; // Low limit of Z buffer

dwZBufferHigh : DWORD; // High limit of Z buffer

dwZBufferBaseDest : DWORD; // Destination base value

dwZDestConstBitDepth : DWORD; // Bit depth used to specify Z constant for destination

case integer of

0: (

dwZDestConst : DWORD // Constant to use as Z buffer for dest

);

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

);

1: (

lpDDSAlphaSrc : PDirectDrawSurface; // Surface to use as Alpha Channel

case integer of

0: (

dwFillColor : DWORD; // color in RGB or Palettized

);

1: (

dwFillDepth : DWORD; // depth value for z-buffer

);

2: (

dwFillPixel : DWORD; // pixel value

);

3: (

lpDDSPattern : PDirectDrawSurface; // Surface to use as pattern

ddckDestColorkey : TDDColorKey; // DestColorkey override

ddckSrcColorkey : TDDColorKey; // SrcColorkey override

)

end;

* TDDSCaps

PDDSCaps = ^TDDSCaps;

TDDSCaps = packed record

dwCaps: DWORD; // capabilities of surface wanted

end;

* TDDOSCaps

PDDOSCaps = ^TDDOSCaps;

TDDOSCaps = packed record

dwCaps: DWORD; // capabilities of surface wanted

end;

* This structure is used internally by DirectDraw.

PDDSCapsEx = ^TDDSCapsEx;

TDDSCapsEx = packed record

dwCaps2 : DWORD;

dwCaps3 : DWORD;

dwCaps4 : DWORD;

end;

* TDDSCaps2

PDDSCaps2 = ^TDDSCaps2;

TDDSCaps2 = packed record

dwCaps: DWORD; // capabilities of surface wanted

dwCaps2 : DWORD;

dwCaps3 : DWORD;

dwCaps4 : DWORD;

end;

* TDDCaps

* This structure is the TDDCaps structure as it was in version 2 and 3 of Direct X.

* It is present for back compatability.

PDDCaps_DX3 = ^TDDCaps_DX3;

TDDCaps_DX3 = packed record

dwSize: DWORD; // size of the DDDRIVERCAPS structure

dwCaps: DWORD; // driver specific capabilities

dwCaps2: DWORD; // more driver specific capabilites

dwCKeyCaps: DWORD; // color key capabilities of the surface

dwFXCaps: DWORD; // driver specific stretching and effects capabilites

dwFXAlphaCaps: DWORD; // alpha driver specific capabilities

dwPalCaps: DWORD; // palette capabilities

dwSVCaps: DWORD; // stereo vision capabilities

dwAlphaBltConstBitDepths: DWORD; // DDBD_2,4,8

dwAlphaBltPixelBitDepths: DWORD; // DDBD_1,2,4,8

dwAlphaBltSurfaceBitDepths: DWORD; // DDBD_1,2,4,8

dwAlphaOverlayConstBitDepths: DWORD; // DDBD_2,4,8

dwAlphaOverlayPixelBitDepths: DWORD; // DDBD_1,2,4,8

dwAlphaOverlaySurfaceBitDepths: DWORD; // DDBD_1,2,4,8

dwZBufferBitDepths: DWORD; // DDBD_8,16,24,32

dwVidMemTotal: DWORD; // total amount of video memory

dwVidMemFree: DWORD; // amount of free video memory

dwMaxVisibleOverlays: DWORD; // maximum number of visible overlays

dwCurrVisibleOverlays: DWORD; // current number of visible overlays

dwNumFourCCCodes: DWORD; // number of four cc codes

dwAlignBoundarySrc: DWORD; // source rectangle alignment

dwAlignSizeSrc: DWORD; // source rectangle byte size

dwAlignBoundaryDest: DWORD; // dest rectangle alignment

dwAlignSizeDest: DWORD; // dest rectangle byte size

dwAlignStrideAlign: DWORD; // stride alignment

dwRops: Array [0..DD_ROP_SPACE-1] of DWORD; // ROPS supported

ddsCaps: TDDSCaps; // TDDSCaps structure has all the general capabilities

dwMinOverlayStretch: DWORD; // minimum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3

dwMaxOverlayStretch: DWORD; // maximum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3

dwMinLiveVideoStretch: DWORD; // minimum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3

dwMaxLiveVideoStretch: DWORD; // maximum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3

dwMinHwCodecStretch: DWORD; // minimum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3

dwMaxHwCodecStretch: DWORD; // maximum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3

dwReserved1: DWORD; // reserved

dwReserved2: DWORD; // reserved

dwReserved3: DWORD; // reserved

dwSVBCaps: DWORD; // driver specific capabilities for System->Vmem blts

dwSVBCKeyCaps: DWORD; // driver color key capabilities for System->Vmem blts

dwSVBFXCaps: DWORD; // driver FX capabilities for System->Vmem blts

dwSVBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->Vmem blts

dwVSBCaps: DWORD; // driver specific capabilities for Vmem->System blts

dwVSBCKeyCaps: DWORD; // driver color key capabilities for Vmem->System blts

dwVSBFXCaps: DWORD; // driver FX capabilities for Vmem->System blts

dwVSBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for Vmem->System blts

dwSSBCaps: DWORD; // driver specific capabilities for System->System blts

dwSSBCKeyCaps: DWORD; // driver color key capabilities for System->System blts

dwSSBFXCaps: DWORD; // driver FX capabilities for System->System blts

dwSSBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->System blts

dwReserved4 : DWORD;

dwReserved5 : DWORD;

dwReserved6 : DWORD;

end;

* This structure is the TDDCaps structure as it was in version 5 of Direct X.

* It is present for back compatability.

PDDCaps_DX5 = ^TDDCaps_DX5;

TDDCaps_DX5 = packed record