发表于 2009-1-5 19:48
| 
鍦―elphi涓娇鐢―irectX
鍙戝竷: 2008-6-26 20:26 | 浣滆: admin | 鏌ョ湅: 65娆
width="84%">鍦―elphi涓娇鐢―irectX
Delphi浣滀负涓绉嶆柟渚跨殑鍙鍖栫▼搴忚璁¤瑷锛屼竴
鐩撮潪甯稿彈澶у鍠滅埍銆備絾瀹冨湪鍥惧舰澶勭悊銆3D琛ㄧ幇绛夋柟闈
涓嶅緢璁╀汉婊℃剰銆傚鏋滆浣犺寮鍙戜竴涓猈indows95涓嬬殑 3D娓告垙锛屼綘浼氱敤浠涔堝伐鍏峰憿锛烡irectX!涓嶅皯浜轰細涓嶅姞
鎬濈储鍦扮瓟閬撱傜劧鑰屾帴瑙﹁繃DirectX鐨勬湅鍙嬩滑閮界煡閬撳畠
鍐呴儴鐨勭粨鏋勫鏉傦紝涓鑸潵璇寸粨鍚圴C寮鍙戞槸涓涓悊鎯 鐨勭粍鍚堛傝岃鍦―elphi涓埄鐢―irectX
SDK鐪熸槸闅句笂 鍔犻毦銆備絾鐜板湪涓鍒囬兘濂藉暒锛屾湁浜嗘湰鏂囦粙缁嶇殑DelphiX
缁勪欢锛屼綘缁堜簬鍙互鐢ㄤ綘鐔熸倝鐨凞elphi鏉ュ紑鍙戞紓浜殑鍥 褰㈢▼搴忎簡銆
DelphiX鏄敱鏃ユ湰浜篐iroyuki Hori寮鍙戠殑浣緿i rectX5.0鍦―elphi涓洿瀹规槗浣跨敤鐨勪竴濂楁帶浠讹紝浠庣綉涓
涓嬭浇鏃跺彨DelphiX.zip,837KB銆傝В寮鍚庡湪bin鐩綍涓 杩愯install_for?锛堟牴鎹綘鐨凞elphi鐗堟湰鍙凤紝鏀寔3.0鍜
4.0锛夛紝DelphiX浼氳嚜鍔ㄥ皢鎺т欢瀹夎鍒颁綘鐨凞elphi涓紝甯
鍔╂枃浠朵篃鑷姩铻嶅悎鍒癉elphi鐨勫府鍔╅噷锛岀湡鏄ソ鐢ㄦ瀬 浜嗭紒
DelphiX鍖呮嫭鐨勬帶浠舵湁濡備笅杩欎簺锛
TDXDraw 鏈閲嶈鐨勬帶浠讹紝鏄疍irectDraw鍜孌irect3D鐨勫熀纭锛
TDXDIB 涓涓唬琛―IB鍥惧儚鐨勬帶浠讹紱
TDXImageList 浠ｈ〃涓缁 TPicture锛
TDX3D Direct3D鎺т欢锛岃涓嶵DXDraw鍏卞悓浣跨敤锛
TDXSound DirectSound鎺т欢锛
TDXWave 涓涓唬琛ㄦ尝褰ave鐨勬帶浠讹紱
TDXWaveList 涓缁刉ave锛
TDXInput 杈撳叆鎺у埗鎺т欢锛堟搷绾甸敭鐩樺拰鎽囨潌瑕侀潬瀹冿級锛
TDXPlay 閫氳鎺т欢锛
TDXSpriteEngine 鈥滅簿鐏碘濆紩鎿庯紱
TDXTimer 楂橀熸椂闂存帶浠讹紱
TDXPaintbox TDXForm 涓撲负DelphiX浼樺寲杩囩殑Form銆
DirectDraw涓噸瑕佺殑瀵硅薄鏈夛細
TDirectDraw瀵硅薄
DirectDraw搴旂敤绋嬪簭鐨勬牳蹇冿紝瀹冩槸浣犲垱寤虹殑绗竴涓璞°傚垱寤轰簡DirectDraw瀵
璞″悗锛屽彲浠ュ湪瀹冪殑鍩虹涓婂垱寤哄叾瀹冩墍鏈夌浉鍏崇殑瀵硅薄銆 鍦―elphiX涓殑TDXdraw.ddraw灞炴у嵆鏄竴涓猅di
rectDraw瀵硅薄銆
TDirectDrawSurface瀵硅薄
琛ㄥ緛浜嗕竴鍧楀唴瀛樺尯
鍩燂紝鍦ㄨ鍖哄煙鐨勬暟鎹皢浣滀负鍥惧儚鏄剧ず鍦ㄥ睆骞曚笂鎴栫Щ鍔
鍒板叾瀹冭〃闈笂銆
TDirectDrawPalette瀵硅薄
琛ㄥ緛浜嗕竴涓敤浜庤〃闈 鐨16鑹叉垨256鑹茬殑绱㈠紩璋冭壊鏉匡紝瀹冨寘鍚簡涓绯诲垪鎻忚堪
鍚岃〃闈㈢浉鍏崇殑RGB棰滆壊绱㈠紩鍊笺
TDirectDrawClipper瀵硅薄
甯姪浣犵姝㈠悜琛ㄩ潰鐨 鏌愪竴浣嶇疆鎴栬秴鍑鸿〃闈㈢殑浣嶇疆鍧楀啓鏁版嵁銆
TSprite瀵硅薄
浠ｈ〃浜嗏滅簿鐏碘濓紝鍦ㄨ澶氳棰戞父鎴忛兘
浣跨敤浜嗙簿鐏点備粠鏈鍩烘湰鐨勬剰涔変笂鏉ヨ锛屼竴涓簿鐏靛氨鏄
鍦ㄥ睆骞曚笂绉诲姩鐨勫浘鍍忋傜簿鐏电敾鍦ㄤ竴涓〃闈笂锛岃鐩栧湪
宸叉湁鐨勮儗鏅笂锛屽悎鎴愬悗鐨勫浘鍍忚閫佸埌灞忓箷涓婃樉绀哄嚭 鏉ワ紝鍦―elphiX涓氳繃TspriteEngine瀹炵幇瀵筎sprite鐨
鎺у埗銆
TDirectDrawSurfaceCanvas瀵硅薄
鎻愪緵鏂逛究鐨 璁块棶鏈哄埗锛屼綘鍙互鍍忚闂竴鑸珻anvas瀵硅薄涓鏍疯闂 瀹冦俆DXDraw.Surface.Canvas鍗虫槸杩欐牱涓涓璞°
TdirectDrawDisplay瀵硅薄
鎺у埗鐫DirectDraw鐨 鏄剧ず妯″紡锛孴dxDraw.display鏄繖鏍蜂竴涓璞°
DelphiX鍩烘湰涓婁弗鏍兼寜鐓icrosoft DirectX SDK 寮鍙戝寘鏉ュ皢鍏跺姛鑳藉湪Delphi涓疄鐜板嚭鏉ャ傛墍浠ワ紝濡傛灉
浣犲DirectX SDK姣旇緝鐔熸倝鐨勮瘽锛屼綘浼氬彂鐜板ぇ澶氭暟绋 搴忎粠C绉绘鍒癉elphi鏄緢瀹规槗鐨勪簨銆侱elphiX涓病鏈
鎻愪緵甯姪鐨勫湴鏂癸紝浣犲彲浠ュ湪DirectX SDK涓幏寰楃瓟 妗堛
涓嬮潰閫氳繃涓涓畝鍗曠殑渚嬪瓙瀵瑰浣曞埄鐢―elphiX缂
绋嬩綔涓浠嬬粛锛屽彧娑夊強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
