Delphi,在DelphiXE下使用DirectX的初步摸索

ゝ一纸荒年。 2022-07-17 00:57 211阅读 0赞

http://blog.sina.com.cn/s/blog\_722bc92e0101ch7q.html

昨天刚安装了 DelphiXE ， Delphi2010以上的版本自带了 DirectX 的SDK。

不多说了，先上代码

**unit** Unit1;  
  
**interface  
  
uses**  
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, Direct3D8, StdCtrls;  
  
**type**  
  TForm1 = **class**(TForm)  
    Memo1: TMemo;  
    **procedure** FormCreate(Sender: TObject);  
    **procedure** FormDestroy(Sender: TObject);  
  **private**  
    \{ Private declarations \}  
  **public**  
    \{ Public declarations \}  
  **end**;  
  
**var**  
  Device : IDirect3DDevice8;  
  pd3d   : IDirect3D8;  
  Form1: TForm1;  
  
**implementation**  
  
\{$R \*.dfm\}  
  
**procedure** TForm1.FormCreate(Sender: TObject);  
**var**  
  parms : D3DPRESENT\_PARAMETERS ;  
  hr : HRESULT ;  
**begin**  
  memo1.Clear;  
  pd3d := Direct3DCreate8 ( D3D\_SDK\_VERSION ) ;  
  
  parms.BackBufferWidth := 0 ;  
  parms.BackBufferHeight := 0 ;  
  parms.BackBufferFormat := D3DFMT\_A8R8G8B8 ;  
  parms.BackBufferCount := 1 ;  
  parms.MultiSampleType := D3DMULTISAMPLE\_NONE ;  
  parms.SwapEffect := D3DSWAPEFFECT\_COPY ;  
  parms.Windowed := TRUE ;  
  parms.hDeviceWindow := Self.Handle ;  
  parms.EnableAutoDepthStencil := FALSE ;  
  parms.AutoDepthStencilFormat := D3DFMT\_UNKNOWN ;  
  parms.Flags := 0 ;  
  parms.FullScreen\_RefreshRateInHz := 0 ;  
  parms.FullScreen\_PresentationInterval := D3DPRESENT\_INTERVAL\_DEFAULT ;  
  
  hr := pd3d.CreateDevice( D3DADAPTER\_DEFAULT , D3DDEVTYPE\_REF , Self.Handle , D3DCREATE\_SOFTWARE\_VERTEXPROCESSING , parms , Device ) ;  
  **if** ( FAILED ( hr ) )  **then**  
  **begin**  
    Memo1.Lines.Add('不能创建 HAL 设备!') ;  
    hr := pd3d.CreateDevice( D3DADAPTER\_DEFAULT , D3DDEVTYPE\_REF , Self.Handle , D3DCREATE\_SOFTWARE\_VERTEXPROCESSING , parms , Device ) ;  
    **if** ( FAILED ( hr ) ) **then**  
    **begin**  
      Memo1.Lines.Add('不能创建 REF 设备!') ;  
      Self.Close ;  
    **end**  
    **else**  
    **begin**  
      Memo1.Lines.Add('成功创建 REF 设备') ;  
    **end**;  
  **end**  
  **else**  
  **begin**  
    Memo1.Lines.Add ('成功创建 HAL 设备') ;  
  **end**;  
**end**;  
  
  
  
**procedure** TForm1.FormDestroy(Sender: TObject);  
**begin**  
  **if** Device <> **nil** **then**      //用完要记得放掉  
    Device := **nil**;  
  **if** pd3d <> **nil** **then**  
    pd3d := **nil**;  
**end**;  
  
**end**.  
//窗体文件  
**object** Form1: TForm1  
  Left = 0  
  Top = 0  
  Caption = 'Form1'  
  ClientHeight = 282  
  ClientWidth = 418  
  Color = clBtnFace  
  Font.Charset = DEFAULT\_CHARSET  
  Font.Color = clWindowText  
  Font.Height = \-11  
  Font.Name = 'Tahoma'  
  Font.Style = \[\]  
  OldCreateOrder = False  
  OnCreate = FormCreate  
  OnDestroy = FormDestroy  
  PixelsPerInch = 96  
  TextHeight = 13  
  **object** Memo1: TMemo  
    Left = 16  
    Top = 24  
    Width = 377  
    Height = 250  
    Lines.Strings = (  
     '')  
    TabOrder = 0  
  **end  
end**