在Delphi中使用DirectX (2000年12月19日) 

本站更新  分類(lèi):   作者:go.163.com/~xuguohua  推薦:   閱讀次數(shù):418  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
在Delphi中使用DirectX 
Delphi作為一種方便的可視化程序設(shè)計(jì)語(yǔ)言，一 直非常受大家喜愛(ài)。但它在圖形處理、3D表現(xiàn)等方面 不很讓人滿(mǎn)意。如果說(shuō)你要開(kāi)發(fā)一個(gè)Windows95下的3D游戲，你會(huì)用什么工具呢？DirectX!不少人會(huì)不加 思索地答道。然而接觸過(guò)DirectX的朋友們都知道它 內(nèi)部的結(jié)構(gòu)復(fù)雜，一般來(lái)說(shuō)結(jié)合VC開(kāi)發(fā)是一個(gè)理想 的組合。而要在Delphi中利用DirectX SDK真是難上 加難。但現(xiàn)在一切都好啦，有了本文介紹的DelphiX 組件，你終于可以用你熟悉的Delphi來(lái)開(kāi)發(fā)漂亮的圖 形程序了。 
DelphiX是由日本人Hiroyuki Hori開(kāi)發(fā)的使DirectX5.0在Delphi中更容易使用的一套控件，從網(wǎng)上 下載時(shí)叫DelphiX.zip,837KB。解開(kāi)后在bin目錄下 運(yùn)行install_for?（根據(jù)你的Delphi版本號(hào)，支持3.0和 4.0），DelphiX會(huì)自動(dòng)將控件安裝到你的Delphi中，幫 助文件也自動(dòng)融合到Delphi的幫助里，真是好用極 了！ 
DelphiX包括的控件有如下這些： 
TDXDraw 最重要的控件，是DirectDraw和Direct3D的基礎(chǔ)； 
TDXDIB 一個(gè)代表DIB圖像的控件； 
TDXImageList 代表一組 Tpicture； 
TDX3D Direct3D控件，要與TDXDraw共同使用；
TDXSound DirectSound控件； 
TDXWave 一個(gè)代表波形Wave的控件； 
TDXWaveList 一組Wave；
TDXInput 輸入控制控件（操縱鍵盤(pán)和搖桿要靠它）； 
TDXPlay 通訊控件； 
TDXSpriteEngine “精靈”引擎； 
TDXTimer 高速時(shí)間控件； 
TDXPaintbox TDXForm 專(zhuān)為DelphiX優(yōu)化過(guò)的Form。 
DirectDraw中重要的對(duì)象有： 

TDirectDraw對(duì)象 
DirectDraw應(yīng)用程序的核心，它是你創(chuàng)建的第一個(gè)對(duì)象。創(chuàng)建了DirectDraw對(duì) 象后，可以在它的基礎(chǔ)上創(chuàng)建其它所有相關(guān)的對(duì)象。 在DelphiX中的TDXdraw.ddraw屬性即是一個(gè)Tdi rectDraw對(duì)象。 

TDirectDrawSurface對(duì)象 
表征了一塊內(nèi)存區(qū) 域，在該區(qū)域的數(shù)據(jù)將作為圖像顯示在屏幕上或移動(dòng) 到其它表面上。 

TDirectDrawPalette對(duì)象 
表征了一個(gè)用于表面 的16色或256色的索引調(diào)色板，它包含了一系列描述 同表面相關(guān)的RGB顏色索引值。 

TDirectDrawClipper對(duì)象 
幫助你禁止向表面的 某一位置或超出表面的位置塊寫(xiě)數(shù)據(jù)。 

Tsprite對(duì)象 
代表了“精靈”，在許多視頻游戲都 使用了精靈。從最基本的意義上來(lái)講，一個(gè)精靈就是 在屏幕上移動(dòng)的圖像。精靈畫(huà)在一個(gè)表面上，覆蓋在 已有的背景上，合成后的圖像被送到屏幕上顯示出 來(lái)，在DelphiX中通過(guò)TspriteEngine實(shí)現(xiàn)對(duì)Tsprite的 控制。 

TDirectDrawSurfaceCanvas對(duì)象 
提供方便的 訪問(wèn)機(jī)制，你可以像訪問(wèn)一般Canvas對(duì)象一樣訪問(wèn) 它。TDXDraw.Surface.Canvas即是這樣一個(gè)對(duì)象。 

TdirectDrawDisplay對(duì)象 
控制著DirectDraw的 顯示模式，TdxDraw.display是這樣一個(gè)對(duì)象。 
DelphiX基本上嚴(yán)格按照Microsoft DirectX SDK 開(kāi)發(fā)包來(lái)將其功能在Delphi中實(shí)現(xiàn)出來(lái)。所以，如果 你對(duì)DirectX SDK比較熟悉的話(huà)，你會(huì)發(fā)現(xiàn)大多數(shù)程 序從C移植到Delphi是很容易的事。DelphiX中沒(méi)有 提供幫助的地方，你可以在DirectX SDK中獲得答 案。 

下面通過(guò)一個(gè)簡(jiǎn)單的例子對(duì)如何利用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); 
{創(chuàng)建抽象圖像表面} 
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;{在繪制之前檢驗(yàn)是否允許} 
DXDraw1.Surfaca.Fill(0); 
x: = x + 1; 
y: = y + 1; 
DXDraw1.Surface.Draw(X, Y, Fsurface.ClientRect,Fsur face, True); 
DXDraw1.Flip; {將內(nèi)存中的表面再將映射入實(shí)際顯存} 
end; 
procedure TForm1.FormActivate(Sender:Tobject); 
begin 
X: =0; 
y: =0; 
end; 
end. 
首先要在程序開(kāi)頭包含DXClass、DXDraws兩個(gè) Unit（TDXtimer、TDXForm在DXClass中定義，TDX Draw在DXDraws中定義）。程序用的Form不要從一 般的Tform派生，而應(yīng)從TDXForm中派生。在Form 中放入TDXDraw控件和TDXTimer控件，將其inter val值設(shè)為0。對(duì)DXDraw1控件改變其屬性，使其與 Form大小一致。再放人一個(gè)TDXDIB控件，在其屬性 中的DIB一項(xiàng)調(diào)人一個(gè)位圖，如Windows下的bub bles.bmp。定義一個(gè)DirectDraw表面Fsurface，這是一 個(gè)抽象內(nèi)存表面，以后會(huì)將它映射到DXDraw對(duì)象的 Surface上。在DXDraw的Events一欄中編寫(xiě)OnIni tialize、OnFinalize、OnRestoreSurface三個(gè)過(guò)程，之后便 可以根據(jù)需要對(duì)表面進(jìn)行操縱。 
另外，要完成上面程序的功能，還有其他不少辦 法。例如利用TDXImageList對(duì)象，可以用它的方法 Imagelist.items[N].draw來(lái)完成同樣功能。 

 
 


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