简单封装 Delphi 的 DirectX类

 

var
  CreatorRenderer  : TCreatorRenderer;
  Form1: TForm1;

窗体代码:

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 创建
  CreatorRenderer := TCreatorRenderer.Create();
  CreatorRenderer.CreateDevice(self.Handle,self.Width,Self.Height ,true);

  // 开启定时器
  Timer1.Enabled := True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  CreatorRenderer.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  CreatorRenderer.BeginRender();
  CreatorRenderer.EndRender();
end;

 

// 下面是封装的渲染器类

// 渲染器类
// warrially
unit xCreatorRenderer;

interface
  uses Direct3D9, D3DX9, Windows;
type
  TCreatorRenderer = class(TObject)
    private
      // D3D基本参数
      m_d3dpp   : D3DPRESENT_PARAMETERS;

    private class var
      m_pDevice : IDirect3DDevice9;   //设备
      m_pSprite : ID3DXSprite;        //精灵

    public
      constructor Create;
      destructor Destroy; override;
    public
      // 创建设备 (容器句柄, 宽, 高, 是否窗口化)
      function CreateDevice(hWnd:HWND ; nWidth : Integer ; nHeight : Integer ; bWindowed : Boolean):Boolean;
      // 开始渲染
      procedure BeginRender();
      // 结束渲染
      procedure EndRender();
      // 开始精灵渲染
      procedure BeginRenderSprite();
      // 结束精灵渲染
      procedure EndRenderSprite();

      // 获取设备指针
      class function GetDevice():IDirect3DDevice9;
      // 获取精灵指针
      class function GetSprite():ID3DXSprite;
  end;
implementation

{ TCreatorRenderer }
// 开始渲染
procedure TCreatorRenderer.BeginRender;
begin
  m_pDevice.Clear(0, nil, D3DCLEAR_TARGET or D3DCLEAR_ZBUFFER, 0, 1.0, 0);
  m_pDevice.BeginScene();
end;

procedure TCreatorRenderer.BeginRenderSprite;
begin
  m_pSprite._Begin(D3DXSPRITE_ALPHABLEND);
end;

constructor TCreatorRenderer.Create;
begin

end;

function TCreatorRenderer.CreateDevice(hWnd: HWND; nWidth, nHeight: Integer;
  bWindowed: Boolean): Boolean;
var
  pD3d9   : IDirect3D9;
  myhResult : HResult ;
begin
  pD3d9 := Direct3DCreate9(D3D_SDK_VERSION);
  if (pD3d9 = nil) then
  begin
    OutputDebugString('Direct3D create failed.');
    Result := False;
    Exit;
  end;

  m_d3dpp.BackBufferWidth            := nWidth;
  m_d3dpp.BackBufferHeight           := nHeight;
  m_d3dpp.BackBufferFormat           := D3DFMT_A8R8G8B8;
  m_d3dpp.BackBufferCount            := 1;
  m_d3dpp.MultiSampleType            := D3DMULTISAMPLE_NONMASKABLE;
  m_d3dpp.MultiSampleQuality         := 0;
  m_d3dpp.SwapEffect                 := D3DSWAPEFFECT_DISCARD;
  m_d3dpp.hDeviceWindow              := hWnd;
  m_d3dpp.Windowed                   := bWindowed;
  m_d3dpp.EnableAutoDepthStencil     := true;
  m_d3dpp.AutoDepthStencilFormat     := D3DFMT_D24S8;
  m_d3dpp.Flags                      := 0;
  m_d3dpp.FullScreen_RefreshRateInHz := D3DPRESENT_RATE_DEFAULT;
  m_d3dpp.PresentationInterval       := D3DPRESENT_INTERVAL_IMMEDIATE;

  myhResult := pD3d9.CreateDevice( D3DADAPTER_DEFAULT,
                                   D3DDEVTYPE_HAL,
                                   hWnd,
                                   D3DCREATE_HARDWARE_VERTEXPROCESSING,
                                   @m_d3dpp,
                                   m_pDevice);

  if (FAILED(myhResult))  then
    begin
            OutputDebugString('D3D device create failed.');
            Result := false;
      Exit;
    end;

  myhResult := D3DXCreateSprite(m_pDevice, m_pSprite);
  if (FAILED(myhResult))  then
    begin
            OutputDebugString('D3D sprite create failed.');
            Result := false;
      Exit;
    end;

  OutputDebugString('Renderer create succeed.');
  Result := True;


end;

destructor TCreatorRenderer.Destroy;
begin

  inherited;
end;

procedure TCreatorRenderer.EndRender;
begin
    m_pDevice.EndScene();
  m_pDevice.Present(nil, nil, 0, nil);
end;

procedure TCreatorRenderer.EndRenderSprite;
begin
  m_pSprite._End();
end;

class function TCreatorRenderer.GetDevice: IDirect3DDevice9;
begin
  Result := m_pDevice;
end;

class function TCreatorRenderer.GetSprite: ID3DXSprite;
begin
  Result := m_pSprite;
end;


end.

http://blog.csdn.net/warrially/article/details/7938672