Из текстуры в Bitmap и обратно, DirectX 9 (2 стр)

unit INITDX;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,  Math,  Direct3D9,  D3DX9,  CAMERADX;

type
  INITDX9 = class
    constructor Create(f:TForm; R, G, B: cardinal); //рабочая форма и цвет заливки заднего буфера
  private
    { Private declarations }
    Form: TForm;        //форма, на которой используем dx

    //цвет очистки
    ColorClearR,ColorClearG,ColorClearB:Cardinal;

    RenderTexture: IDirect3DTexture9;
    RenderSurface: IDirect3DSurface9;
    BackBuffer:    IDirect3DSurface9;
    TSurf:         IDirect3DSurface9;
    DrawOnTextureFLAG:boolean;

    procedure SaveTextureToBITMAP;
  public
    MainDirect:IDirect3D9;//главный объект с интерфейсом IDirect3D9
    DeviceDX:IDirect3DDevice9;//объект устройства IDirect3DDevice9

    Camera:TCAMERA;

    ScreenX,ScreenY:integer;//разрешение экрана
    procedure Draw;  //вывод заднего буфера
    procedure DrawOnTexture(FLAG:BOOLEAN);//осуществлять ли вывод в текстуру
    procedure Clear; //очистка (заливка) заднего буфера, очистка z-буфера
  end;



implementation



procedure INITDX9.Clear;
begin
  //очистка, как буфера кадра, так и буфера глубины
  DeviceDX.Clear(0, NIL, D3DCLEAR_TARGET or D3DCLEAR_ZBUFFER, //or D3DCLEAR_STENCIL,
  D3DCOLOR_XRGB(ColorClearR, ColorClearG, ColorClearB), 1, 0);
end;

constructor INITDX9.Create(f: TForm; R, G, B: cardinal);
var
  DisplayInfo:TD3DDisplayMode;
  Parameters:TD3DPresentParameters;
  d3dViewport1: TD3DViewport9;
begin
  Form:=f;
  ScreenX:=form.ClientWidth;
  ScreenY:=form.ClientHeight;

  DrawOnTextureFLAG:=false;

  //создаем обект с интерфейсом IDirect3D9
  MainDirect:=Direct3DCreate9(D3D_SDK_VERSION);
  //получаем установки текущего режима адаптера
  MainDirect.GetAdapterDisplayMode(D3DADAPTER_DEFAULT,DisplayInfo);
  //задаем пареметры усройства
  ZeroMemory(@Parameters,SizeOf(Parameters));
  //использовать оконный режим да\нет
  Parameters.Windowed:=true;
  //режим переключения между буферами
  Parameters.SwapEffect:=D3DSWAPEFFECT_DISCARD;
  //формат буфера не определен
  Parameters.BackBufferFormat:=DisplayInfo.Format;
  
  Parameters.EnableAutoDepthStencil := TRUE;
  //   формат буфера глубины
  Parameters.AutoDepthStencilFormat := D3DFMT_D16;
  //создаем объект устройства
  MainDirect.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, Form.Handle,
    D3DCREATE_SOFTWARE_VERTEXPROCESSING, @Parameters, DeviceDX);


  // Включаем поддержку Z-буфера устройством
  DeviceDX.SetRenderState(D3DRS_ZENABLE, 1);   //D3DZB_TRUE
  // Отключаем освещение сцены
  DeviceDX.SetRenderState(D3DRS_LIGHTING, 0);

    //получаем параметры окна вывода
  //DeviceDX.GetViewport(d3dViewport1);

  ColorClearR:=R;
  ColorClearG:=G;
  ColorClearB:=B;
///////////////////////////////////////////////////////////////////////////////////////////////
  D3DXCreateTexture(DeviceDX, ScreenX, ScreenY, 0, D3DUSAGE_RENDERTARGET, D3DFMT_A8R8G8B8, D3DPOOL_DEFAULT, RenderTexture);
  RenderTexture.GetSurfaceLevel(0,RenderSurface);
  DeviceDX.CreateOffscreenPlainSurface(800, 600, D3DFMT_A8R8G8B8, D3DPOOL_SYSTEMMEM, TSurf, nil);

  Devicedx.GetRenderTarget(0, BackBuffer);
///////////////////////////////////////////////////////////////////////////////////////////////
  Clear; //очистка устройства

  Camera:=TCAMERA.Create(DeviceDX,Form);
end;

procedure INITDX9.Draw;//непосредственный вывод, либо в файл, либо задний буфер становится видимым
begin
  if DrawOnTextureFLAG then
  begin
    D3DXSaveTextureToFile('scene.png', D3DXIFF_PNG, RenderTexture, nil);
    SaveTextureToBITMAP;
  end
  else
  begin
    DeviceDX.Present(NIL,NIL,0,NIL);
  end;
end;

procedure INITDX9.DrawOnTexture(FLAG: BOOLEAN);
begin
  DrawOnTextureFLAG:=FLAG;      //если да, то рендерить будем в текстуру
  if FLAG then
  begin
    DeviceDX.SetRenderTarget(0, RenderSurface);//рендерить будем в сурфейс
  end
  else
  begin
    DeviceDX.SetRenderTarget(0, BackBuffer);//рендерить будем в задний буфер
  end;
end;

procedure INITDX9.SaveTextureToBITMAP;
var
bmp: hbitmap;
desc: D3DSURFACE_DESC;
lr: D3DLOCKED_RECT;
BmpVCL: TBitmap;
begin
  DeviceDX.GetRenderTargetData(RenderSurface,TSurf);

  TSurf.GetDesc(desc);
  TSurf.LockRect(lr,0,0);
  form.Caption:=inttostr(lr.Pitch);

  //BmpVCL := TBitmap.Create();
  //BmpVCL.Handle := bmp;
  //BmpVCL.SaveToFile('aaa666.bmp');
end;

end.

procedure INITDX9.SaveTextureToBITMAP;
var
bmp: hbitmap;
desc: D3DSURFACE_DESC;
lr: D3DLOCKED_RECT;
BmpVCL: TBitmap;
TSurf: IDirect3DSurface9;
begin
  DeviceDX.CreateOffscreenPlainSurface(800, 600, D3DFMT_A8R8G8B8, D3DPOOL_SYSTEMMEM, TSurf, nil);
  DeviceDX.GetRenderTargetData(RenderSurface,TSurf);
  TSurf.GetDesc(desc);
  TSurf.LockRect(lr,0,0);
  form.Caption:=inttostr(lr.Pitch);

  bmp := CreateCompatibleBitmap(GetDC(0), desc.Width, desc.Height);
  SetBitmapBits(bmp,lr.Pitch*desc.Height,lr.pBits);
  TSurf.UnlockRect;

  BmpVCL:= TBitmap.Create();
  BmpVCL.Handle:=bmp;
  BmpVCL.SaveToFile('aaa666.bmp');
end;

  DeviceDX.CreateOffscreenPlainSurface(800, 600, D3DFMT_A8R8G8B8, D3DPOOL_SYSTEMMEM, TSurf, nil);
  DeviceDX.GetRenderTargetData(RenderSurface,TSurf);