[收藏]在C++ Builder中进行DirectX编程

天云上人

戏开发之路----在C++ Builder中进行DirectX编程
; e" R% e5 l3 X2 D* k　　
$ N% j3 I& Y% i/ c( {1 i2 w* v2 X+ _C++ Builder是一个可视化的C++编程环境，它为编程人员提供了一种方便高效、简便的C++语言开发工具，因此已为广大C++程序员所青睐，DirectX开发工具包是微软公司提供的一套Windows9X下开发高性能图形、声音、输入输出和网络游戏的接口，其高效的直接硬件访问、程序与硬件设备之间的相对独立等特性，几乎使得DirectX成为唯一可以在Windows操作系统下开发游戏程序的基本工具软件。
虽然C++ Builder中直接包含了一套DirectX3的开发包，也提供了一些例程，但是这些例程没有系统化的说明，同时也不适合DirectX5以上的程序开发。另一方面，几乎所有关于DirectX开发的书籍和文献均使用Visual C++语言描述，所以作者将自己在C++ Builder中的一些开发经验介绍给读者。
  Q2 D0 X1 R/ T* Y6 p
3 k6 a0 `+ U% j8 h& X( [- m本文适合具备C++ Builder面向对象编程经验的读者，实例开发环境为中文Windows98、C++ Builder4、DirectX6或以上的开发工具包。
, d9 i: v9 u/ ]7 }) h
一.DirectX简介

4 `# r4 K4 l9 P2 H0 ^& F1_1.DirectX的特性

' A: I7 L  p+ O1 [% P  D# H0 g' \3 o: [1_2.DirectX是一种Windows环境下标准的高性能游戏、多媒体开发工具包，使用DirectX开发的程序能够与操作系统默契地配合成为“真正”的桌面应用程序；可以利用硬件厂商提供的驱动程序接口，充分最佳的设备性能；通过直接底层硬件操作，实现最快速、短延时、设备无关的底层接口。

& R7 ~1 m6 q" F  y9 w1_3.DirectX采用了组件对象模型（COM）标准，因此对于不同对象的版本可以有不同的接口，这使得用DirectX开发的程序在未来将得到完全兼容和支持的保证。
/ u/ T* g7 Y# q! }( @3 o
1_4.DirectX的结构

DirectX需要以设备无关的方法提供设备相关的性能，所以DirectX的结构是由两个驱动程序构成：硬件抽象层（HAL）和硬件模拟层（HEL），当Direct对象创建时，会同时建立一张“兼容表”，其中记录了当前硬件系统支持的功能，当DirectX需要实现某个功能时就查询该表，得到硬件对功能的支持信息，如果功能能够得到硬件支持，则向HAL发出求，以得到硬件的支持，否则向HEL发出请求，以模拟方式实现功能。

) L; f# M7 T9 F- U: D# P' V' ]9 b- T1_5.DirectX的主要组成
/ g. {' o) f: `1 k: i
　

(1)DirectDraw：直接访问图形硬件，管理用于显示的内存(显示内存和系统内存)，提供高速图形和页面切换动画；

(2)Direct3D：提供3D硬件接口；

(3)DirectInput：主要支持输入服务，同时支持输出设备；

7 }) y  p- G. d( U(4)DirectSound：提供3D声音效果，管理声卡内存；

(5)DirectPlay：提供网络多人游戏的通讯、组织功能；
; k* t, l, C% i/ h
(6)DirectSetup：自动安装DirectX驱动程序。

本文将按照DirectX的上述组成，分别以实例介绍其在C++ Builder中的实现方法。

　

' d7 ^1 \+ V& M" l2 n/ K　

二.DirectDraw程序设计

+ @8 u: |, @( ^" z' H  d3 X　
& O5 D& k* e8 [4 J, S$ p4 b9 v3 d
0 A! t1 T3 F# b5 H' V2.1 DirectDraw实现的基础—显示方式的设置
1 @9 |. Q9 n5 r' H0 X
. b- z& K% d( w$ ?/ W$ Z$ [3 `设计图形程序首先遇到的问题是将屏幕设置成一种合适的图形显示方式，然后把图形绘画到屏幕页面上。如果您在DOS下开发图形应用程序，这将是很简单的事，只要调用DOS的中断服务程序即可实现，但是使用用DirectDraw就比较复杂。由于DirectDraw的设计目标是提供设备无关的编程接口和高效、多功能的硬件访问支持，所以DirectDraw需要考虑更多的问题。

3 X; ?) `  D. D/ [/ c) a% E+ dDirectDraw在Windows环境下支持两种图形方式：全屏幕独占方式和窗口方式。这里我先以全屏幕独占方式，介绍DirectDraw设置屏幕显示方式步骤，函数具体使用格式和编程方法将在2.2中介绍：

2.1.1 选择硬件设备
; `; F. Q% T; M4 q+ R/ b0 R5 D
计算机系统不一定只有一个DirectDraw硬件抽象设备，例如，一台计算机可能有两台或更多的显示器，那么DirectDraw对象与哪个HAL对应呢？我们可以使用DirectDrawEnumerate函数来枚举系统所有已安装的设备，以供选择，并返回设备的唯一标识GUID。DirectDraw默认主显示设备的GUID为NULL；
3 m" A& q8 {( v" S' ]4 w- R2 u
( h0 ~4 L! a& p" W" j9 W2.1.2 创建DirectDraw对象
/ ?5 t; w3 N. o% T/ ]- F
由于DirectX是使用面向对象的程序设计技术，因此，使用DirectDraw编程就首先要创建DirectDraw对象。使用DirectDrawCreate函数及将第一步获得的设备GUID作为参数可以创建基于所选设备的DirectDraw对象；
/ I  J$ I5 ^: n2 Q! I  }- i% R
2.1.3 获取DirectDraw更高版本的COM接口

如果您不打算使用DirectX5以上版本提供的功能则可以跳过本步骤，否则必须使用新创建DirectDraw对象的QueryIntrface方法来获得IDirectDraw2或更高的COM接口。在2.2例中将介绍如何获得DirectX5以上版本提供的IDirectDraw2接口；

2.1.4 设置协作级别

0 D2 `( J; D! H5 j# p% J协作方式可以控制程序与系统其他应用程序之间的交互关系，典型的例子是：设置为全屏独占方式还是窗口普通方式。设置协作级别可以用DirectDraw对象的SetCooperativeLevel方法；
+ C  ?7 L' Y  c) F9 g2 f: {
2.1.5 枚举设备支持的各种显示方式，选择并设置合适的显示分辩率、色彩深度和刷新频率等。

使用DirectDraw的EnumDisplayModes方法可以枚举设备支持的所有图形方式供用户选择，在某些已确定图形显示方式的应用程序中可以通过此枚举功能来检查系统设备是否支持指定的图形显示方式。
0 G- {4 k( y( i$ ^" s, Q% S
使用DirectDraw的SetDisplayMode方法可以设置所需要的图形显示方式。

/ d' W! x& {+ `1 s! W. w- y　

; }$ x8 \6 N5 ?. O1 r2.2 用DirectDraw设置屏幕图形显示方式的实例
* h1 x" M2 r3 Y/ ^* [/ D) e
9 Q1 Z' ?  W1 x现在我们开始编写第一个示例程序“设置全屏幕独占图形显示方式的程序”dx1，首先我们将在这里讨论C++ Builder中进行DirectX编程的有关问题，然后再详细介绍实现程序每一步骤的相关技术。
" `6 A  |8 k4 y6 Q' w: G; B: j
2.2.1 dx1程序运行过程介绍
; p2 H, m' O$ c0 \& \; c3 B
dx1是根据DirectDraw设置屏幕图形方式的过程设计的，运行界面如图2.1所示。在窗口右边有六个功能按钮，它们按照屏幕图形显示方式设置实现的步骤自上而下排列，程序开始运行时，除第一个按钮“显示设备的枚举”是可用的，其它按钮均不可用。由于用户必需按照固定的步骤操作，所以，当一个按钮任务完成后，dx1程序会将下一步任务的

3 V  P  K7 h1 }: Z# A& l
* p5 q. m/ V/ B# o0 u图2.1 dx1 屏幕显示方式设置程序运行界面

8 h. _9 m/ ~7 _$ I" S, Q, @3 _8 i按钮设为可用。
: h* X/ v6 w" q  O7 ?
3 L% P# F4 K' e+ v& Q6 |4 v! h' v按下“显示设备枚举”按钮后，窗口左上方“运行状态”对应的文本框中将显示任务完成情况，若成功则显示“Enumerate devices OK!”,否则显示“Enumerate devices failed!” ，同时在状态组中的设备枚举下拉框中可以看到枚举的设备（一般系统只有一个”主显示设备—Display）；确定设备枚举选择为“主显示设备”后，可以进行“创建DirectDraw对象”、“获得COM的IDIRECT2接口”、“设置协作级别”，每个步骤的运行状态都会显示在“运行状态”右边的文本框中；在执行了“DDraw2显示模式的枚举”后，状态组下方“显示模式DDraw2”下拉框中将列出所有显示设备支持的显示方式，选择需要的图形显示方式，再按“设置DDraw2”的显示方式，屏幕就会立刻切换为指定的显示方式。
; b& }8 W3 F. j: C5 ?+ t5 e$ i! \
7 \- r% w8 p: L2.2.2 dx1编程实现

启动C++ Builder后在窗口Form1中设计如图2.1的操作界面，各对象相关属性设置如表2.1：
" \: x: l- V. x6 U4 |3 W: ^0 V
控件对象类型
1 m+ D  N) ?2 R控件对象名称
) B/ A$ U4 d; i5 t相关属性
9 E( X7 N3 |/ |1 E6 |' N$ e属性值

, O! S1 p$ N! D  VTForm
) `9 [( R: b! c6 k4 VForm1
Caption
DirectX 练习程序1
3 h' ]% I$ k' ]0 A" G
% f8 O$ `! m( h& e# CTLabel
Label1
Caption
/ n$ k2 L$ M8 h( M  {$ y. ~运行状态：
+ b& }1 u; p3 E  F) e" T) s) t
: c1 f% ?, R% _) l) rTLabel
3 m( ]0 J( d/ U5 uLabel2
Caption
设备的枚举
" J3 A2 Y6 t( k. Y
* F& J# S3 z- x/ a0 LTlabel
2 s( D" M+ @' h7 a9 C0 U5 p" S; JLabel3
6 p* H7 E. f: ^% W% x* WCaption
  \7 x. \* [" v# r9 ^; q显示模式DDraw2
8 ?- k. g% q3 x# ?7 G) `- J) b7 b
8 h% p/ Q! J, q  rTEdit
; Z( A, P5 D2 o: vEdit1
( d) J: b' L5 z5 Y$ q9 V" L; A" [& mText
# C; f5 Z7 i; [# D, B! x7 l4 E# ~(空)

ReadOnly
5 T+ ?! c& r8 i: U: M5 N, B+ ftrue
# a; q& Q. r7 Y, R/ b  V% O" t/ P0 b5 a+ a
/ Y/ _$ M6 x7 WTGroupBox
GroupBox1
! [9 q/ |& [) F, f2 \Caption
状态

& \8 ~2 ~5 M- p: W: kTCombBox
ComboBox1
6 @5 [# k9 F3 G1 W- IText
(空)

TCombBox
& H) H8 ^9 ?6 B, A, [7 R( e6 IComboBox2
Text
(空)

& N, J8 `/ u, F+ PTGroupBox
# ?: {! @9 \7 R$ q* |GroupBox2
: q- F5 ]. P" O! [( b' [Caption
2 q- f& M9 y0 P! |) r6 O协作级别
/ A5 z) }# T3 ]9 k
& y5 P. A1 V. l6 o1 K: qTCheckBox
CheckBox1
Caption
DDSCL_ALLOWMODEX

TCheckBox
) S( n# G& h8 G/ Q6 U. SCheckBox2
Caption
' q- w" ]: w) l7 }DDSCL_ALLOWREBOOT

4 T  F3 ~# R6 i+ v  Q0 nTCheckBox
CheckBox3
Caption
& s/ l: \2 y6 J$ DDDSCL_EXCLUSIVE
+ E$ P% E1 W; ?6 Y  j% r; X
Checked
true

) y2 C& y- @; ~& D2 KTCheckBox
CheckBox4
Caption
1 ^$ p4 `  t$ i8 @DDSCL_FULLSCREEN

Checked
+ x; D9 F  J( B) Qtrue
8 Y2 f/ v( s9 W
TCheckBox
CheckBox5
Caption
DDSCL_NORMAL

. V" O) `0 D5 [+ E+ [TCheckBox
CheckBox6
Caption
9 U/ l7 K" x0 q# z$ mDDSCL_NOWINDOWCHANGES
! Z& E  E/ l7 n0 K* h  t/ i4 e
9 x3 }5 _' ~  u9 p6 b3 [Checked
true
3 i5 z# ~1 E4 C& I
TButton
Button1
9 {2 U7 b9 n& }6 n6 WCaption
设备的枚举
% ~$ E. G0 f5 }/ P* W% G
TButton
* X9 U) b9 k4 U, ^# z& LButton2
Caption
创建DirectDraw对象
4 n! ]9 \* C" a; q* A. G* ~/ l8 f
, |$ j5 D" ~5 N, {  `Enabled
false

TButton
Button3
2 \% \9 n3 |' Z* {Caption
2 L. V. }9 ~$ |# r5 F  O1 _: X获得COM的IDIRECT2接口
0 ^: Y4 T' ]8 P3 h
: a; [5 D; E. }9 h; x; d- \! T9 xEnabled
# L; \; _, e* U; \/ m* u7 [" r" zfalse
3 v0 Z" C0 R# J  z5 A# T- @
( e$ M& j8 b0 ]* U" wTButton
$ I9 L; a5 D$ R2 aButton4
Caption
5 a: D2 r' S/ j设置协作级别
, F1 h! ~$ l! R9 T, z6 x% L/ {
Enabled
false

1 f% X& b! [& E0 }: E/ NTButton
Button5
7 P! g- ]  [; y% z" d5 U$ iCaption
DDraw2显示模式的枚举

Enabled
false
2 [7 s9 t# E1 L5 Q# D! ^. s' h
TButton
Button6
( x$ {0 _& m6 GCaption
3 u5 |, h/ c& ]& _9 x; Z$ b6 F设置DDraw2的显示方式
" m. m3 }1 t" O  u2 k. c5 A
Enabled
! S6 M5 P+ v- P% ?6 j  b1 zfalse
& @0 T3 @! |3 z: U$ e- ]

　
  c: s( B& }$ a" d( p  D
. e% t& |$ y, u表2.1 dx1控件对象属性设置一览表
! k- `3 o- }0 o5 W
确定已安装了DirectX5以上的SDK，且在C++Builder中已经将Project/Options/中标签页“Directories/Conditionals”上的“Include Path”和“Library Path”添加了DirectX5或以上SDK的路径。

在窗口模块中包含 #include "ddraw.h" 头文件。
# b  z& [$ i4 Q) {6 I- W/ }9 q/ u
9 F- q! X) h$ g5 S3 c/ h0 g现在可以开始编写代码了，我们按照按钮的顺序逐个实现每个步骤的任务。

, N! f# x/ T# l, t* ~3 ^2.2.2.1 设备的枚举

DirectDraw提供了一个函数DirectDrawEnumerate 来实现设备枚举功能，此函数的调用格式为：

* t  U$ m8 Y# c  U" q$ o) [! o" p' pHRESULT DirectDrawEnumerate (LPDDENUMCALLBACK lpcallback LPVOID lpContext)
9 j$ s* G7 b0 \# |: n) U
/ L! r% ~$ J" z# M: z5 X0 o9 J(1)参数lpcallback是一个回调函数的地址指针。所谓回调函数是程序员自己编写的函数，当枚举函数每枚举一个设备时就调用这个回调函数一次，并把当前枚举的设备有关信息通过参数传递给回调函数处理。
) h4 I, c" @7 R! N+ ~6 O3 J1 R- Y: t
在dx1程序中，回调函数命名为EnumDeviceCallBack，负责将每次枚举出的设备的描述和名称加入到ComboBox1的列表中去，并把设备标识地址指针保存到一个lpDevices数组中以便创建DirectDraw对象时使用。

0 D* J$ {1 r. S4 X" j& `(2)参数lpContext是一用户定义的上下文变量，我们仅取值NULL就可以了。
: z9 a3 `: C! }
(3)DirectDrawEnumerate为回调函数指针，该函数的格式为：
3 x8 k0 v' H0 G6 }  @
* K- I* [1 L$ h/ X6 L! U  nBOOL WINAPI EnumDeviceCallBack (GUID FAR *lpGUID,

$ H" i8 t& Q  D9 ]5 u+ TLPSTR lpDevice,
' `$ p6 W  s9 V7 K: ], A
LPSTR lpDeviceName,
; o( P2 M8 t( o4 U, M: b. Q
LPVOID lpContex)
7 e: Y8 \% b" F2 h4 c, u7 }: z% v
* }% ?+ V9 i. n% ~1 q3 k6 C  r& w0 l其中：参数lpGUID 为当前枚举设备标识地址指针；参数lpDevice 为设备描述的地址指针；参数lpDeviceName 为设备名称的地址指针；参数 lpContext 为上下文变量地址指针，这里我们不使用它。在dx1程序中，此回调函数负责将所枚举设备的名称和描述显示在ComboBox1中，并将设备标识地址保存到lpDevices数组中。为了简化程序，这里的lpDevices数组只采用了静态数组，最多允许保存10个元素。后面在保存显示模式枚举信息时使用的DisplayModes数组也是为了简化程序，在实际编程时可以考虑动态分配。 需要说明的是，回调函数应该是一个独立的函数，不要把它们声明为窗口类的成员函数（否则回调不能进行），而只要声明为普通函数就可以了。

2.2.2.2 创建DirectDraw对象
" w5 P( {- j" i" S: S
: R# D5 i, v# Z, v) ?' F在进行DirectDraw编程之前，必需首先用DirectDrawCreate函数创建DirectDraw对象，并获得该对象的入口指针。该函数格式如下：

HRESULT DirectDrawCreate(GUID FAR *lpDD,

LPDIRECTDRAW FAR &lplpDD,

Iunknown FAR *p)
* n3 H$ F- B! r6 D
(1)参数lpDD为指定的设备标识指针(为NULL时是主设备)，在dx示例程序中的第一个按钮“设备的枚举”采用静态数组保存枚举设备的标识指针，在第二个按钮创建DirectDraw对象时，可根据用户在ComboBox1中的选择，提供一个设备标识指针，以便对该设备创建DirectDraw对象。
( I8 n8 Z( Z6 ~3 O8 F
(2)参数 lplpDD 为对象创建成功后的获得IditrctDraw接口指针。

* {/ ?% X+ b7 z' B(3)参数p未使用，直接为NULL。

" i2 b2 [; i$ o% o# ~' t  t) `2.2.2.3 获得COM的IDIRECT2接口

由于DirectX采用了对象组件模型COM技术（这里不再介绍），因此如果我们需要使用DirectX5或以上版本提供的功能，就需要获得更高的IDirectDraw接口，例如：如果我们使用DirectX5开发包，就需要获得IDirectDraw2接口。
2 Z# Y: \' v& C7 s- P
可以利用HRESULT IdirectDraw:ueryInterface方法获得高版本接口：
4 O, P1 l$ z, s( X1 Q5 P( ?
lpDD->QueryInterface(IID_IDirectDraw2,

(LPVOID *)LPDIRECTDRAW2 &lpDD2)

" Y' \8 l9 F/ C4 W参数IID_IDirectDraw2是一个常量。
' l2 {1 N# x) o& D- OlpDD2是为获得的IdDrectDraw2接口指针。
- L- S9 Y. U0 }　
% ~$ i+ @5 R8 P6 Q# n0 l* [! D! p! [
% c: q  Z, S1 `  U如果您需要使用更高版本的开发包，也可以用此方法获得IDirectDraw3或更高的接口。高版本接口获得后，就可以释放低版本的接口了，方法是：lpDD->Release();
8 k2 Y6 U+ Q! ^
- e% S; @* o5 L* l6 @1 C2 @0 }2.2.2.4 设置协作级别
% ^. ]) n. y3 v& m) U
& L! S& L6 B# ~% a玩过DirectX游戏的朋友可能都领略过“全屏独占”和“窗口”两种图形模式，这就可以称为不同的协作级别，它控制应用程序与系统及其它应用程序的交互程度，因此我们必需用HRESULT IDIRECTDRAW2::SetCooperateLevel方法设置应用程序的协作级别。

8 _" |1 x% ~+ L- t* x- x3 j. D. mLpDD2->SetCooperateLevel(HWND handle,DWORD dwFlag)
! r7 X7 i, m, Y( u2 |- R! s7 Y+ {) o
(1)参数handle是当前应用程序窗口的句柄，在C++Builder中，TForm类的Handle属性就是当前应用程序窗口的句柄。
$ O9 C. c" V0 y. l% H
(2)参数dwFlag是协作标志，可以为表2.2中定义之一或多个之和。

序号
标志
) q" d7 K2 o; \# M% L4 |+ k说明

1 B% `: `4 m9 A3 T（1）
DDSCL_ALLOWMODEX
8 K0 s4 }) b2 Q4 g0 P& z允许使用Mode X模式。必须与（3）、（4）组合使用
! E  j0 u- w7 p5 M8 j2 X2 q5 |
% \/ c/ k% r" `' ]（2）
DDSCL_ALLOWREBOOT
当使用(3)、(4)时允许用户进行热启动
. ?. g8 j) k# `" |& u* |! p/ K
（3）
. J- I0 {7 x7 r5 C  G4 ^! N1 Z0 `( U: dDDSCL_EXCLUSIVE
/ a4 @- E- g# e; H* @使用独占方式，与(4)一起使用
3 `" v7 H0 W$ n% q# W4 P
8 @% r2 M0 s* L& n# P' ~" @（4）
DDSCL_FULLSCREEN
4 _& u* [* x- `& M0 V全屏方式，与(3)一起使用

（5）
DDSCL_NORMAL
以普通应用程序窗口方式运行

（6）
) {1 Y+ X  ]3 D$ J7 `8 WDDSCL_NOWINDOWCHANGES
DirectDraw不能自动最小化或恢复窗口
5 W! [/ b4 k# `' l2 |! |$ Q3 Q

6 X6 D# p/ X1 R& L4 n6 u) M8 h　
; h  {1 {& L  m) t& B2 |) x
表2.2 dwFlag标志定义

在我们的dx1示例程序中，默认设置为：

9 B. B5 S- `7 `( K9 S% B0 G7 ]9 QDDSCL_EXCLUSIVE|DDSCL_FULLSCREEN|DDSCL_NOWINDOWCHANGES
8 F% ~2 ?9 b1 D* [9 l7 j# G0 C
9 @  D4 Y# `+ _; o% p# q2.2.2.5 DDraw2显示模式的枚举
/ r4 F& @) W$ M
4 n1 W% L' l- S. D% G$ x利用HRESULT IDIRECTDRAW2::EnumDisplayModes方法及其相应的回调函数可以列出系统显示设备所支持的显示方式。您开发的应用程序可以判定当前运行的计算机是否支持所需的显示方式，也可以提供用户选择显示方式的功能。

1 M' k6 L% N+ g/ y. B2 }" [. clpDD2->EnumDisplayModes(DWORD dwFlag,
. j8 F  L7 n+ b" {4 G3 g/ p
5 N) ?# K: m- Q$ [* s3 iLPDDSURFACEDESC lpDDSurfaceDesc,
/ R. y5 C, H% ]3 `: z1 N  w) L6 F, V, T
LPVOID lpContext,

LPDDENUMMODESCALLBACK EnumDisplayModesCallBack

8 ~! m/ {7 ^& ?, ]" |( G5 `4 i(1)参数dwFlag是标志参数，可以为DDEDM_REFRESHRATES（枚举不同刷新频率的刷新模式）和DDEDM_STANDARDVGAMODES（枚举模式中包含Mode13）两者之一或之和，在dx1程序中采用了后者。

0 X& ^+ z8 [) F( g2 s2 F: Y+ ?(2)参数lpDDSurfaceDesc是一个过滤显示模式的结构，只要设置为NULL就可以获得全部显示模式的枚举，否则只获得满足指定模式的枚举。
! c0 }0 w4 z; X+ ^. R0 x
8 O" I3 \9 u* e% U4 w1 ILPDDSURFACEDESC是一个结构，其中包含了显示模式有关信息，主要有:

. p# m9 x9 i  v) P- k屏幕点阵 DWORD dwWidth、DWORD dwHeight;
5 W( x+ B5 R6 V, Z0 z$ F
色彩深度 DWORD ddpfPixelFormat.dwRGBBitCount

屏幕刷新频率 DWORD dwRefreshRate

(3)参数lpContex为用户上下文变量，设为NULL就可以了。

(4)参数EnumDisplayModesCallBack为回调函数指针，该回调函数规定有如下参数格式：
. B9 M! V- {1 _0 \
BOOL WINAPI EnumDisplayModesCallBack(LPDDSURFACEDESC lpDDSurfaceDesc

; u  n0 u8 f. K, `, }3 S) n* uLPVOID lpContext)
4 @5 u* M; l$ d, J
其中：lpDDSurfaceDesc为当前所枚举显示模式的信息，lpContext为用户上下文变量。

% r1 f  B, ?% N& G在dx1程序中，此回调函数负责将每次回调的显示模式信息显示到ComboBox2中，并记录到一个结构数组DisplayModes中。
# K7 m/ t1 F/ [+ H# P
2.2.2.6 设置DDraw2的显示方式
6 C+ f. w1 ~* Q  F! Z% I
每当用户选择了一个显示模式并点击“设置DDraw2的显示方式”按钮后，dx1将使用RESULT IdirectDraw2::SetDisplayMode方法改变显示方式。
$ l" @* h) o" r* B
2 e3 A: N6 G. d1 M+ alpDD2->SetDisplayModes(DWORD dwWidth,
2 f: p5 |6 T0 E& Y6 ^# r
DWORD dwHeight,
% }$ b3 }5 ]; e! G- |' T, R
/ d  ]; P' u( ^! ?1 NDWORD dwRGBCount,

1 H2 `. m( o3 N, o% h7 `% F) [' TDWORD dwRefreshRate,
+ G4 c: L" t9 t6 Z" i  K* M4 a
DWORD dwFlags)

(1)参数dwWidth和dwHeght为显示指定方式的点阵。
# O1 o' z: I1 x9 Y: M! I( Z: V/ R
(2)参数dwRGBCount为颜色深度，如：8（256色）、16（16位色）、24（真彩色）。
, n4 C  W: K+ ~% \" h7 W0 K% f; j
  w* c; z; P' {  @; W  ]. @(3)参数dwRefreshRate为刷新频率，不关心时可以设置为0。

(4)参数dwFlags为使用DDSDM_STANDARDVGAMODE来设置Mode13。在dx1程序中始终设为0。
) s. C0 G* y( d6 N
需要注意的是在IdirectDraw接口中，设置显示模式方法不支持dwRefreshRate和dwFlags这两个参数，所以，在有些资料中（包括C++Builder4的示例）均只介绍了DirectX3支持的IDirectDraw::SetDisplayMode(dwWidth,dwHeight,dwRGBCount)方法，请读者注意它们的区别。
5 b7 s$ I  I% J
2.2.2.7 退出dx1程序需要做的事

不要忘记释放lpDD2接口。LpDD2->Release();
5 Z* H2 M# `$ X0 ^+ @; y1 T  ?2 U
2.2.3 dx1源程序

2.2.3.1 dx1主要文件的组成为：工程文件(dx1.bpr)、窗口文件(main.cpp)、头文件(main.h)。
. u6 B" c1 m5 ?
6 W3 l+ K7 E5 j! t2.2.3.2 头文件main.h
! a) p1 Q2 \' _# _, U' [
#ifndef mainH
$ F* P9 a' O0 A' @$ N) f, q" @/ _: _
* O# `) u$ _( n3 g, t+ S#define mainH
: L9 j7 f+ S8 A5 R7 l, {& w
//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

: y; Q1 |) x! R" W#include <StdCtrls.hpp>

2 |2 E. `% R2 I- l9 e#include <Forms.hpp>

//---------------------------------------------------------------------------

: ?; H$ L& r9 I2 |& R0 Rclass TForm1 : public TForm

{
, C( U) p8 l  U" U
__published: // IDE-managed Components
, @" j+ z( v' T7 x5 V" I
（略）
1 o4 {6 M( S9 l( a( x
6 s7 G7 a0 Y& Wprivate: // User declarations
7 p& q+ O2 A3 }  _, U
. J" o# A* l$ v; N" CLPDIRECTDRAW FAR lplpDD; /* 获得的 DirectDraw 接口指针 */

" S5 {# t. _/ t; d- B0 x) z- }3 v6 dLPDIRECTDRAW2 FAR lplpDD2; /* 获得的 DirectDraw2 接口指针 */

& ~: k- T& G3 N& N' l" fpublic: // User declarations
) M; p! D7 @+ O0 g9 P, X
__fastcall TForm1(TComponent* Owner);

( x  W4 h  z3 S};

//---------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

#endif
4 o! Q6 Q3 a8 G$ L. X
. ?4 L) U7 F) f) O2 S2.2.3.3 程序文件main.cpp

#include <vcl.h>
$ p, }$ g6 |, g* U
5 }- U# f- F& o2 }  S1 q#include "d:\tools\dx5sdk\sdk\inc\ddraw.h"

! M, H( ~/ B' @4 z+ M#pragma hdrstop

) Y. @. u! H0 @. o! _' p# A" J#include "main.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

; j4 t0 R, a- K. x+ b+ `( @#pragma resource "*.dfm"
- s& e) ~+ I0 U& y1 Z
TForm1 *Form1;
( v' q0 u4 D& {9 d) w
0 U- c7 ]5 L1 OLPGUID FAR lpDevices[10]; /* 保存枚举设备的标识指针 */

, ^' F5 s' q# a* G; i! Q' lstruct DisplayModes { DWORD Width,Height,Depth,Rate; } DisplayMode[100];

4 ?4 H8 Q: F* D" q9 J/* 保存显示设备支持的显示方式 */

9 n2 |7 y* L, u//---------------------------------------------------------------------------
1 q; i5 Y3 ~- Y' S7 ^! E& g
__fastcall TForm1::TForm1(TComponent* Owner)
' w; F9 i, p6 o2 P5 P
: TForm(Owner)

{
1 U. e# h0 G3 X9 @; q6 S6 z; O' R0 K
$ }- u5 }) x( g/ @8 m}

//设备枚举回调函数---------------------------------------------------------------------------

BOOL WINAPI EnumDeviceCallBack(GUID FAR *lpGUID,LPSTR lpDevice,

4 s+ @  Y: t# ^! R) wLPSTR lpDeviceName,

* X! x& X" G: u$ t7 x* ]3 ?$ mLPVOID lpContext)

{ static char i=0;

lpDevices=lpGUID;
; Y# ]" i4 Q; G9 R4 [
i++;

Form1->ComboBox1->Items->Add((AnsiString)lpDevice+"--"+(AnsiString)lpDeviceName);

if(i<10)

0 m3 Z$ ?4 s) Sreturn(DDENUMRET_OK);

else
0 @4 d7 T5 s3 t/ q
, L" U5 {" c: e# X# `4 U6 [2 x. |return(DDENUMRET_CANCEL);
& w, d/ b& R  i- D6 @  [/ n0 j- t
* d9 E! k7 c+ z, y6 x}

0 b9 f9 x, `  G8 i7 t//枚举设备---------------------------------------------------------------------------
# k* j6 M$ g' @2 U
# r1 q( Z+ f8 K, vvoid __fastcall TForm1::Button1Click(TObject *Sender)

% p. @/ ?6 c+ Y- N" y' t{
/ {1 o' h$ b# S- V
- {1 Z! k# x* x/ t# ^; AComboBox1->Clear();

5 A* ~/ ~0 G# p1 A5 B) Tif(FAILED(DirectDrawEnumerate(EnumDeviceCallBack,NULL)))
: Z: ?! w5 O7 y
5 F* N2 G/ ]4 _2 h1 B* cEdit1->Text="Enumerate Devices failed!";
) C8 E0 i+ R1 W
$ u6 o/ d5 f, J+ r7 Selse
& R* Y7 ?; X7 C" c/ H& ?" n
Edit1->Text="Enumerate Devices OK!";
& I0 G. E( j% }# l8 k# z
ComboBox1->ItemIndex=0;

Button1->Enabled=false;

Button2->Enabled=true;

}

//创建DirectDraw对象---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

- B0 L5 P3 x  W" X{
( n5 |( ^6 [! G( ^) t
LPGUID FAR lpD=lpDevices[ComboBox1->ItemIndex];
. m$ f9 W3 v% g: a7 p
% i, A5 {; N+ jif(FAILED(DirectDrawCreate(lpD,&lplpDD,NULL)))
/ H: {$ p5 Z/ O3 e/ n
Edit1->Text="DirectDraw Create failed!";
) f5 q/ r  X5 [4 H
, O  ^5 _" z+ ^& t: V- y0 h5 ^else
: T! l9 z) o5 E& [$ V
{
- L) e$ x) i% c
Edit1->Text="DirectDraw Create OK!";

ComboBox1->Enabled=false;

" d, m' r' S0 h8 J5 gButton2->Enabled=false;

Button3->Enabled=true;
$ e: I0 e$ O: Q$ ?4 x. C
" `" h3 x, [( X}
; Y# Z. ~) X% L; _2 `/ D  |5 X- g
. R# v0 O& z% y) s" Q}
. L) f( C" Y4 _0 w. }: L8 `& y
//获得IDirectDraw2接口---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

. u; D# C  I7 ~5 S/ v* P4 s{

if(FAILED(lplpDD->QueryInterface(IID_IDirectDraw2,(LPVOID *)&lplpDD2)))
7 |! J+ ]* v2 |1 s) A
1 Q/ L& Y( v" v1 X7 r+ W2 s6 Q! W/ ~Edit1->Text="Get IDriectDraw2 Interface Failed!";

; s2 h* _# E( Q0 N% Zelse

- w9 {6 Z9 r/ o# @2 }! V% X2 J3 x{

Edit1->Text="Get IDriectDraw2 Interface OK!";

lplpDD->Release(); /* 释放IdirectDraw接口 */
* o7 L/ @. b' R0 Z2 v7 e$ k
2 C/ x( j5 d' x4 ?. kButton3->Enabled=false;
+ \5 c+ T1 @, E5 }
Button4->Enabled=true;

}

; _1 j/ W9 h$ S9 ^}

# }+ X' m- T) _# W+ E1 J//设置协作级别---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)

; ^8 @# |$ ^" H6 Y4 D* M{
" d) O/ s$ A0 O; S% S, e
/ a4 e/ z" A( M8 E( ^DWORD dwFlags=0;

) f* [. f  q6 oif(CheckBox1->Checked) dwFlags=dwFlags|DDSCL_ALLOWMODEX;
. v' C5 |4 f" q
if(CheckBox2->Checked) dwFlags=dwFlags|DDSCL_ALLOWREBOOT;

if(CheckBox3->Checked) dwFlags=dwFlags|DDSCL_EXCLUSIVE;
2 ]2 _; q) M% [, `
if(CheckBox4->Checked) dwFlags=dwFlags|DDSCL_FULLSCREEN;

' j) F) I& O: H* W1 U. p1 `if(CheckBox5->Checked) dwFlags=dwFlags|DDSCL_NORMAL;
3 ^: R/ i2 z" R
if(CheckBox6->Checked) dwFlags=dwFlags|DDSCL_NOWINDOWCHANGES;
4 ^" j9 z9 ]& v5 y/ L
if(FAILED(lplpDD2->SetCooperativeLevel(Handle,dwFlags)))

Edit1->Text="Set set cooperative level Failed!";
& J7 ]. o; t5 H3 V; L& ?" e
6 R/ g5 x0 I2 {else

{

Edit1->Text="Set cooperative level OK!";
# Y4 ]7 {& T1 ]  ]: k( _
GroupBox2->Enabled=false;

2 o) p) `  G0 r  {Button4->Enabled=false;
& _3 j- b8 f% H4 n: }* Y; P
; e" a& j2 b  R' y3 [5 gButton5->Enabled=true;
: \# N+ g" ^  p' s! k" B
}

8 N  s9 H$ ^# I. f}
) j: ~7 l2 S9 U& q% {' h
//枚举显示模式的回调函数---------------------------------------------------------------------------
: {1 l$ O( ]( ^. n; f9 I
BOOL WINAPI EnumDisplayModesCallBack(LPDDSURFACEDESC lpDesc,
7 w6 b: F; p: n8 O2 n" q8 T
LPVOID lpContext)
+ l. |/ @6 D- S# {! E% a" ?. ?
{
. h1 O0 z9 }. z0 v
static int i=0;

char buff[256];
0 _) W0 W2 ^7 u* S
# Y+ o7 {% [  D9 y+ Z5 G4 o8 o  c6 Ewsprintf(buff,"%dx%dx%dx%d",

lpDesc->dwWidth,

lpDesc->dwHeight,
7 {2 M- l& ?2 `1 Q! q. e
lpDesc->ddpfPixelFormat.dwRGBBitCount,
% A8 G9 ~# D! p7 Z/ Q: l" }
lpDesc->dwRefreshRate);

Form1->ComboBox2->Items->Add(buff);
4 ]8 o9 l7 z% H- U# c
7 L: H/ s$ O7 n6 b& b* a" y0 G. GDisplayMode.Width=lpDesc->dwWidth;
7 v% {, H6 V+ Y; ]
DisplayMode.Height=lpDesc->dwHeight;
) s+ v. p; D  ^, n7 @0 J2 h
DisplayMode.Depth=lpDesc->ddpfPixelFormat.dwRGBBitCount;

% K  s* @$ I, B" S" k/ NDisplayMode.Rate=lpDesc->dwRefreshRate;

i++;

if(i<100)
0 G4 Q) ^; y! {1 B2 e- W- X' {
( A! @: S- |2 h+ h- C! k- Zreturn(DDENUMRET_OK);
, l2 @0 _$ D( s$ e+ T# V* e+ X
else
" I1 F# |# K) k' h% y) n! |+ q' M
return(DDENUMRET_CANCEL);
2 ?4 X1 b- l5 T( n
! u  o4 J& }' z' E' {}

" _* l' i# _8 v4 [//枚举显示模式---------------------------------------------------------------------------
3 Y- p1 k1 t4 y* Y
, M0 r7 Z* @0 L$ a* S4 fvoid __fastcall TForm1::Button5Click(TObject *Sender)

{
' S9 R9 l' ?, x1 J+ _& I4 o
ComboBox2->Clear();
4 ?( D2 n+ `) Z8 U
8 @' T& }5 D/ V- Zif(FAILED(lplpDD2->EnumDisplayModes(DDEDM_STANDARDVGAMODES,
- _* B7 F5 i' {1 [1 M+ O& T+ Q4 F/ n, k
NULL,

NULL,

9 r5 Y& D  l1 l/ N5 o8 P(LPDDENUMMODESCALLBACK)EnumDisplayModesCallBack)))

7 |, L( N8 ]# N, TEdit1->Text="Enumerate Display Modes failed!";

! q6 z7 l5 t  o$ Belse
: O' k! C" F) @7 V$ q6 |7 }
{
; b2 p. k' a1 l' c! S4 D$ \
% ^: _5 l) y# O# r* f; C8 ^Edit1->Text="Enumerate Display Modes OK!";
" H9 Z! A: W, Q% o! Z6 ?  a4 c5 ]
; k2 X2 y& ?$ C; C* @! Q, oComboBox2->ItemIndex=0;
& A  x- l( e, m4 K6 m7 t: g0 x, n
Button5->Enabled=false;

Button6->Enabled=true;
5 G: B8 `. D2 C
1 d, M2 T3 Q3 w8 @; j}
& j) p6 S8 k4 R6 q7 k5 s1 h- r
}
; {2 K7 p4 G& w! _. @3 x
//设置显示模式---------------------------------------------------------------------------

( y: X; {4 i  u7 ?8 _' Pvoid __fastcall TForm1::Button6Click(TObject *Sender)

{
9 B- L$ @; a' {6 n; ]
2 ]) o; b$ e9 `% ~$ p5 Rif(ComboBox2->ItemIndex<0)
9 t' ^- f2 ]% M( D# \
{

  Y9 v8 p- w$ U/ `: i. j+ q; p% NShowMessage("请先在DDraw2下拉框中选择一种显示方式");

return;

}

if(FAILED(lplpDD2->SetDisplayMode(
% r1 @' l% v$ @* g; S
/ t2 v. |1 l, R5 SDisplayMode[ComboBox2->ItemIndex].Width,

& E" [+ j! E% Q0 h4 n+ l( |! A  sDisplayMode[ComboBox2->ItemIndex].Height,

/ e% P; {2 d( h# Y( A+ cDisplayMode[ComboBox2->ItemIndex].Depth,

DisplayMode[ComboBox2->ItemIndex].Rate,

% t! p' v0 o2 Q" ^1 n. S0)))
, K, Q9 L7 o. ?7 c5 i
Edit1->Text="Set DisplayMode failed!";

5 @1 z* V2 G9 h0 v}

//退出dx1---------------------------------------------------------------------------
9 z5 ]4 T# _: Y3 S) ^) n6 Q
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
0 Q  n" T4 v3 |  C! r
, a. F: ^0 w7 f, F- c% c: B' q{

if(lplpDD2) lplpDD2->Release();

}

4 X: G( z( Y( N2 M. ~; L2 s2.3 装入并显示图形文件
$ q0 J( {% q: F7 |6 I% T
+ H4 n! T3 [3 T  f为了简明地说明采用DirectDraw图形文件的显示技术，我们以示例程序dx2介绍图面、图形文件装入、图形缩放、图形在图面上显示等的初步概念和实现技术。

+ v2 b6 \% o' i" N2.3.1 DirectDraw显示图形的技术
2 p" u1 L6 x, n& y4 ^  a* e: {
为了显示图象，DirectDraw必需首先拥有类似画布(canvas)的绘图空间，DirectDraw并不向在DOS下那样简单地将显示缓存作为绘画的对象，而是通过DirectDraw对象创建各种不同种类的“图面”(Suerface)，图面上的内容可以被应用程序自由地拷贝、组合，生成千变万化的图形。

2.3.1.1图面分以下几种类型：

(1)主图面(Primary图面)：即在屏幕上显示出来的图面，就是GDI用于绘制Windows用户界面的图面。每个DirectDraw对象只能有一个主图面，主图面的尺寸、位置和格式由系统当前的显示模式决定，不能改动。

(2)后台图面(Off-screen图面)：此类图面不能被直接看到。一般来说，后台图面往往用于作为游戏精灵动画、背景图形等部件的存储缓冲区。后台图面的尺寸是可以调整的，且可以有多个后台图面，其大小根据实际情况调整，不要太大或太小。一种典型的例子是：有一个精灵的动画由4张128点阵图形组成，那么可以将后台图面定义为256点的方阵，将这个动画序列存储下来读者可能认为可以创建一个比主图面大的后台图面以便保存游戏背景，这样可以方便地实现滚屏，但是，DirectDraw限制后台图面的尺寸不能比主图面大，除非系统的显示卡支持。能否实现大的后台图面我们将在以后叙述。

(3)复合图面(Complex图面)和翻转链(Flipping Chain)：这种图面主要用于生成平滑动画。有关技术待制作动画时介绍。

(4)覆盖图面(Overlay图面)：这是一种由硬件支持的图面，DirectDraw不能仿真。有关技术在后面介绍。

DirectDraw可以把图面创建在显示内存或系统内存中，而显示内存又分为常规显示内存和AGP加速图形接口内存。由于显示内存容量是有限的，所以每个图面具体应该创建在哪部分存储区域中应该统筹规划，一般将使用频繁，需要硬件加速或实现功能的图面安排在显示内存。如果您不指定图面创建的位置，DirectDraw将首先在常规显示内存创建图面，当常规显示内存不够时，若系统支持AGP内存，则先使用AGP内存，最终使用系统内存。

+ J: j- m. j0 \5 n2.3.1.2 图形文件的装入

图形文件装入到图面并不象想象的那么简单，因为装入的图形的点阵可能与、图面的点阵不同，这就存在图形的缩放。另外，图形数据在内存中的移动、复制，也是需要处理的内容。对于Windows的设备无关位图，我们可以考虑使用Windows的功能实现：

4 P" ^! J7 E  o* J5 v  b2 t; ^(1)采用LoadImage函数装入图形文件
4 ^  n$ z6 V: n" \  d. o% }; ~
# l1 x+ {2 f! N0 Q(2)采用图面的GetDC方法获得图面与GDI兼容的设备上下文
0 ?  w/ z$ Y: z) [" I# d. b
(3)采用BitBlt函数将图形数据拷贝到图面中

有关GDI编程请参看有关Windows编程资料，这里读者只需要知道固定的用法就可以了。
8 g8 D" o1 ^! u4 }2 u
; U  l% x& H; A7 e) f- D' A' r2.3.1.3 图面的丢失

在DirectDraw应用程序被最小化、屏幕显示方式改变或用户按Alt+Tab键切换当前应用程序时，图面将会丢失，因此在重新回到DirectDraw应用程序中时，必需用Restore方法恢复图面。遗憾的是，虽然图面被恢复了，但其中图形数据却丢失了，需要重新绘制。
0 i/ M! m) f. W8 u/ K' N
2.3.2 dx2运行过程

启动dx2程序后，只有第一个“执行”按钮可以使用，按下该按钮后，系统将创建DirectDraw对象，并设置为800*600全屏幕显示方式；按顺序按下“创建主图面”、“创建

图2.2 dx2 装入并显示图形文件程序运行界面

后台图面”按钮，分别创建对应屏幕显示的主图面和100*100点阵的后台图面；按下“后台图面装入图形”按钮，则图形文件view.bmp被一100*100点阵装入到后台图面，屏幕上看不见图形；再按下“主图面装入图形”按钮，view.bmp以200*100点阵缩放后装入到主图面（屏幕）的(0,0)位置，此时图形显示在屏幕左上角；继续按“拷贝后台图面到主图面”，将把后台图面的100*100图形显示在屏幕的(200,0)位置，我们可以看到两副同样的图形以不同的缩放比例并排显示在屏幕左上方；按下“图面丢失”后，屏幕被设置成640*480的显示方式，屏幕上显示出的图形消失了；用“恢复丢失的图面”按钮重新设置显示方式为800*600（必需恢复显示方式，否则图面恢复将会失败）并恢复图面，此时，失去的图形在屏幕上仍然看不见；最后，按“重新显示图形”来重新绘制view.bmp，屏幕重新展现原有的图形。
2 _) d- v1 K1 R$ |* F2 c2 |0 `
% g# ?4 L/ O: @/ ?  l9 ~' `　

2.3.3 dx2程序的编程实现
8 C- C4 D# S% G8 G$ A9 C* h0 B
+ u( d- f6 I. f( V, _. v: m2.2.2 dx1编程实现

4 H) e9 F9 }' x9 W  ~7 A# r: F启动C++ Builder后在窗口Form1中设计如图2.2的操作界面，各对象相关属性设置如表2.3：

9 h7 I7 }/ i1 ^/ O5 }: }/ ]4 l* T控件对象类型
控件对象名称
5 f5 a" C( Z1 P- x2 g5 i; J相关属性
& Q7 |6 y! C# L7 |1 y& V属性值
( h0 F) F+ ]* h
$ ?3 p" m1 E3 HTForm
# v: R: }/ r5 B# GForm1
Caption
+ o0 |3 ?% N8 S( mDirectX 练习程序1
  a/ X+ V( S+ y, r) V+ P% |8 ~
TLabel
Label1
Caption
- _' `, x6 i8 J5 ~, L运行状态：

1 `$ L! T5 j  @TLabel
Label2
Caption
设备的枚举

Tlabel
* e* a, `5 E! q5 n# T, OLabel3
Caption
显示模式DDraw2

/ V" I5 U% N) @. T" j7 ATEdit
9 I9 Q! k* W3 L/ YEdit1
1 s; P* i% W, F( h' A9 N% MText
(空)
2 \* o& w" a4 _, J" ?
0 i' f4 G" i3 V- L! ~ReadOnly
True
; u/ p3 g+ q' k/ D( x& h. S
# S$ n% X, x. f. [/ }7 N- h- hTGroupBox
, w& T* ]* p# V/ ]; Y' \7 }! D6 o7 AGroupBox1
- }$ T0 N% x) ]+ Y4 f" Y3 G5 rCaption
状态

  x: J7 p& u& w# i' P& ]+ eTCheckBox
CheckBox6
" d* Z; g+ z4 \3 A/ E: BCaption
6 N4 X  S1 O, `4 C6 [% `4 n' d& jDDSCL_NOWINDOWCHANGES
1 c, s# W$ [% Z( t; W
8 A$ ?$ n. h/ b/ R6 f. tChecked
' Z; X4 U3 X7 C# Y- u% [true
& J8 v1 E# y, }1 j" W* t
TButton
% f* Z( h0 Z$ K% M: cButton1
Caption
执行

TButton
Button2
, [- l7 K0 R9 b  v1 N% XCaption
5 V! k( O  e% d; u! h3 j创建主图面

Enabled
False
" z: X) r! g9 [$ a, {! N; A+ n
TButton
Button3
! {2 h9 b! E$ u8 K/ c% x4 F$ jCaption
# E. O$ t- b0 {6 ^5 w2 q; b$ Y7 H; Y创建后台图面
- P5 z0 d5 a, C9 q7 t0 f6 {+ v
Enabled
+ K" c( j4 S6 _! vFalse
6 \" G- t5 N, w9 O% K+ d" t3 x' O
TButton
' @3 o3 }! {, ~8 F: Q4 EButton4
: T% v4 }( m7 R4 I! E" F5 BCaption
后台图面装入图形

Enabled
" g1 I( p) x. V3 n8 @9 }: _False
  c% r9 @. v; V. L
TButton
3 a5 }3 z* z$ \3 b- M; c9 w  XButton5
Caption
主图面装入图形
% M$ W8 s% d9 U9 x  b
Enabled
False

$ m6 X# l% W& {TButton
Button6
Caption
$ p5 @; R# v# h- Z拷贝后台图面到主图面

  Y, e1 U, a5 F, _& jEnabled
! ~1 y! W; d1 h! ]# q+ |False
6 v( X& p5 V: \
TButton
Button7
( r  J, Y, W' N: Q1 ^Caption
图面丢失：设置640*480方式

Enabled
False
% V/ F1 r4 h+ l. Q; ~: F% \
TButton
9 G6 r. g% H2 A0 u0 MButton8
Caption
恢复已丢失的图面

Enabled
5 M* v! ^4 a+ H+ `/ ?) |6 _  U% oFalse
  }( a$ e) l: A0 O- B- x5 R
8 c# ~8 s4 O: h4 l- T. j! F" `TButton
2 o) n0 f. ]! t/ ?- w& GButton9
Caption
2 v! m0 ^  h0 e4 C; K3 f6 J重新显示图形
# T( u& {9 b/ N& E* M, t
Enabled
, Q5 h9 Y9 O) d8 E& B" Z! h7 ], yFalse

" ]3 |9 G  t, F+ z3 V9 W
  z, W  \( G6 S( a9 E" b　

6 F0 R0 f" h2 K& w: f! D9 x" w9 _表2.3 dx2控件对象属性设置一览表
' K; C+ \" O% {; ~+ ?7 p& Z
7 x& o, Z5 h* o' l8 M5 I" ]2.3.3.1 创建主图面

7 I  |$ i, K% g& U  |用HRESULT IDirectDraw::CreateSurface来创建图面：

lpDD2->CreateSurface(LPDDSURFACEDESC lpDDSurfaceDesc,
# a, T; \6 k. \3 p
LPDIRECTDRAWSURFACE FAR *lpDDSurface,

* N+ V& D# t& y$ AIunknown FAR *pUnkOuter)
# q7 m* z" A( p4 n4 A7 d
8 X  {0 D5 r: @, e+ x(1)参数lpDDSurfaceDesc是一个志向DDSURFACEDESC结构的指针，DDSURFACEDESC结构的定义比较复杂，幸好一般只需要使用其中很少的一部分。结构DDSURFACEDESC的部分描述如表2.4所示：

结构成员
8 D8 w" m8 I. d! o- j! v描述

DOWRD dwSize
DDSURFACE结构的尺寸。在使用此结构之前，此项数据必需用sizeof函数设置

DWORD dwFlags
控制标志。主要可以设置的标志为：
7 E7 u! z8 Z% T- N! J% ~* @
# I  b0 d- A: L! R0 L2 oDDSD_CAPS、

DDSD_HEIGHT、

DDSD_WIDTH、
. T2 {$ K- t: g3 S0 E  M& q! A9 f
+ Z' x) X" u% }% P6 K, K4 FDDSD_BACKBUFFERCOUNT、
0 g7 p/ z& L4 h# W& q
- M  c; c, n+ V3 @7 }DDSD_PIXELFORMATDENG 等

DWORD dwHeight
图面高度。主图面不需要设置
/ {. W& |7 k6 {
+ H, B8 E- a" |0 {  ?8 m$ y- p; lDWORD dwWidth
0 j9 g( Z: q, Q& u图面宽度。主图面不需要设置

7 S; Y. x9 w" }8 q" QDDSCAPS ddsCaps
图面能力。DDSCAPS也是一个结构，在创建图面时需要设置其成员dwCaps的值，以便确定所建图面的性质。

6 G2 a' h& y2 W  QDwCaps的取值主要有：

% d  ~- y9 h1 D7 @. i  I9 R/ h  A3 Z1 fDDSCAPS_PRIMARYSURFACE：主图面
5 O1 v4 \4 q9 p7 `/ h2 ^1 Y) u
9 l- z9 \/ K: e0 vDDSCAPS_OFFSCREENPLAIN：后台图面
, d. T$ @8 Y; ~) j: @2 R
DDSCAPS_COMPLEX：复合图面
! E1 |/ U0 q7 ?( Q  Z2 C- r5 w
# }8 J0 w5 C( o' w' X7 w1 m3 ?3 `DDSCAPS_FLIP：图面翻转链

7 M# P3 i. l1 [DDSCAPS_OVERLAY：覆盖图面

5 D6 P* |$ |! CDDSCAPS_VIDEOMEMORY：图面创建在显示内存

DDSCAPS_LOCALVIDMEM：使用常规显示内存
3 |5 D- Y# u$ ~! ]! C: D
DDSCAPS_NONLOCALVIDMEM：使用AGP内存

8 |4 a& z- ~3 E" ~7 MDDSCAPS_SYSTEMMEMORY：图面创建在系统内存


　
, q* {# v9 f, y* ~8 {$ E5 r# E- L
5 c7 o. ]! I2 b7 @. [9 M5 e0 |1 Y6 R表2.4 DDSURFACEDESC结构的部分成员说明

(2)参数lpDDSurface返回一个指向所创建图面的指针。
: c3 z2 h) q# I; e% h" `% e
(3)参数pUnkOuter未使用，必需为NULL。
: E6 y. V* E% I
! E, `1 s6 O7 }: ^  k* m" D) L! y3 n创建主图面需要以下步骤：

: K) U- p( i5 L9 Y6 s: i　

(1)获得并设置DDSURFACEDESC结构的尺寸dwSize：ddsd.dwSize=sizeof(ddsd);
+ w$ [  q8 t' Q, u6 E# r  _8 A: ?/ }
  [1 I# m$ W& n0 V6 J% X, X(2)简单地设置ddsd.dwFlags=DDSD_CAPS；
$ U! c8 H* ~1 _
+ |; N& y+ b; s5 \  |8 e) m" X3 W(3)设置主图面标志：ddsd.ddsCaps.dwCaps=DDSCAPS_PRIMARYSURFACE;
( a" [0 Y" B% j8 o: i9 l
(4)调用CreateSurface方法创建图面。
! g7 k$ o1 b/ _
　
0 O( f" R& K; F/ @
  _( h8 Q5 I: N* k8 L2.3.3.2 创建后台图面
6 m$ f" k9 \2 @$ G& R
3 u3 g: v& J, K# c) F后台图面的创建与创建主图面基本相同，只是在DDDURFACEDESC结构中多给出一些信息。创建后台图面需要以下步骤：

1 p2 V2 J5 a/ T(1) 获得并设置DDSURFACEDESC结构的尺寸dwSize：ddsd.dwSize=sizeof(ddsd);
2 M$ T7 Q8 D1 J4 T+ U
# u& }7 b9 b. a; l/ l: H(2) 设置ddsd.dwFlags=DDSD_CAPS|DDSD_HEIGHT|DDSD_WIDTH;
2 n" [7 E4 f, H. V' W$ J* ?1 G
(3) 设置后台表面的宽和高(dx2中设为100)：ddsd.dwHeight=100; ddsd.dwWidth=100;

! z. ]2 i* o8 T3 u0 z" ^(4) 设置后台图面标志：ddsd.ddsCaps.dwCaps=DDSCAPS_OFFSCREENPLAIN;
" i8 Q$ v1 x& C, F2 c- V
; m- G. ]# n4 K1 s1 m4 l8 I(5)调用CreateSurface方法创建图面。

" I! h4 ]5 X$ n1 {! r* I　
% h2 b% \9 H/ R/ ^. R
+ e6 G1 E! t" ]( _0 W2.3.3.3 图形文件的装入后台图面和图形文件的装入主图面
& U9 |" }% z" P( K) p
1 [1 {, ~( [8 a- F图形文件的装入主要采用Windows的函数，虽然使用C++Builder的TCavas对象打开图形文件要方便一些，但是在BitBlt时不够稳定，因此dx2还是选择了前者。

" X- B5 i" J$ Z; U1 C; s" Ldx2在实现图形内存数据复制时采用了GDI，在DirectDrawSurface对象中有GetDC和ReleaseDC两个方法，以便取得HDC并调用GDI。
$ {4 G$ w5 ^8 G! q* f
7 O% A$ y/ ^; t5 c: F- FHRESULT IDirectDrawSurface::GetDC(HDC FAR *hdc)

HRESULT IDirectDrawSurface::ReleaseDC(HDC hdc)
. k3 n0 v) c9 @) j5 w  w% j
参数hdc是一个设备句柄。

BitBlt虽然速度比较慢，但是兼容性好，能够支持不同的显示模式，而且能够自动进行格式转换。
" J. L2 b/ X, _9 @2 Q# t
6 ~" N" z; L4 o, P* t4 d2.3.3.4 后台图面图形拷贝到主图面显示

这里同样使用了BitBlt，将后台图面的数据复制到主图面并显示出来。

0 O. |1 s% J0 }2.3.3.5 丢失图面及恢复初始显示方式和图面
; b! x5 x: e# o' j- j
& P! B- v. {" l( Z3 j在dx2中我们演示了当改变屏幕显示方式时，图面丢失的现象，并且说明了在图面丢失后可以用HRESULT IDirectDrawSurface::Restore()方法来恢复图面，同时必需重新绘制图面上的图形。
! c' e5 |4 K) y; v3 a! ?
# ?- m+ x4 }. H& v" J% \: iRestore方法没有参数，但是若要成功恢复已丢失的图面，必需屏幕显示方式重新恢复到其初始的状态。

为了判断图面是否已经丢失，也可以使用HRESULT IDirectDrawSurface::IsLost()方法来进行检测，若返回值为DDERR_SURFACELOST则说明图面确实丢失了。在dx2中没有进行此判断，读者可以根据自己的理解修改dx2，实现恢复图面前首先进行图面是否丢失的判断。

2.3.4 dx2源程序
' m  Z+ P, M# o% k* r; V
2.3.4.1 dx2主要文件的组成为：工程文件(dx2.bpr)、窗口文件(main.cpp)、头文件(main.h)、view.bmp。
+ e% C1 {3 T" }2 {( |1 x( n4 o
9 Y/ |' n/ E5 q- b2.3.4.2 头文件main.h
+ e* n7 Q/ ]' q5 n5 a
# A+ ~& r3 w: H! s% G: I; N/ V#ifndef mainH

3 Q$ z1 |4 H3 q, d6 L#define mainH
% g+ [) ?2 O0 B: x
! F- F6 g# X. q# e$ c//---------------------------------------------------------------------------

; t; ]! [! t1 R#include <Classes.hpp>

: @& ~1 m& w5 P5 h1 b! p#include <Controls.hpp>

; `7 N7 ]/ l0 M; z! V#include <StdCtrls.hpp>
/ m% A% i2 w! E: z
#include <Forms.hpp>

9 d0 S) B# M: ~#include <Dialogs.hpp>
; f' G8 W8 S4 \- `6 a- x+ E
. M" m: }  o: n  z! Y) H5 N% b5 E: P#include "d:\tools\dx5sdk\sdk\inc\ddraw.h"
; X) c" G6 l: g6 {0 ]8 Z
//---------------------------------------------------------------------------

char CR[]={13,10,0};
# d1 V. g" H% c% a1 }2 V* Y& k3 z
//---------------------------------------------------------------------------
+ @- s% j  s) n) ~1 `2 I5 U
class TForm1 : public TForm

) F" v  x2 V- A* T; o+ b{
5 X8 G: k. y' Y1 _  ~6 |$ P, I4 b
8 `4 r: Z( R& g__published: // IDE-managed Components

( e: J/ \' f5 CTButton *Button1;

TLabel *Label1;
8 n. S. e2 ?6 K) h# Z
TGroupBox *GroupBox1;
7 B9 P/ H  e3 w2 v* N# ]
# v& Q7 ~6 W& k" k# z/ i& QTMemo *Memo1;
7 g$ \- C/ Q, U! F5 t7 S1 L/ P9 C3 d
6 g& D# B8 ]" j, JTButton *Button2;
  p: v( [1 O9 Y% p
* e+ g( P9 d. ~) S* d  \/ E6 GTButton *Button3;

TButton *Button4;
7 l% z- i3 D- V6 s8 A
TButton *Button5;

TButton *Button6;
& ?7 z3 @$ j( D' T* L
8 {6 h) b& c* m9 V8 `' gTButton *Button7;

; O2 C" M) v+ `" O9 z, z. k( s% gTButton *Button8;
; o, q& A4 R' @. ?5 M3 \8 ^
1 \8 r; {* ?, p) q8 \TButton *Button9;
# b' J7 ?. y! C) k% _3 P. R" H
void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

3 u# z; w" ]. gvoid __fastcall FormClose(TObject *Sender, TCloseAction &Action);

. T, @+ a  O& O5 |  b% Ovoid __fastcall Button3Click(TObject *Sender);
3 _8 g* i8 ]! a7 S" c
void __fastcall Button4Click(TObject *Sender);

1 n: z' k  E: O( [: _5 c! Cvoid __fastcall Button5Click(TObject *Sender);
4 E% a1 Q% U' S& L4 \( p2 `
+ d. ~4 U9 ]6 N8 a4 P6 jvoid __fastcall Button6Click(TObject *Sender);
: l4 d. O: J7 X1 ?
/ Q5 B* Z; b  U5 K% mvoid __fastcall Button7Click(TObject *Sender);

void __fastcall Button8Click(TObject *Sender);
0 A5 N6 ?" y& y# I5 z2 ?1 `
& m/ `# C* a/ k4 x  F- A) _1 gvoid __fastcall Button9Click(TObject *Sender);

9 m+ ~9 w7 J1 m# p. `private: // User declarations

LPDIRECTDRAW FAR lpDD;

LPDIRECTDRAW2 FAR lpDD2;
* X. G5 P& \; ~8 X: {+ y
) V5 j: W3 I" r& n9 w+ _8 y/ ODDSURFACEDESC ddsd;
7 _& x' T( s# n2 e+ s
LPDIRECTDRAWSURFACE FAR lpDDPrimary,lpDDOffScreen;

+ o0 p3 M# D: k9 m+ e9 opublic: // User declarations

. O4 T& U( \/ ^4 F, w( D__fastcall TForm1(TComponent* Owner);
/ z3 d. y; c1 O
0 ]# a% _/ [1 F4 @. `' E};

9 I9 H+ T5 }. U+ y# I　
0 J% x6 c! [% ^/ d  v8 {
% q9 e( D3 q5 j! B& r; V" V2.3.4.3 程序文件main.cpp

#include <vcl.h>
" L: w5 g4 B/ y* B8 I( K6 J! s
#pragma hdrstop
7 Y3 C. i3 [( ^
　

, m9 y* C) U# S: Y: c. n#include "main.h"

//---------------------------------------------------------------------------

+ G: r% |% r4 g( e#pragma package(smart_init)

#pragma resource "*.dfm"
/ T$ [7 \7 [* h
) V  E8 }3 A! R  a3 m5 HTForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

1 D$ d) I9 N' R- y{

# n$ T( G6 J. e' l# Y7 H$ m}

' }7 g3 Z$ I2 O//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{
. `9 P/ s6 R- E- I
if(!FAILED(DirectDrawCreate(NULL,&lpDD,NULL)))
: n1 r% Q) D% _1 c
{
6 ^, Z$ e  Z( \9 s8 u
2 g4 S( {# q1 @/ Vif(!FAILED(lpDD->QueryInterface(IID_IDirectDraw2,(LPVOID *)&lpDD2)))

( U/ M  i9 z+ }) w& \- R{
1 F" l: s& u7 {5 ^$ W/ n+ u
& p, k/ G) g, t6 i. H: @lpDD->Release();

if(!FAILED(lpDD2->SetCooperativeLevel(Handle,
& T) U* K& V5 k5 P' Q. u
DDSCL_EXCLUSIVE|DDSCL_FULLSCREEN|DDSCL_NOWINDOWCHANGES)))

7 c% s9 G: v; p{

if(!FAILED(lpDD2->SetDisplayMode(800,600,16,0,0)))

{

1 H3 y+ v" Z2 {0 _% qMemo1->Lines->Text=Memo1->Lines->Text+"Create DirectDraw Object OK."+(String)CR;
- K- \, M' \# D. F1 H3 A% \. q
4 |: m. k1 v6 uButton1->Enabled=false;
: P6 [1 D4 s9 j* r
Button2->Enabled=true;
: k8 @( I* o' `0 [  Z% Z4 \. L
return;

}
% G* m& X2 l/ D- Z) z! R. E
}
. q: L% M5 X/ K- ^
}
6 W1 P2 W: z: `- Y6 k$ i+ }
7 k5 b% \' C8 D/ b! C}
! u, ?) @1 y" V* `% E  N+ l! {
( E+ q1 D) b7 f  G3 d0 qMemo1->Lines->Text=Memo1->Lines->Text+"Create DirectDraw Object Failed."+(String)CR;
, T0 Q" }* A/ p2 X
}
8 D7 ^( o9 d- X# ^9 S
//---------------------------------------------------------------------------
+ M- ^7 E& g% a. ~/ L$ y
void __fastcall TForm1::Button2Click(TObject *Sender)

{
- J$ v: a5 _& K" D  v9 b0 g
ZeroMemory(&ddsd,sizeof(ddsd));

ddsd.dwSize=sizeof(ddsd);
5 P3 Y. r( X9 U% _
% b3 Y4 Z+ E! E, f* o% Q/ Bddsd.dwFlags=DDSD_CAPS;

ddsd.ddsCaps.dwCaps=DDSCAPS_PRIMARYSURFACE;
) v  V# K6 I6 r+ r
: d9 [6 z* R4 F! t( ~1 A; F) Uif(FAILED(lpDD2->CreateSurface(&ddsd,&lpDDPrimary,NULL)))

7 D2 n0 d6 b1 a" Z4 xMemo1->Lines->Text=Memo1->Lines->Text+"Create Priamry Surface Failed."+(String)CR;

5 L4 ^" g; L6 n' gelse

{

Memo1->Lines->Text=Memo1->Lines->Text+"Create Priamry Surface OK."+(String)CR;

Button2->Enabled=false;

Button3->Enabled=true;

}
0 j6 y0 U6 @) y$ C% W
}

" [% J' p, j/ l) Q; Y//---------------------------------------------------------------------------

& `& U; t+ f8 b0 I　
: w& P  y( o7 Z$ y5 U
. d9 a- F, x5 Y' M! V4 Pvoid __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{
9 _$ g0 P% C6 A; |: b
4 |& p' b3 Q* d) WlpDD2->Release();

}

//---------------------------------------------------------------------------
$ ?% x8 o. n: z2 ^( |  l3 w
　
( z3 ~) Q0 G  z5 `. [% q* |
void __fastcall TForm1::Button3Click(TObject *Sender)

: e6 o0 I& c0 w0 n' `/ Z# N4 [8 _{
4 F: A: u9 f5 Q# g4 ?5 Y
ZeroMemory(&ddsd,sizeof(ddsd));

ddsd.dwSize=sizeof(ddsd);
7 X8 h2 p8 A9 ~5 ~' m9 h
8 J! Q+ ?6 M# rddsd.dwFlags=DDSD_CAPS|DDSD_HEIGHT|DDSD_WIDTH;
. S! Q0 Z" L! F/ b
+ e1 [9 {  G0 l+ q' S8 iddsd.dwHeight=100;
8 K3 x! ^( t  g
& O6 t8 A2 f. b" f- Lddsd.dwWidth=100;

* [1 _' Q9 t) s  A4 ~ddsd.ddsCaps.dwCaps=DDSCAPS_OFFSCREENPLAIN;
" j: J$ Y0 |6 }& L, M
if(FAILED(lpDD2->CreateSurface(&ddsd,&lpDDOffScreen,NULL)))
6 N- J: [3 H: t$ [- I, j+ Z6 Y+ L% r
; ?8 H: Y/ d, WMemo1->Lines->Text=Memo1->Lines->Text+"Create OffScreen Surface Failed."+(String)CR;
4 b7 H! |; A. m$ `: M- C
! I5 r# ?7 z1 H8 G4 lelse
& \, s6 p7 h5 n2 s
7 G# u, t+ n  n' k% J0 z( S  u* B{
3 |; X3 j( y, Q3 y0 d, y
Memo1->Lines->Text=Memo1->Lines->Text+"Create OffScreen Surface OK."+(String)CR;
; e& A, ?/ G# F( ]  C% r
! C" R3 t- J4 D4 P0 m0 t$ KButton3->Enabled=false;

Button4->Enabled=true;
' ]6 |( u3 }( u6 h6 T( |  ~
}

; U( ?4 b, ?7 {. J" G4 d}
8 \* }8 P+ c4 u3 m9 n
//---------------------------------------------------------------------------
- ]1 i' T2 [/ Q1 N
　

void __fastcall TForm1::Button4Click(TObject *Sender)
  @& C  [) u& N( Q; o% o
{

1 S: |% R4 G' }4 k' M( B; OHDC hdc,hdcImage;
: m' |/ f) S, |: B3 N- Q" w
HBITMAP hbm;

- ~$ {4 \  p) ]8 l4 @" Jhbm=(HBITMAP)LoadImage(NULL,"view.bmp",IMAGE_BITMAP,100,100,LR_LOADFROMFILE|LR_CREATEDIBSECTION);

, a0 z6 f  Q/ J2 ohdcImage=CreateCompatibleDC(NULL);

SelectObject(hdcImage,hbm);

if(FAILED(lpDDOffScreen->GetDC(&hdc)))

Memo1->Lines->Text=Memo1->Lines->Text+"Get DC of OffScreen Screen Surface Failed."+(String)CR;

else
  U! P5 p) [1 \( n
{
  Q& G, w8 n/ H
# K4 S: u2 \# X# i! s8 yMemo1->Lines->Text=Memo1->Lines->Text+"Get DC of OffScreen Screen Surface OK."+(String)CR;

if(BitBlt(hdc,0,0,100,100,hdcImage,0,0,SRCCOPY)==FALSE)

/ u- ~5 j% X: y7 g, U0 B$ ]Memo1->Lines->Text=Memo1->Lines->Text+"OffScreen Screen BitBlt Failed."+(String)CR;
% `* V8 F) t5 |+ p, P0 z. _* E+ Y
else

2 O1 A$ s7 X5 L% I* f7 i) ^{

# g+ I$ E2 b; w. |: M, LMemo1->Lines->Text=Memo1->Lines->Text+"OffScreen Screen BitBlt OK."+(String)CR;
7 r5 b, U1 \3 V* A% L
Button4->Enabled=false;
8 B" L: q# W) y
Button5->Enabled=true;

}
6 t0 K3 ?" b5 B# D
lpDDOffScreen->ReleaseDC(hdc);
3 {+ |; {) E9 M. \$ J6 U
6 L8 ^$ e6 F% }, K/ H}
' ]/ l3 b; `0 g: G. r* w  b) D
if(hdcImage) DeleteDC(hdcImage);

; v1 H! N$ B+ X2 t% @6 o; B' }if(hbm) DeleteObject(hbm);
' g6 S; ?# ^: x. V. `- `8 |- [; B
6 z% Z# v! A, K$ I}

//---------------------------------------------------------------------------

　

void __fastcall TForm1::Button5Click(TObject *Sender)
8 ^* d/ h+ B& \: v. `' I7 a( v
{

HDC hdc,hdcImage;
" h4 {+ B+ ~1 n9 t7 f% M
HBITMAP hbm;
6 x) V0 N7 x0 _& a6 W% {4 }
' n" w# [1 N+ Q: U0 c) a' nhbm=(HBITMAP)LoadImage(NULL,"view.bmp",IMAGE_BITMAP,200,100,LR_LOADFROMFILE|LR_CREATEDIBSECTION);

% K9 B/ p3 V1 ^/ dhdcImage=CreateCompatibleDC(NULL);

, `: @+ {+ W$ S7 T5 w  KSelectObject(hdcImage,hbm);

if(FAILED(lpDDPrimary->GetDC(&hdc)))
: s- d5 r' W: y
Memo1->Lines->Text=Memo1->Lines->Text+"Get DC of Primary Screen Surface Failed."+(String)CR;

2 v$ N' P6 d) M6 ^0 Jelse
, Z; {2 o! A1 z: U" @; W( l
% T" P1 Z4 J) B( T! N, N/ ]( ]. f. v{

Memo1->Lines->Text=Memo1->Lines->Text+"Get DC of Primary Screen Surface OK."+(String)CR;
3 n% _# m& G( q, t. ]
if(BitBlt(hdc,0,0,200,100,hdcImage,0,0,SRCCOPY)==FALSE)

5 y4 {/ B/ x  m. hMemo1->Lines->Text=
# m4 D! t# r4 W% \
. J' N5 S& }" X; Q9 dMemo1->Lines->Text+"rimary Screen BitBlt Failed."+(String)CR;

; U/ P( H2 ^3 Eelse

{
% f/ E3 r# o$ K$ j3 m9 q: Z
Memo1->Lines->Text=Memo1->Lines->Text+"rimary Screen BitBlt OK."+(String)CR;
3 e  f# z; X2 l6 l) A& }( ?3 W
Button5->Enabled=false;

3 _3 [6 L1 i/ B4 l; jButton6->Enabled=true;

( j' q* d+ G2 c: i}

. Y2 q$ o9 \% P0 W2 d- llpDDPrimary->ReleaseDC(hdc);
* y3 B: q5 b: d- j$ `. x' j9 f
6 V/ C& |' e  g2 U/ i}
  D( I+ l8 O! y2 G2 I7 Y
if(hdcImage) DeleteDC(hdcImage);

if(hbm) DeleteObject(hbm);
* K. `% f0 I' |0 l( }4 }& U6 y& w
}
% G( G" `" g( ]( b' Z9 y( o& K2 ^
//---------------------------------------------------------------------------

5 d) `6 G5 _4 y. f7 i8 y　

$ U& w/ k8 e1 t) Y& Y5 O! B+ c* c7 Evoid __fastcall TForm1::Button6Click(TObject *Sender)
# c8 l9 x* o1 P! o- z* M8 P! @
{

HDC hdcPrimary,hdcOffScreen;
, s7 Z2 ^3 d) \# y& e6 F
$ f* |# G. r- y3 t% UlpDDPrimary->GetDC(&hdcPrimary);
7 l% {2 ]4 O# q6 |/ e& p
* t% \# G% |7 |1 h2 ZlpDDOffScreen->GetDC(&hdcOffScreen);
% J; B4 S$ K  N5 G6 A+ @
BitBlt(hdcPrimary,200,0,100,100,hdcOffScreen,0,0,SRCCOPY);
# y6 f  o6 r  s$ X" Y
lpDDPrimary->ReleaseDC(hdcPrimary);
! Z$ I% j* B- d3 Z6 m3 W% s1 b6 w
lpDDOffScreen->ReleaseDC(hdcOffScreen);
* |( P$ }5 L8 Q, W8 y4 H6 `
. v# {) ~' x, b7 ~Memo1->Lines->Text=Memo1->Lines->Text+"OffScreen To Primary OK."+(String)CR;

6 \, f; G! I+ I  [Button6->Enabled=false;
3 B# D$ K: z- ~5 y# I8 o) M
$ Z1 H1 l7 D- D7 t9 [6 k# `  IButton7->Enabled=true;
- c! a; O& U9 ~4 @+ Z2 Y! |
}

/ k; L  x) G' \//---------------------------------------------------------------------------
  Y+ F$ n3 Z0 ^* p* w% Q
! ]9 b# g& i5 G1 ?" g0 r. p　
2 W( \- ^, P# v" M" C; J
- @5 l5 n, P% C/ q; ^# f) ?void __fastcall TForm1::Button7Click(TObject *Sender)
* J" h) U* k0 P. j* ]6 d
8 ?6 p0 l/ ~3 D& K# j{

2 b; P  o; {5 L& }4 VlpDD2->SetDisplayMode(640,480,16,0,0);
# P. m/ i2 w# R- ?
+ l! U3 o( M- e3 v( @if(lpDDPrimary->IsLost()==DDERR_SURFACELOST&&lpDDOffScreen->IsLost()==DDERR_SURFACELOST)

Memo1->Lines->Text=Memo1->Lines->Text+"Surfaces are Lost."+(String)CR;

2 e3 w8 W6 F# \! gelse

Memo1->Lines->Text=Memo1->Lines->Text+"Surfaces remain."+(String)CR;

Button7->Enabled=false;
  y4 G0 M, C9 _" a* D
Button8->Enabled=true;

　
, Q8 B/ J$ y1 w8 v1 l  x
4 y/ b) \- w; t5 ^% L) a  }}

//---------------------------------------------------------------------------

" O0 V0 z, `5 W# e; l! S6 a2 [　

void __fastcall TForm1::Button8Click(TObject *Sender)
$ a, B9 k3 l; t9 b9 l4 @6 ?
! v: r& L+ K6 m1 {; [2 c{
% K  [- }/ U" \( B( U
( m& a+ B2 r! |, VlpDD2->SetDisplayMode(800,600,16,0,0);

lpDDPrimary->Restore();

lpDDOffScreen->Restore();

$ h3 u' f& w4 h4 g. R; n2 E$ OMemo1->Lines->Text=Memo1->Lines->Text+"Restore lost Surfaces OK."+(String)CR;

% [( k2 O$ u) |8 S. zButton8->Enabled=false;
6 w; z/ _; `* z# d
; e7 r) m# U! L' UButton9->Enabled=true;
$ r2 _5 x5 R5 X* I9 t, V
}

//---------------------------------------------------------------------------

　

5 {9 w1 _8 j' b. `7 k6 cvoid __fastcall TForm1::Button9Click(TObject *Sender)

{

! d+ w$ K/ L: aButton4Click(Sender);
0 U; J( T0 t4 p& u8 h# [
Button5Click(Sender);
6 D6 ~" p$ W: v9 `
' ^' A4 T/ i6 b4 w; iButton6Click(Sender);
3 [. T. u: R0 X! ?7 c0 A# [9 t
2 ?  {/ S; G/ _2 `}