Delphi+DirectX游戏编程

先说说如果用Delphi进行游戏编程要些什么,要注意什么。

1、到网上查找下载 DirectX 7.0 for Delphi 声明档或更高版本(本人源码用的是7.0)。查找时最好用DirectDraw.pas,否则DelphiX控件信息会占满你前100页的搜索结果。

2、如果你是用D7或更高版本,DirectX 7.0 for Delphi 声明档的 DirectDraw.pas 第145行要改为: {$IFDEF VER150}  否则你无法编译。8.0版要更改更多地方。

3、如果是全屏模式,千万不要用单步执行的方式运行。否则会死的很难看。

4、推荐一本书《Delphi Graphics and Game Programming Exposed with DirectX 7.0》,网上能找到英文版下载。

5、中文翻译表达不准备。如表面、界面等。源码很多是参看推荐书中,但也有很多改进。  

先来二段最简单的代码。

实现功能一:将一张图片用全屏模式显示出来(更多注解请看后面笔记)

uese  DirectDraw;

var

  FDirectDraw: IDirectDraw7;  {代表显示器}

  FPrimarySurface: IDirectDrawSurface7;    {代表主页面}

  FBitmap:IDirectDrawSurface7;   {用于存放BMP}

      

procedure TForm1.FormCreate(Sender: TObject);

var

  TempDirectDraw: IDirectDraw;

  DDSurface: TDDSurfaceDesc2;

begin

  DirectDrawCreate(Nil,TempDirectDraw,Nil);

  try

    TempDirectDraw.QueryInterface(IID_IDirectDraw4, FDirectDraw);

   finally

    TempDirectDraw := nil;

  end;

  FDirectDraw.SetCooperativeLevel(handle,DDSCL_EXCLUSIVE or DDSCL_FULLSCREEN);

  FDirectDraw.SetDisplayMode(800,600,32,0,0);

  FillChar(DDSurface, SizeOf(TDDSurfaceDesc2), 0);

  DDSurface.dwSize  := SizeOf(TDDSurfaceDesc2);

  DDSurface.dwFlags := DDSD_CAPS;

  DDSurface.ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE;

  if FDirectDraw.CreateSurface(DDSurface,FPrimarySurface,Nil)<>DD_OK then Close;

  FillChar(DDSurface, SizeOf(TDDSurfaceDesc2), 0);

  DDSurface.dwSize   := SizeOf(TDDSurfaceDesc2);

  DDSurface.dwFlags  := DDSD_CAPS or DDSD_HEIGHT or DDSD_WIDTH;

  DDSurface.dwWidth  := 800;

  DDSurface.dwHeight := 600;

  DDSurface.ddsCaps.dwCaps := DDSCAPS_OFFSCREENPLAIN;

  FDirectDraw.CreateSurface(DDSurface, FBitmap, nil);

end;

procedure TForm1.FormShow(Sender: TObject);

var

  BMP:TBitMap;

  SrcRect:TRect;

begin

  BMP:=TBitMap.Create;   

  BMP.loadfromfile('./desk.bmp');              

  if FBitmap.GetDC(l_DC)<>DD_OK then close;

  BitBlt(l_DC, 0,0 , 800, 600,

              BMP.Canvas.Handle, 0, 0, SrcCopy);

  SrcRect := Rect(0, 0, 800, 600);

  FBitmap.ReleaseDC(l_DC);

  FPrimarySurface.BltFast(0, 0, FBitmap, @SrcRect, DDBLTFAST_NOCOLORKEY OR DDBLTFAST_WAIT);

  BMP.Free;

end;

    

实现功能二:继上面显示图形后,显示几个文字;

procedure TForm1.FormShow(Sender: TObject);

var

  BMP:TBitMap;

  SrcRect:TRect;

  TempCanvas: TCanvas;

  SrfcDC: HDC;

begin

  BMP:=TBitMap.Create;   

  BMP.loadfromfile('./desk.bmp');              

  if FBitmap.GetDC(l_DC)<>DD_OK then close;

  BitBlt(l_DC, 0,0 , 800, 600,

              BMP.Canvas.Handle, 0, 0, SrcCopy);

  SrcRect := Rect(0, 0, 800, 600);

  FBitmap.ReleaseDC(l_DC);

  FPrimarySurface.BltFast(0, 0, FBitmap, @SrcRect, DDBLTFAST_NOCOLORKEY OR DDBLTFAST_WAIT);

  BMP.Free;

  TempCanvas := TCanvas.Create;

  FPrimarySurface.GetDC(SrfcDC);

  with TempCanvas do begin

    Handle := SrfcDC;

    Brush.Color := clBlack;

    FillRect(Rect(0, 0, 640, 480));

    Font.Color := clLime;

    TextOut(100, 100, '显示文字')

  end;

  TempCanvas.Handle := 0;

  FPrimarySurface.ReleaseDC(SrfcDC);

  TempCanvas.Free;

end;

游戏的的最基本要素:图形文字,用两段简单的化码就实现了。接下来是游戏最得要的要素了:动起来。

不过,千成不要急。这里我们还不能急于求成。因为这里还有很多东西要补充,结出说明。如果你运行了前两段代码,就会发现,这是全屏方式的,并且,如果弹出桌面后再返回程序,图形就完全变了。即使把画图写字的代码放到OnActive事件中也一样。如果显卡不支持800 X 600 X 32色模式,这程序就弹出出去了。所以先解释(一)中的代码。   

var

FDirectDraw: IDirectDraw7;  {代表显示器}

FPrimarySurface: IDirectDrawSurface7;    {代表主页面} 有时也会说IDirectDrawSurface7代表的是显存,不一定正确,每个人理解不一样。

FBitmap:IDirectDrawSurface7;   {用于存放BMP}离屏表面。这个变量不是多余的,虽然也是IDirectDrawSurface7,也可以看成是显存,但它的创建和上面那个变量不一样。可以看成是缓冲。

OnCreate事件中代码:

DirectDrawCreate(nil, TempDirectDraw, nil); 

创建一个临时的 DirectDraw 对象。第一、三个参用nil,将游戏界面创建到主显示器上。如果有多个显示器,并且要创建到非主显示器上,你要先查找到所有显示器,然后将相应GUID的指针值,代替第一个参数。这里不讨论。(具体可参看DirectX控件源码是如何实现的)

TempDirectDraw.QueryInterface(IID_IDirectDraw7, FDirectDraw);

我们只能通过查询 DirectDraw 对象界面的方法,来取得一个 DirectDraw7 界面

TempDirectDraw := nil;

现在我们有了 DirectDraw7 界面,临时 DirectDraw 对象不再需要它了

DX对象会在程序关闭时自动释放,也可以不赋nil值。前面例子中IDirectDraw7、IDirectDrawSurface7 在程序关闭时都未处理。没有必要。

FDirectDraw.SetCooperativeLevel(handle,DDSCL_EXCLUSIVE or DDSCL_FULLSCREEN);

设置合作水平:全屏模式。第二参数可以是多种组合,具体意义网上能找到,不重复。

FDirectDraw.SetDisplayMode(800,600,32,0,0);

设置屏幕大小、颜色数:800 X 600 ,32真彩色。现在显卡一般都支持:8 bit、16 bit、32 bit,而24色比较特殊,很多显卡都不支持了。我主要讲的是16色和32色。24色除了占的字节数和32色不同之外,其它的都和32色一样(目前如此)。8 bit(256色)在《Delphi Graphics and Game Programming Exposed with DirectX 7.0》书中有详细说明。希望你已下载到此书。

如果想以此入门转而进入3D游戏编程的朋友,应主攻16色。

FillChar(DDSurface, SizeOf(TDDSurfaceDesc2), 0);

DDSurface.dwSize  := SizeOf(TDDSurfaceDesc2);

DDSurface.dwFlags := DDSD_CAPS;

DDSurface.ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE;

FDirectDraw.CreateSurface(DDSurface,FPrimarySurface,Nil)<>DD_OK then Close;

这一段代码是创建主页面。这也DX的一大特点,创建对象时是跟据一个数据结构的要求来创建的。因此首先要初始化数据结构,然后再调用DX相应的函数。

FillChar:先对数据结构清零;

DDSurface.dwSize  := SizeOf(TDDSurfaceDesc2); 这也是DX的一个特点,每个数据结构都有数据结构的大小,网上说是为了区别DX版本。这里只要按这种方式写就可以了

DDSurface.dwFlags := DDSD_CAPS;  标志,网上有所以参数说明,不重复

DDSurface.ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE;设为主页面(PRIMARYSURFACE)

if FDirectDraw.CreateSurface(DDSurface,FPrimarySurface,Nil)<>DD_OK then Close;

创建主页面,如果创建失败,就关闭程序。

接下来的代码和上面的创建过程一样,就是初始化数据结构时几个参数不同

DDSurface.dwFlags  := DDSD_CAPS or DDSD_HEIGHT or DDSD_WIDTH;

DDSurface.ddsCaps.dwCaps := DDSCAPS_OFFSCREENPLAIN; 告诉程序,下面创建的是一个离屏表面,即不显示的页面。

OnShow 代码

这里三个函数要说一下:

GetDC、ReleaseDC,这两个没什么好说的,只要成双出现就行了。      

BltFast。这是DX图形拷贝最快的一个函数。说是这么说,但好角Blt速度也差不了多少。

显示文字的代码就不用多说了,参看TCanvas就行了。

----------------------------------------------------------------

以上对DX代码作了简单说明总结。下面再说一下跟图形有关的东东,和几个非常简单特效。

一、抠图。

这个是非常实用,并且用的非常多。 实现起来也非常简单。

**接(一)程序**

var

  ColorKey: TDDColorKey;  //这也是一个数据结构

(*接在最后面*)

  BMP:=TBitMap.Create;   

  BMP.loadfromfile('./aaa.bmp');              

  if FBitmap.GetDC(l_DC)<>DD_OK then close;

  BitBlt(l_DC, 0,0 , bmp.width, bmp.heigh,

              BMP.Canvas.Handle, 0, 0, SrcCopy);

  FBitmap.ReleaseDC(l_DC);    //装入 图形,这里BMP重建,是因为前面FREE了

  ColorKey.dwColorSpaceLowValue  := 0;

  ColorKey.dwColorSpaceHighValue := 0;   //将黑色作为透明色

  FBitmap.SetColorKey(DDCKEY_SRCBLT, @ColorKey);

  SrcRect := Rect(0, 0, bmp.width, bmp.heigh);

  FPrimarySurface.BltFast(200, 100, FBitmap2, @SrcRect, DDBLTFAST_SRCCOLORKEY OR DDBLTFAST_WAIT);

  BMP.Free; 

end;

注意最后一个参数:DDBLTFAST_SRCCOLORKEY ,(一)中的是DDBLTFAST_NOCOLORKEY。

还应意,DX的透明色一般都用纯黑色。这是因为黑色,在8bit、16bit、24bit、32bit中的值都是零,而其他的颜色就不一定了。如:RGB(0,0,255)在16bit就不是纯蓝了。

二、BLT函数和它实现的几个特效

var

  MaskRect:TRect;

  PDD:TDDBltFX;  //Blt特效数据结构

(** BLT 填冲色块  **)

  MaskRect := Rect(100,100,200,200);

  FillChar(PDD, SizeOf(TDDBltFX), 0);

  PDD.dwSize := Sizeof(TDDBltFX) ;

  PDD.dwFillColor:=RGB(200,200,255);

  FPrimarySurface.Blt(@MaskRect,nil,@MaskRect,DDBLT_COLORFILL or  DDBLT_WAIT,@PDD);

(**  FX 境像 **)

  MaskRect := Rect(200,200,220,216);   

  FillChar(PDD, SizeOf(TDDBltFX), 0);

  PDD.dwSize := Sizeof(TDDBltFX);

  PDD.dwDDFX := DDBLTFX_MIRRORUPDOWN;

  FPrimarySurface.Blt(@MaskRect, FBitmap, @SrcRect,

                       DDBLT_DDFX or DDBLT_WAIT,@PDD);

注:Blt通过两个TRect就可以直接实现缩放。更多特效可参看TDDBltFX的数据结构中dwDDFX的变量值

------------------------------------------------------------

虽然现在几乎找不到不支持800 X 600 X 32 的显卡。但还是有必要给出下面这段代码:

uses DirectDraw;

var

  FDirectDraw: IDirectDraw4;

implementation

function EnumModesCallback(const lpDDSurfaceDesc: TDDSurfaceDesc2;

                           lpContext: Pointer): HResult; stdcall;

begin

  TStringList(lpContext).Add(IntToStr(lpDDSurfaceDesc.dwWidth)+' X '+

                       IntToStr(lpDDSurfaceDesc.dwHeight)+', '+

                       IntToStr(lpDDSurfaceDesc.ddpfPixelFormat.dwRGBBitCount)+

                        'bits/pixel');

  Result := DDENUMRET_OK;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

  TempDirectDraw: IDirectDraw;

begin

  DirectDrawCreate(nil, TempDirectDraw, nil);

  try

    TempDirectDraw.QueryInterface(IID_IDirectDraw4, FDirectDraw);

   finally

    TempDirectDraw := nil;

  end;

  {列举显示模式}

  FDirectDraw.EnumDisplayModes(0,nil, ListBox1.Items, EnumModesCallback);

end;

跟据这段代码,你就可以在显示模式不被支持时,让用户选择另一个模式,或给出一个提示对话框,而不用象我前面给出的例子,强制退出了。 

在前面代码中,除列举显式模式程序之外,都是在全屏模式下实现的。如何实现窗口模式呢?又或者,还有更高的要求,只显式在一个Panle控件中呢?这个问题《Delphi Graphics and Game Programming Exposed with DirectX 7.0》中没有给出答案。在解决非全屏模式的同时我们可以解决另一个问题,前面的显示文字图形的代码,是不能显示控件的。你放的任何控件都会被DX覆盖掉,这给调试带来一定麻烦,特别是全屏模式。

下面将给出非全模式、显示在控件中的方法。之后给出改进(英文书提供)的游戏框架代码。

一、窗口模式

运用窗口模式,首先设置合作水平时必须指明是窗口模式:

FDirectDraw.SetCooperativeLevel(handle,DDSCL_NORMAL);    DDSCL_NORMAL 普通模式

然后建立Clipper——修剪者。指定DX显示范围。并依附在主表面上。如果不指定,你会看到一个很怪异的图中图的情形。

var

   Clipper:IDirectDrawClipper;

  FDirectDraw.CreateClipper(0,Clipper,nil);

  Clipper.SetHWnd(0,Handle);

  FPrimarySurface.SetClipper(Clipper) ;  //依附在主表面上

Clipper.SetHWnd(0,Handle); 这里是指定的是窗口handle。如果你想DX只画在一个控件上,而窗口上其它位置留作它用,如画在panel1上,那么,这一句必须这么写:

    Clipper.SetHWnd(0,panel1.Handle);

好了。下面全出一个比较全的代码,实现非全屏模式。

Uses  

   DirectDraw;

const

  WM_DIRECTXACTIVATE = WM_USER + 200;   //自定义消息

  private    //自定义过程,说明在后

    procedure DrawSurfaces;           

    procedure FlipSurfaces;

    procedure AppIdle(Sender: TObject; var Done: Boolean);

    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

    procedure RestoreSurfaces;

var

  FDirectDraw: IDirectDraw7;  

  FPrimarySurface: IDirectDrawSurface7;   

  oneSurface: IDirectDrawSurface7;

procedure TForm1.FormActivate(Sender: TObject);

var

  TempDirectDraw: IDirectDraw;

  DDSurface: TDDSurfaceDesc2;

  DDSCaps: TDDSCaps2;

  Clipper:IDirectDrawClipper;

  L_DC:HDC;

  BMP:TBitMap;

begin

  DirectDrawCreate(nil,TempDirectDraw,Nil);     //在主显示器上创建IDirectDraw对象

  try

    TempDirectDraw.QueryInterface(IID_IDirectDraw7, FDirectDraw);

   finally

    TempDirectDraw := nil;

  end;

  Application.OnMessage := AppMessage;          //处理程序消息

  FDirectDraw.SetCooperativeLevel(handle,DDSCL_NORMAL);  //设置合作水平

//  FDirectDraw.SetDisplayMode(800,600,32,0,0);          //显示模式不用设置

  FillChar(DDSurface, SizeOf(TDDSurfaceDesc2), 0);     

  DDSurface.dwSize  := SizeOf(TDDSurfaceDesc2);

  DDSurface.dwFlags := DDSD_CAPS;

  DDSurface.ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE;

  DDSurface.dwBackBufferCount := 1;     //后台反转表面数一个

  if FDirectDraw.CreateSurface(DDSurface,FPrimarySurface,Nil)<>DD_OK then Close; //建立主表面

  FillChar(DDSurface, SizeOf(TDDSurfaceDesc2), 0);   

  DDSurface.dwSize  := SizeOf(TDDSurfaceDesc2);

  DDSurface.dwFlags:=DDSD_WIDTH or DDSD_HEIGHT or DDSD_CAPS;

  DDSurface.dwWidth := 800;

  DDSurface.dwHeight := 600;

  DDSurface.ddsCaps.dwCaps := DDSCAPS_OFFSCREENPLAIN ;

  FDirectDraw.CreateSurface(DDSurface,oneSurface,nil);   //建立离屏表面

  FDirectDraw.CreateClipper(0,Clipper,nil);          

  Clipper.SetHWnd(0,Handle);

  FPrimarySurface.SetClipper(Clipper) ;

  PostMessage(Handle, WM_ACTIVATEAPP, 1, 0);  //发送消息,开始循环

end;

  

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);

begin

  case Msg.Message of

    WM_ACTIVATEAPP:

      {如果窗口不是活动窗口进,停止动画}

      if not Boolean(Msg.wParam) then

         Application.OnIdle := nil

      else

        {如果变成活动窗口,发送自定义消息}

        PostMessage(Application.Handle, WM_DIRECTXACTIVATE, 0, 0);

    WM_DIRECTXACTIVATE:

      begin

        {收到自定义消息,重装所有界面(跟据需要重装他们的内存),重连 OnIdle 事件,

         重画所有表面    }

        RestoreSurfaces;

        Application.OnIdle := AppIdle;  //

        DrawSurfaces;

      end;

    WM_SYSCOMMAND:

      begin

        {关闭屏保}

        Handled := (Msg.wParam = SC_SCREENSAVE);

      end;

  end;

end;

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);

begin  //如果程序有空,就做下面两件事

  DrawSurfaces;

  FlipSurfaces;

end;

procedure TForm1.DrawSurfaces;  //离屏表面装入图片,如果控制好按顺序装入不同的图形,

var                       //并控制好时间,就实现了动画,具本可看DirectX 7.0 for Delphi

                          //声明档例子

  BMP:TBitmap;

  L_DC:HDC;

begin

  BMP:=TBitMap.Create;

  BMP.LoadFromFile('Desk.bmp');

  oneSurface.GetDC(L_DC);

  BitBlt(l_DC, 0,0 , 800,600,

              BMP.Canvas.Handle, 0, 0, SrcCopy);

  oneSurface.ReleaseDC(L_DC);

end;

procedure TForm1.FlipSurfaces;  //把离屏表面的图形画到主表面上去

var

  rcSrc,rcDest:TRECT;

  P:TPoint;

begin

  P.X:=0;P.y:=0;

  P:=ClientToScreen(P);   //如果你想用控件,这里是:P:=Panel1.ClientToScreen(P); 

  rcDest:=GetClientRect;

  OffsetRect(rcDest,P.x,P.y);  //计算出窗口客户区RECT在屏幕中的绝对位置,

                               //计算不正确,呵呵……自己试试

  SetRect(rcSrc,0,0,800,600);

  FPrimarySurface.Blt(@rcDest, oneSurface, @rcSrc, DDBLT_WAIT, nil);

end;

procedure TForm1.RestoreSurfaces; //表面恢复

begin

  FPrimarySurface._Restore;   

  oneSurface._Restore;        

end;

好了,这时你放几个控件到窗口上,如:按钮、Panel、Memo,这时。它们是显示的DX图形上面了。

如果你没有设置窗口的BorderStyle:=bsSizeable; 那你可以试试改变窗口的大小,看看Blt的自动缩放动能。

如果看过DirectX 7.0 for Delphi声明档例子,你这时会产生一个疑惑:因为它用的方法是:FPrimarySurface.Flip(nil, 0); 非全屏模式下,不能用Flip。虽然FLip很快,非常快。但窗口模式不能用,这也是为什么很多游戏不能在在非全屏模式下运行的原因。我的一个程序,在窗口模式下只有7~8个FPS,而全屏模式下能达到20多。鱼和熊掌不能兼得。

关于表面恢复:

这也是全屏模式下的概念,非全屏模式下不会产生这个(我是没发现,正确与否还得论证)。在全屏模式是,DX会把所有的显存空出来给你的程序。当你程序最小化,显示出桌面时,内存中的数据就被破坏了,回到你的程序时,就必须进行恢复。恢复很简单,把丢失了的表面_Restore一下就行了。要命的是内存的的图片数据,你得一个个的恢复。你会说我上面怎么没有恢复图片的代码呀?你认真看一下就知道了,每次Blt之前都装入一次(DrawSurfaces事件),所以在表面恢复后,就没有必要。

玩过全屏游戏的朋友都知道,弹出桌后再回到游戏,100%的游戏都不能立刻显示游戏画面,都是黑屏,然后听到硬盘一阵狂响,这是在装入图片数据。然后才能让你继续游戏。

二、游戏框架代码

上面的代码已经有一点框架的雏形了。下面给出的是比较全面的框架,包括全屏和非全屏模式,还有比较详细的说明和心得体会。说明是翻译那本英文书上的,不是很准确,请多包涵。全屏模式下,是采用Blt、还是Flip,自己修改相应代码。看完这个框架,你对DX游戏编程就会有更深的理解了。

这只是一个框架,千万别试着运行它,在你还没有加入必要的代码之前。否则会死得很难看。

uses 

  DirectDraw;

const

  CooperAtiveLevel = DDSCL_FULLSCREEN or DDSCL_ALLOWREBOOT or DDSCL_ALLOWMODEX

                     or DDSCL_EXCLUSIVE;

  SurfaceType      = DDSCAPS_COMPLEX or DDSCAPS_FLIP or DDSCAPS_PRIMARYSURFACE;

const

  {自定义消息}

  WM_DIRECTXACTIVATE = WM_USER + 200;

type

  TForm_main = class(TForm)

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure FormKeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

  private

    {反转一新DGI 表面 用于显示错误}

    procedure ExceptionHandler(Sender: TObject; ExceptionObj: Exception);

    {主循环}

    procedure AppIdle(Sender: TObject; var Done: Boolean);

    {画表面}

    procedure DrawSurfaces;

    {反转 DirectDraw 表面}

    procedure FlipSurfaces;

    {重装丢失的表面}

    procedure RestoreSurfaces;

    { 截取消息功能}

    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

    { 初始DX为全屏模式 }

    procedure InitDirectDraw;

    { 初始DX为窗口模式 }

    procedure InitDirectDrawWindows;  

  public

    { Public declarations }

  end;

var

  Form_main: TForm_main;

  DXWidth:integer      = 800;   {DX 显示宽度}

  DXHeight:integer     = 600;   {DX 显示高度}

  DXCOLORDEPTH:integer = 8;     {DX 显示颜色数 8为256色}

  BufferCount:integer  = 1;     {反转表面个数}

  WindowMode:boolean   = false; {DX 是用窗口模式,还是全屏模式}

  FDirectDraw : IDirectDraw7;            {DirectDraw 主界面}

  MainSurface : IDirectDrawSurface7;     {原始表面}

  FlipSurFace : IDirectDrawSurface7;     { 反转表面、离屏表面 }

implementation

{$R *.dfm}

{ TForm1 }

{ – 用回调函数保证选择的图形支持 DirectX – }

function EnumModesCallback(const EnumSurfaceDesc: TDDSurfaceDesc2;

                           Information: Pointer): HResult; stdcall;

begin

  {如果宽、高和颜色深度与指定的常量中一样 ,那么显示模式可以被支持}

    if (EnumSurfaceDesc.dwHeight = DXHEIGHT) and

       (EnumSurfaceDesc.dwWidth = DXWIDTH) and

       (EnumSurfaceDesc.ddpfPixelFormat.dwRGBBitCount = DXCOLORDEPTH) then

      Boolean(Information^) := TRUE;

  Result := DDENUMRET_OK;

end;

{ – 当出现异常指令时,这个事件实现简单的背景反转 DGI 表面,这样例外对话框才能被看到 - }

procedure TForm_main.ExceptionHandler(Sender: TObject;

  ExceptionObj: Exception);

begin

  { 断开 OnIdle 事件,停止the rendering loop}

  Application.OnIdle := nil;

  {如果 DirectDraw 对象已经建立,反转GDI表面 }

  if Assigned(FDirectDraw) then

    FDirectDraw.FlipToGDISurface;

  {显示异常消息}

  MessageDlg(ExceptionObj.Message, mtError, [mbOK], 0);

  {重新连接 OnIdle 事件到 rendering loop}

  Application.OnIdle := AppIdle;

end;

procedure TForm_main.AppIdle(Sender: TObject; var Done: Boolean);

begin

{ 表明程序将连续不断的调用些事件}

  Done := FALSE;

  {如果 DirectDraw 没有初始化, 退出}

  if not Assigned(FDirectDraw) then Exit;

  {注: 这个小游戏的逻辑可以插入控制,如小精灵移动,碰撞,被发现}

  {画表面内容,反转表面}

  DrawSurfaces;

  FlipSurfaces;

end;

procedure TForm_main.DrawSurfaces;

begin

{ – 此方法当表面要被画时调用 –

  – 它将连续不断的被 AppIdle 事件调用,所有场景,动画都在这个方法里面 - }

{这里将会是程序主要部份}  

end;

{ – 此方法将反转表面 - }

procedure TForm_main.FlipSurfaces;

var

  DXResult: HResult;

  rcSrc,rcDest:TRECT;

  P:TPoint;

begin

{ 执行页面反转。

  注 DDFLIP_WAIT 标记被用了,表明这个函数将不返回,

  只到页面反转已经执行,这将能使程序执行其它的进程,

  只到页面反转函数返回,然而,程序必不断的调用反转函数,保证

  反转成功 }

  if WindowMode then begin  //窗口模式

    P.X:=0;P.y:=0;

    P:=ClientToScreen(P);

    rcDest:=GetClientRect;

    OffsetRect(rcDest,P.x,P.y);

    SetRect(rcSrc,0,0,DXWidth,DXHeight);

    DXResult := MainSurface.Blt(@rcDest, FlipSurFace, @rcSrc, DDBLT_WAIT, nil);

  end else   //全屏模式

    DXResult := MainSurface.Flip(nil, DDFLIP_WAIT);

  { 如果表面丢失,重装它们,其他错误,则引发异常

    这主要是针对全屏模式,窗口模式很少发生丢失情况  }

  if DXResult = DDERR_SURFACELOST then RestoreSurfaces

end;

{ – 此方法当表面内存丢失时被调用 –

  – 并且必须重载。 表面在显示内存中包含了Bitmaps就必须重新初始化 – }

procedure TForm_main.RestoreSurfaces;

begin

  MainSurface._Restore;

  FlipSurFace._Restore;

(* 接下来代码是将相应的图形装入到 MainSurface 和 FlipSurFace 中*)

end;

{ – 消息事件  – }

procedure TForm_main.AppMessage(var Msg: TMsg; var Handled: Boolean);

begin

  case Msg.Message of

    WM_ACTIVATEAPP:

      {如果窗口不是活动窗口进,停止动画}

      if not Boolean(Msg.wParam) then

         Application.OnIdle := nil

      else

        {如果变成活动窗口,发送自定义消息}

        PostMessage(Application.Handle, WM_DIRECTXACTIVATE, 0, 0);

    WM_DIRECTXACTIVATE:

      begin

        {收到自定义消息,重装所有界面(跟据需要重装他们的内存),重连 OnIdle 事件,

         重画所有表面    }

        RestoreSurfaces;

        Application.OnIdle := AppIdle;

        DrawSurfaces;

      end;

    WM_SYSCOMMAND:

      begin

        {关闭屏保}

        Handled := (Msg.wParam = SC_SCREENSAVE);

      end;

  end;

end;

{ - 创建,初始化 DX 对象为全屏模式 -}

procedure TForm_main.InitDirectDraw;

var

  {我们只能从DirectDraw 界面创建DirectDraw7,因些我们要一个临时的界面}

  TempDirectDraw: IDirectDraw;

  {创建DirectDraw7所需的数据结构}

  DDSurface: TDDSurfaceDesc2;

  DDSCaps: TDDSCaps2;

  {标志,用于决定图形模式是否支持}

  SupportedMode: Boolean;

begin

  {如果 DirectDraw 已经初始化,退出}

  if Assigned(FDirectDraw) then exit;

  {创建临时的 DirectDraw 对象。这将用来创建需要的 DirectDraw7 对象  }

  DirectDrawCreate(nil, TempDirectDraw, nil);

  try

    {我们只能通过查询 DirectDraw 对象界面的方法来取得 DirectDraw7 界面 }

    TempDirectDraw.QueryInterface(IID_IDirectDraw4, FDirectDraw);

  finally

    {现在我们有了 DirectDraw7 对象, 临时 DirectDraw 对象就不在需要了 }

    TempDirectDraw := nil;

  end;

{调用 EnumDisplayModes 回调函数,检查显示模式是否支持 }

  FillChar(DDSurface, SizeOf(TDDSurfaceDesc2), 0);

  DDSurface.dwSize   := SizeOf(TDDSurfaceDesc2);

  DDSurface.dwFlags  := DDSD_HEIGHT or DDSD_WIDTH or DDSD_PIXELFORMAT;

  DDSurface.dwHeight := DXHEIGHT;

  DDSurface.dwWidth  := DXWIDTH;

  DDSurface.ddpfPixelFormat.dwSize := SizeOf(TDDPixelFormat_DX6);

  DDSurface.ddpfPixelFormat.dwRGBBitCount := DXCOLORDEPTH;

  SupportedMode := FALSE;

  FDirectDraw.EnumDisplayModes(0, @DDSurface, @SupportedMode,

                                        EnumModesCallback );

  {如果需要的显示模式不被DirectX支持,显示一个错误消息,并结束程序}

  if not SupportedMode then begin

    MessageBox(Handle, PChar('The installed DirectX drivers do not support a '+

               'display mode of: '+IntToStr(DXWIDTH)+' X '+

               IntToStr(DXHEIGHT)+', '+IntToStr(DXCOLORDEPTH)+' bit color'),

               'Unsupported Display Mode Error', MB_ICONERROR or MB_OK);

    Close;

    Exit;

  end;

  {设置合作水平,定义在常量中,为全屏幕式 }

  FDirectDraw.SetCooperativeLevel(Handle, COOPERATIVELEVEL);

  {设置显示模式,常量中定义 }

  FDirectDraw.SetDisplayMode(DXWIDTH, DXHEIGHT, DXCOLORDEPTH, 0, 0);

{初始化 DDSurface 结构, 指示我们将建立一个复杂的反转表面,

  并带一个后台缓冲表面 backbuffer }

  FillChar(DDSurface, SizeOf(TDDSurfaceDesc2), 0);

  DDSurface.dwSize  := SizeOf(TDDSurfaceDesc2);

  DDSurface.dwFlags := DDSD_CAPS or DDSD_BACKBUFFERCOUNT;

  DDSurface.ddsCaps.dwCaps := SURFACETYPE;

  DDSurface.dwBackBufferCount := BUFFERCOUNT;

  {创建主表面对象}

  FDirectDraw.CreateSurface(DDSurface, MainSurface, nil);

{指出我们想建立一个后台缓冲表面(表面立刻到主表面反转链的后面)}

  FillChar(DDSCaps, SizeOf(TDDSCaps2), 0);

  DDSCaps.dwCaps := DDSCAPS_BACKBUFFER;

  {取反转表面}

  MainSurface.GetAttachedSurface(DDSCaps, FlipSurFace) ;

  {在这一刻, 画面以外的缓冲器和其他表面将被建立。其他 DirectDraw 对象也将立刻建立

   如:调色板(palettes)。画面以外的缓冲器的内容也同时被初始化 }

end;

{ - 创建,初始化 DX 对象为窗口模式

   下面注解只标注和全屏不同的地方,其它注解参看全屏模式

-}

procedure TForm_main.InitDirectDrawWindows;

var

  TempDirectDraw: IDirectDraw;

  DDSurface: TDDSurfaceDesc2;

  Clipper:IDirectDrawClipper;  //窗口模式下的Clipper:修剪

  SupportedMode: Boolean;

begin

  if Assigned(FDirectDraw) then exit;

  DirectDrawCreate(nil, TempDirectDraw, nil);

  try

    TempDirectDraw.QueryInterface(IID_IDirectDraw4, FDirectDraw);

  finally

    TempDirectDraw := nil;

  end;

  FillChar(DDSurface, SizeOf(TDDSurfaceDesc2), 0);

  DDSurface.dwSize   := SizeOf(TDDSurfaceDesc2);

  DDSurface.dwFlags  := DDSD_HEIGHT or DDSD_WIDTH or DDSD_PIXELFORMAT;

  DDSurface.dwHeight := DXHEIGHT;

  DDSurface.dwWidth  := DXWIDTH;

  DDSurface.ddpfPixelFormat.dwSize := SizeOf(TDDPixelFormat_DX6);

  DDSurface.ddpfPixelFormat.dwRGBBitCount := DXCOLORDEPTH;

  SupportedMode := FALSE;

  FDirectDraw.EnumDisplayModes(0, @DDSurface, @SupportedMode,

                                        EnumModesCallback );

  {如果需要的显示模式不被DirectX支持,显示一个错误消息,并结束程序}

  if not SupportedMode then begin

    MessageBox(Handle, PChar('The installed DirectX drivers do not support a '+

               'display mode of: '+IntToStr(DXWIDTH)+' X '+

               IntToStr(DXHEIGHT)+', '+IntToStr(DXCOLORDEPTH)+' bit color'),

               'Unsupported Display Mode Error', MB_ICONERROR or MB_OK);

    Close;

    Exit;

  end;

  FDirectDraw.SetCooperativeLevel(Handle, DDSCL_NORMAL);

{ 窗口模式不需要设置显示模式,如果你一定要设置也行,但不是好事 }  

//  FDirectDraw.SetDisplayMode(DXWIDTH, DXHEIGHT, DXCOLORDEPTH, 0, 0);

  FillChar(DDSurface, SizeOf(TDDSurfaceDesc2), 0);

  DDSurface.dwSize  := SizeOf(TDDSurfaceDesc2);

  DDSurface.dwFlags := DDSD_CAPS;

  DDSurface.ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE;

  FDirectDraw.CreateSurface(DDSurface,MainSurface,Nil);

  FillChar(DDSurface, SizeOf(TDDSurfaceDesc2), 0);

  DDSurface.dwSize  := SizeOf(TDDSurfaceDesc2);

  DDSurface.dwFlags:=DDSD_WIDTH or DDSD_HEIGHT or DDSD_CAPS;

  DDSurface.dwWidth := 800;

  DDSurface.dwHeight := 600;

  DDSurface.ddsCaps.dwCaps := DDSCAPS_OFFSCREENPLAIN ;

  FDirectDraw.CreateSurface(DDSurface,FlipSurFace,nil);

{在窗口模式下,必须建立 Clipper ,作用是为了让 DX不要画出界( 别人如是说 )

  并使之依附在主表面上 }

  FDirectDraw.CreateClipper(0,Clipper,nil);

{ 这里的 Handle 可以是控件 Handle,使用控件Handle 和窗体Handle

  在 FlipSurfaces 事件中将会有不同的操作 }

  Clipper.SetHWnd(0,Handle);

  MainSurface.SetClipper(Clipper) ;

end;

{ – 初始化窗口属性 – }

procedure TForm_main.FormCreate(Sender: TObject);

begin

  {设置程序的异常处理}

  Application.OnException := ExceptionHandler;

  { 初始化窗口属性,全屏模式和窗口模式要求不一样 }

  if WindowMode then begin

    BorderStyle := bsSingle;

    BorderIcons := [biSystemMenu,biMinimize];

   end else begin

    BorderStyle := bsNone;

    ShowCursor(FALSE);           { 不显示鼠标.  是否显式鼠标跟据你程序要求作决定 }

    FormStyle   := fsStayOnTop;  {  注:全屏模式 FormStyle属性必须是:fsStayOnTop}

    Cursor      := crNone;

    BorderIcons := [];

  end;

end;

procedure TForm_main.FormDestroy(Sender: TObject);

begin

  {释放异常处理的handler}

  Application.OnException := nil;

  {显示鼠标}

  ShowCursor(TRUE);

  {记住, 我们没有明确的释放 DirectX 对象, 因为当他们失去上下文连接时,

   他们会自动释放,如当程序关闭时 }

end;

procedure TForm_main.FormActivate(Sender: TObject);

begin

  if WindowMode then

    InitDirectDrawWindows else

    InitDirectDraw;

  Application.OnMessage := AppMessage;   //连接程序消息事件

  PostMessage(Handle, WM_ACTIVATEAPP, 1, 0);

  {发送一个消息,连接 OnIdle 事件,开始主循环 }

end;

procedure TForm_main.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  Case Key of

    VK_ESCAPE:Close;  //ESC

  end;

end;

end.

至此,你可以尝试写一点小小的动画了,如DX7.0例子中的小动画。

另,如果你想在全屏幕式下显示控件,比如按钮什么的,那么,你必须进行以下处理: 建立Clipper,依附在主表面上;然后改Flip为Blt。用了Clipper后,就不能用Flip了。

对于图形编程,就应该精通到对每一个象素点的操作。并且可以对每一个象素的R,G,B颜色分量进行操作。DX也应如何。

下面要说的就是,DX如何可以做到对每一个象素点的R、G、B分量进行操作。

var

  SourSf: IDirectDrawSurface7;

  SourSrfcInfo: TDDSurfaceDesc2;

  Sour:pointer;

  SourSrfcInfo.dwSize := SizeOf(TDDSurfaceDesc2);

  SourSf.Lock(nil, SourSrfcInfo, DDLOCK_SURFACEMEMORYPTR or DDLOCK_WAIT, 0);

//第一参数放nil,锁整个表面,也可以放@sRect 那么锁定的是 sRect 这个矩形了

   Sour:=SourSrfcInfo.lpSurface;

  SourSf.Unlock(nil);  //解锁

Sour就是SourSf的颜色值的起始地址。如果锁定的是矩形,返回的是矩形第一个点的地址。暂时放下这个Sour,先说说SourSrfcInfo结构。

这个数据结构在Lock之后,取得当前屏幕各种返回值,有些返回值非常重要。

ddpfPixelFormat.dwRGBBitCount 返回当前屏幕的颜色数,如8、16、24、32。这对于同时使用全屏非全屏的游戏来说很重要,因为非全屏时,你设置的屏幕大小颜色数是没用的,颜色数是跟据桌面的颜色数来定的,只有通这个值,你才能确定颜色数是多少。

    ddpfPixelFormat.dwRBitMask

    ddpfPixelFormat.dwGBitMask

    ddpfPixelFormat.dwBBitMask

这三个值是返回如何取得颜色RGB的分量。颜色值 and 上面其中一个值就可以取得其中一个分量。也许你会认为这是多此一举。象32bit: 00  RR  GG BB,这分的很清楚呀。但对于16bit来说,它就有565和555两种方法表示。虽然现在的显卡几乎100%是565,但是作为程序员不能心存侥幸,用返回值来处理是100%正确(对于图形格式555和565不在讨论范围,请到网上找资料) 。《轩辕剑5》在联想的某种机型上采用窗口模式时不能正确抠图,其中原由未深究,程序员心存侥幸是一定的了。

这个数据结构还有很多值,请自己去查资料、慢慢体会了。

回过头来讲Sour这个变量。取得了首址,我们就可计算得到任何一点的地址值。DX中用的最多的是TRECT,一般也是跟据TRECT来找对应的地址,然后读取它的值。

为了使各种颜色数能通用。这里要增加一个变量: 

RGBByteCount:= SourSrfcInfo.ddpfPixelFormat.dwRGBBitCount div 8;

这是因为颜色数为 8 bit 时,颜色值占一个 Byte,16 bit 占2个Byte,24 bit 占3个byte, 32bit占4个Byte。而指针加1只加一个Byte。

下面是锁定整个屏幕后,矩形srRect的首址计算方法。

var

  Sour,SrMem:pointer;

  Sour:=SourSrfcInfo.lpSurface;

  SrMem:= Pointer(Longint(Sour)+ srRect.Left *RGBByteCount+ SrRect.Top *SourSrfcInfo.lPitch );

第Y行的第一个象素的地址值:Sour := Pointer(Longint(SrMem)+(SourSrfcInfo.lPitch )*Y );

讲了一大堆,取出来的还是地址,颜色值还是没有取出来,那颜色值怎么取呢?可以参照《Delphi Graphics and Game Programming Exposed with DirectX 7.0》中256色的读法:

  TBytePtr = array[0..0] of Byte;

  PBytePtr = ^TBytePtr;

var

  BackMem: PBytePtr;

begin

  BackMem := PBytePtr(Sour);  //第Y行的第一个象素的值  

注,256色读取的不是颜色值,是索引值。要跟据索引值和颜色表找出对应RGB值。以下不再讨论256色。

同样对于16色 :

  TWordPtr = array[0..0] of word;

  PWordPtr = ^TWordPtr;

16色每个象素点占2个Byte,而word正好是2 Byte;

32色每个象素占4个Byte,用Dword:

  TDWordPtr = array[0..0] of Dword;

  PDWordPtr = ^TDWordPtr;

麻烦来了,24色每个象素占3 Byte,而没有变量对应它。先定义一个3byte的数据结构,然后再如上定义。我想应该可以,但没做过试验。现在很多显卡不支持24色,可能也是这个原因吧。

另一种方法,用汇编通杀。强烈建议使用这种方法。

   asm

     push esi

     mov esi,Sour

     mov eax,[esi]

     ……

   end;

这时,eax的值就是Sour指针对应的值。注意:这时读取的是一个Dword,然后再分吧,1个,2个,3个。用汇编能读多少就读多少,不要因为是16色,而写成这样 movzx edx,word ptr [esi],如果用MMX能用 movq mm0,[esi] 一次读入一个8byte,就不要用movd mm0,[esi] 读入4byte。边界例外,要注意别读出界哦~~~(更多MMX请看我的另一篇笔记,网上有更多相关资料可供你查阅)。原因很简单,我在回答“我爱Pascal”的一个问题回答过:mov eax,[esi] 这样的东东是耗时大户,能少读一次是一次,而汇编其他的代码耗时很少,读入后再细分,代码是长点,但耗时绝对少。

值读出来了,进行一系列操作之后,要怎么写回去?这个应该不是问题了。只接把值写回到地址就行了。 

   BackMem:=$0000FFFF; 

对于汇编

   asm

     ……

     mov [esi],eax

     ……

   end;

给出一个旋转图形特效代码,原理请看那本英文书或网上找资料。因为采用的反算法,每次只能读取计算一个点,因此无法运用上面说的能读几个点读几个点的美好想法。

var

  SinTable: array[0..359] of single;     //旋转

  CosTable: array[0..359] of single;

function ReadColor(Sour:pointer;ByteCount:integer):integer;  //读取一个象素点的颜色值

begin                                                        

  case ByteCount of

    2:asm                    //16bit

      mov eax,sour

      xor edx,edx           //edx清零

      mov dx,[eax]

      mov @result,edx

    end;

    3:asm                  //24bit,24就是麻烦

      mov eax,sour

      xor edx,edx

      movzx dx,byte ptr [eax+2]

      shl edx,16

      mov dx,word ptr [eax]

      mov @result,edx

    end;

    4:asm                 //32 bit

      mov eax,sour

      mov edx,[eax]

      mov @result,edx

    end;

  end;

end;

procedure writeColor(Dest:pointer;sour:integer;ByteCount:integer);//写象素点

begin

  case ByteCount of

    2:asm

      mov eax,Dest

      mov edx,sour

      mov [eax],dx

    end;

    3:asm

      mov eax,Dest

      mov edx,sour

      mov word ptr [eax],dx

      bswap edx

      mov byte ptr [eax+2],dh

    end;

    4:asm

      mov eax,Dest

      mov edx,sour

      mov [eax],edx

    end;

  end;

end;

     

function RotateDraw(DestSf: IDirectDrawSurface7;

                     DsRect:TRect;                //目标区域大小、位置

                     SourSf: IDirectDrawSurface7;

                     SrRect:TRect;                 //源区域大小、位置

                     ColorKey:integer;

                     UseColorKey:boolean;

                     Theta:integer ):HResult;      //角度 用于Sin函数

var

  DestSrfcInfo, SourSrfcInfo: TDDSurfaceDesc2;

  DestX, DestY, SrcX, SrcY: Integer;

  SinTheta, CosTheta: Single;

  CenterX, CenterY: Single;

  Dest, Sour, DsMem, SrMem:pointer;

  Width,Height:integer;

  aa:integer;

begin

  if Theta<0 then

    Theta:=360+(Theta mod 360);

  Theta:=Theta mod 360;

  SinTheta := SinTable[Theta];

  CosTheta := CosTable[Theta];

  try

    SourSrfcInfo.dwSize := SizeOf(TDDSurfaceDesc2);

    Result:=SourSf.Lock(nil, SourSrfcInfo, DDLOCK_SURFACEMEMORYPTR or

                          DDLOCK_WAIT, 0);

    DestSrfcInfo.dwSize := SizeOf(TDDSurfaceDesc2);

    Result:=DestSf.Lock(@DsRect, DestSrfcInfo, DDLOCK_SURFACEMEMORYPTR or

                          DDLOCK_WAIT, 0);

    Sour:= pointer(Longint(SourSrfcInfo.lpSurface)

                      + srRect.Left * RGBByteCount      //RGBByteCount 是公用变量,调用前要先计算好

                      + SrRect.Top * SourSrfcInfo.lPitch );

    Dest:= DestSrfcInfo.lpSurface;

    Width:=SrRect.Right-srRect.Left;

    Height:=SrRect.Bottom-SrRect.Top;

    CenterX := (Width / 2);      //中心点

    CenterY := (Height / 2);

    for DestY := 0 to Height-1 do begin

      for DestX := 0 to Width-1 do begin

        {通过目标坐标计算出对应的源坐标点,

        判断如果这点是在源点上,那么就画出来}

        SrcX := Trunc(CenterX + (DestX - CenterX)*CosTheta -

                      (DestY - CenterY)*SinTheta);

        SrcY := Trunc(CenterY + (DestX - CenterX)*SinTheta +

                      (DestY - CenterY)*CosTheta);

        {如果这点在源图形中}

        if (SrcX > 0) and (SrcX < Width) and

           (SrcY > 0) and (SrcY < Height) then begin

          {拷贝这点到目标点上}

          SrMem := pointer(Longint(Sour)+ SrcY * SourSrfcInfo.lPitch

                               + SrcX * RGBByteCount);

          aa:=ReadColor(SrMem,RGBByteCount);

          DsMem := pointer(Longint(Dest)+ DestY * DestSrfcInfo.lPitch

                               + DestX * RGBByteCount);

          if UseColorKey then begin     //是否抠图

            if aa<>ColorKey then

              writeColor(DsMem,aa,RGBByteCount);

          end else

             writeColor(DsMem,aa,RGBByteCount);

        end;

      end;

    end;

  finally

    DestSf.Unlock(nil);

    SourSf.Unlock(nil);

  end;

end;

initialization      //在程序一开始运行时先计算好旋转要用的数组

  for iAngle := 0 to 359 do  begin             

    SinTable[iAngle] := Sin(iAngle*(PI/180));

    CosTable[iAngle] := Cos(iAngle*(PI/180));

  end;

end.

调用:借用(三)中的框架代码,这里不再重复。注意恢复表面时,要重载图形。

var

  Theta:integer = 0;

  TickCount:Dword;

procedure TForm_main.DrawSurfaces;

var

  SrcRect:TRect;

  sRect,aRect:TRect;

  thisTickCount : DWORD;

begin

  thisTickCount := GetTickCount;

  if (thisTickCount - TickCount) > 50 then begin

    TickCount:=thisTickCount;

    dec(Theta,2);

  end;

  sRect:=Rect(0,0,110,110);   //源矩形大小,这里别照抄,要跟据你图形大小定

  SrcRect:=Rect(0,0,110,110);           

  offsetRect(SrcRect,260,30); //目标矩形大小,移到(260,30)位置

  RotateDraw(FlipSurFace,SrcRect ,TempSurFace,sRect,0,true,Theta);

end;

最后说说FPS,这是一个很重要的东西,编写游戏的水平就看这个指标,每秒画多少帧画面。

放一个TTimer控件在窗体上,Interval 设为 100。

var

   FrameRate:integer;

   FOldTime2:Dword;

   FPS:integer;

procedure TForm_main.Timer1Timer(Sender: TObject);

var

  t: DWORD;

  i:integer;

begin

  t := TimeGetTime;

  i := Max(t-FOldTime2, 1);

  if i>1000 then begin

    FPS := Round(FrameRate*1000/i);

    FrameRate:=0;

    FOldTime2 := t;

  end;

end;

在DrawSurfaces中用文字写出来FPS 值就行了。

-----------------------------------------------------

对于游戏来说,还有声音,输入设备,网络连接,力反馈等等。这些东西就不多讲了。请见谅。

声音处理跟图象处理差不多,建立过程也相似;键盘、鼠标的操作也不是难事。知道DX原理之后,就一通百通。力反馈没有研究,因为没有条件。至于网络,没写过即时战斗游戏也就用不上IPX连网了,也没研究,无权发言。以上所写仅给致力于游戏编程而苦于无法入门的朋友。

只是游戏开发远没有这么简单。首先美工关不是我们程序员能处理的,声音资源也不是我们能把握的。我们能处理的只是代码。就代码而言:1、至少要知道汇编,否则你无法优化你的程序。可以参看日本人写的DelphiX控件里面的汇编,你会受益非浅;写个简短的程序,然后调出CPU窗口,只接看汇编代码。2、能看懂C语言,必竟游戏是C的天下,源代码N多;3、还必须知道一些计算机图形原理,这是因为要进行图形特效处理,你不可能指望美工把各种可能的图形都画好供你调用,甚至不用抠图。FASTBMP控件是个很好的参考,它带有许多图形特效。如果你不想用DX写游戏,甚至可以用它来开发出不错的游戏。而代码竟然跟DX也差不多(初始化除外)。

转载于:https://www.cnblogs.com/keycode/archive/2010/10/17/1853708.html

你可能感兴趣的:(Delphi+DirectX游戏编程)