在Delphi中使用DirectX
点击次数：57 次 发布日期：2008-11-09 08:42:08 作者：源代码网
源代码网推荐 DelphiX是由日本人Hiroyuki Hori开发的使Di rectX5.0在Delphi中更容易使用的一套控件，从网上 下载时叫DelphiX.zip,837KB。解开后在bin目录下 运行install_for?（根据你的Delphi版本号，支持3.0和 4.0），DelphiX会自动将控件安装到你的Delphi中，帮 助文件也自动融合到Delphi的帮助里，真是好用极 了！ 源代码网推荐 DelphiX包括的控件有如下这些： 源代码网推荐 TDXDraw 最重要的控件，是DirectDraw和Direct3D的基础； 源代码网推荐 TDXDIB 一个代表DIB图像的控件； 源代码网推荐 TDXImageList 代表一组 TPicture； 源代码网推荐 TDX3D Direct3D控件，要与TDXDraw共同使用； 源代码网推荐 TDXSound DirectSound控件； 源代码网推荐 TDXWave 一个代表波形Wave的控件； 源代码网推荐 TDXWaveList 一组Wave； 源代码网推荐 TDXInput 输入控制控件（操纵键盘和摇杆要靠它）； 源代码网推荐 TDXPlay 通讯控件； 源代码网推荐 TDXSpriteEngine “精灵”引擎； 源代码网推荐 TDXTimer 高速时间控件； 源代码网推荐 TDXPaintbox TDXForm 专为DelphiX优化过的Form。 源代码网推荐 源代码网推荐 DirectDraw中重要的对象有： 源代码网推荐 源代码网推荐 TDirectDraw对象 源代码网推荐 DirectDraw应用程序的核心，它是你创建的第一个对象。创建了DirectDraw对 象后，可以在它的基础上创建其它所有相关的对象。 在DelphiX中的TDXdraw.ddraw属性即是一个Tdi rectDraw对象。 源代码网推荐 源代码网推荐 TDirectDrawSurface对象 源代码网推荐 表征了一块内存区 域，在该区域的数据将作为图像显示在屏幕上或移动 到其它表面上。 源代码网推荐 源代码网推荐 TDirectDrawPalette对象 源代码网推荐 表征了一个用于表面 的16色或256色的索引调色板，它包含了一系列描述 同表面相关的RGB颜色索引值。 源代码网推荐 源代码网推荐 TDirectDrawClipper对象 源代码网推荐 帮助你禁止向表面的 某一位置或超出表面的位置块写数据。 源代码网推荐 源代码网推荐 TSprite对象 源代码网推荐 代表了“精灵”，在许多视频游戏都 使用了精灵。从最基本的意义上来讲，一个精灵就是 在屏幕上移动的图像。精灵画在一个表面上，覆盖在 已有的背景上，合成后的图像被送到屏幕上显示出 来，在DelphiX中通过TspriteEngine实现对Tsprite的 控制。 源代码网推荐 源代码网推荐 TDirectDrawSurfaceCanvas对象 源代码网推荐 提供方便的 访问机制，你可以像访问一般Canvas对象一样访问 它。TDXDraw.Surface.Canvas即是这样一个对象。 源代码网推荐 源代码网推荐 TdirectDrawDisplay对象 源代码网推荐 控制着DirectDraw的 显示模式，TdxDraw.display是这样一个对象。 源代码网推荐 DelphiX基本上严格按照Microsoft DirectX SDK 开发包来将其功能在Delphi中实现出来。所以，如果 你对DirectX SDK比较熟悉的话，你会发现大多数程 序从C移植到Delphi是很容易的事。DelphiX中没有 提供帮助的地方，你可以在DirectX SDK中获得答 案。 源代码网推荐 源代码网推荐 下面通过一个简单的例子对如何利用DelphiX编 程作一介绍，只涉及Ddraw二维的一小部分。 源代码网推荐 unit Unit1; 源代码网推荐 interface 源代码网推荐 uses 源代码网推荐 Windows.Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 源代码网推荐 DXClass, DXDraws, DIB; 源代码网推荐 type 源代码网推荐 TForm1=class(TDXForm) 源代码网推荐 DXDraw1:TDXDraw; 源代码网推荐 DXTimer1:TDXTimer; 源代码网推荐 DXDIB1:TDXDIB; 源代码网推荐 procedure DXDrawlFinalize(Sender:TObject); 源代码网推荐 procedure DXDraw1Initialize(Sender:TObject); 源代码网推荐 procedure DXDraw1RestoreSurfase(Sender:TObject); 源代码网推荐 procedure DXTimer1Timer(Sendsr:TObject;LagCount:Integer); 源代码网推荐 procedure FormActivate(Sender:TObject); 源代码网推荐 private 源代码网推荐 {Private declarations} 源代码网推荐 public 源代码网推荐 {Public declarations} 源代码网推荐 private 源代码网推荐 Fsurface:TDirectDrawSurface; 源代码网推荐 end; 源代码网推荐 var 源代码网推荐 Form1:TForm1; 源代码网推荐 x,y:integer; 源代码网推荐 implementation 源代码网推荐 {$R *.DFM} 源代码网推荐 procedure TForm1.DXDrawlInitialize(Sender:TObject); 源代码网推荐 begin 源代码网推荐 FSurface:=TDirectDrawSurface.Create(DXDraw1.DDraw); 源代码网推荐 {创建抽象图像表面} 源代码网推荐 end; 源代码网推荐 procedure TForm1.DXDraw1Finalize(Sender:TObject); 源代码网推荐 begin 源代码网推荐 FSurface.Free; FSurface: = nil; 源代码网推荐 {释放表面} 源代码网推荐 end; 源代码网推荐 procedure TForm1.DXDraw1RestoreSurfare(Sender:TObject); 源代码网推荐 begin 源代码网推荐 FSurface.LoadfromGraphic(DXDIB1.DIB);{将位图送入抽象表面} 源代码网推荐 end; 源代码网推荐 procedure TForm1.DXTimer1Timer(Sendsr.TObject;LagCount integer); 源代码网推荐 begin 源代码网推荐 if not DXDraw1.CanDraw then Exit;{在绘制之前检验是否允许} 源代码网推荐 DXDraw1.Surfaca.Fill(0); 源代码网推荐 x: = x 1; 源代码网推荐 y: = y 1; 源代码网推荐 DXDraw1.Surface.Draw(X, Y, FSurface.ClientRect,FSur face, True); 源代码网推荐 DXDraw1.Flip; {将内存中的表面再将映射入实际显存} 源代码网推荐 end; 源代码网推荐 procedure TForm1.FormActivate(Sender:TObject); 源代码网推荐 begin 源代码网推荐 X: =0; 源代码网推荐 y: =0; 源代码网推荐 end; 源代码网推荐 end. 源代码网推荐 首先要在程序开头包含DXClass、DXDraws两个 Unit（TDXtimer、TDXForm在DXClass中定义，TDX Draw在DXDraws中定义）。程序用的Form不要从一 般的TForm派生，而应从TDXForm中派生。在Form 中放入TDXDraw控件和TDXTimer控件，将其inter val值设为0。对DXDraw1控件改变其属性，使其与 Form大小一致。再放人一个TDXDIB控件，在其属性 中的DIB一项调人一个位图，如Windows下的bub bles.bmp。定义一个DirectDraw表面Fsurface，这是一 个抽象内存表面，以后会将它映射到DXDraw对象的 Surface上。在DXDraw的Events一栏中编写OnIni tialize、OnFinalize、OnRestoreSurface三个过程，之后便 可以根据需要对表面进行操纵。 源代码网推荐 另外，要完成上面程序的功能，还有其他不少办 法。例如利用TDXImageList对象，可以用它的方法 Imagelist.items[N].draw来完成同样功能。 源代码网推荐 总之，DirectX博大精深，希望本文能为大家掀开 冰山的一角。DelphiX可以在pigprince的个人主页上 找到，网址是Http://www.netease.net/~pigprins 源代码网推荐 源代码网供稿. |
