Уроки по использованию Direct3D в Delphi

[Kostia]

Описание структуры TD3DLight9.
_Type - тип источника света
D3DLIGHT_POINT - точечный источник
D3DLIGHT_SPOT - прожекторный источник
D3DLIGHT_POINT - направленный источник света
Diffuse - диффузный (рассеиваемый) цвет
Specular - зеркальный цвет
Ambient - цвет окружающей среды
Position - позиция источника света
Direction - направление источника света
Range - дистанция, на который действует источник света
Falloff - уменьшение в соответствии между внутренним конусом и краем внешнего конуса
Attenuation0, Attenuation1, Attenuation2 - параметры затухания
Theta - угол в радианах, определяющий внутренний конус прожекторного источника света(от 0 до Phi)
Phi - угол в радианах, определяющий внешнюю границу внешнего конуса прожекторного источника света(от 0 до pi)

[Kostia]

Немного по подробнее о реализации 2D в Direct3D.

В Direct3D есть специальный интерфейс для вывода изображения на экран(ID3DXSprite), но он сильно урезает возможности программиста, лучше написать вывод текстуры на экран на низком уровне.
Я приведу небольшой код для загрузки и вывода текстуры на экран.

type
  sVertexRHW=record
    x, y, z, RHW:Single;
    u,v:Single;
end;

x,y,z: положение вершины в экранных координатах
rhv: это число изменяется от 0 до 1 и представляет собой расстояние от точки просмотра до вершины.
u,v: текстурные координаты(1,1 вся текстура)

procedure LoadTextureFromFile(ColorKey:TD3DColor; FileName: String; out Texture: IDirect3DTexture9);
begin
  D3DXCreateTextureFromFileEx(pD3DDevice, pChar(FileName), 0, 0, 0,
    0, D3DFMT_A8R8G8B8, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT,
    ColorKey, 0, nil, Texture);
end;

Загрузка текстуры из файла. Т.к большенство параметров взято по умолчанию, то напишем собственную процедуру.

procedure LoadTextureFromFile(
ColorKey:TD3DColor; // прозрачный цвет
FileName: String; //имя файла
out Texture: IDirect3DTexture9 //текстура
);

Не забудьте создать буфер вершин для вывода текстуры

//в глобальных переменных
var
  vBuffer: IDirect3DVertexBuffer9;
...
pD3DDevice.CreateVertexBuffer(sizeof(sVertexRHW) * 4,
        0, D3DFVF_XYZRHW or D3DFVF_TEX1,
        D3DPOOL_DEFAULT, vBuffer, nil);

Теперь непосредственно вывод текстуры на экран

Procedure DrawSprite(Texture:IDirect3DTexture9; Position: TRect;
                           Center: TPoint; RotateAngle: single);
var
  Quad : array [0..6] of sVertexRHW;
  pBuf:Pointer;
  x,y,r,xo,yo: Extended;
  s,c: Extended;
begin
  xo:=Center.X+Position.Left;
  yo:=Center.Y+Position.Top;

  r:=sqrt(sqr(Position.Left - xo) + sqr(Position.Top - yo));
  SinCos(RotateAngle + arctan2((Position.Top - yo), (Position.Left - xo)), s, c);
  x:=xo + r * c; y:=yo + r * s;
//x,y
  Quad[0].x:=x;
  Quad[0].y:=y;
  Quad[0].z:=0;
  Quad[0].u:=0;
  Quad[0].v:=0;

  r:=sqrt(sqr(Position.Right - xo) + sqr(Position.Top - yo));
  SinCos(RotateAngle + arctan2((Position.Top - yo), (Position.Right - xo)), s, c);
  x:=xo + r * c; y:=yo + r * s;
//w,y
  Quad[1].x:=x;
  Quad[1].y:=y;
  Quad[1].z:=0;
  Quad[1].u:=1;
  Quad[1].v:=0;

  r:=sqrt(sqr(Position.Left - xo) + sqr(Position.Bottom - yo));
  SinCos(RotateAngle + arctan2((Position.Bottom - yo), (Position.Left - xo)), s, c);
  x:=xo + r * c; y:=yo + r * s;
//x,h
  Quad[2].x:=x;
  Quad[2].y:=y;
  Quad[2].z:=0;
  Quad[2].u:=0;
  Quad[2].v:=1;

  r:=sqrt(sqr(Position.Right - xo) + sqr(Position.Bottom - yo));
  SinCos(RotateAngle + arctan2((Position.Bottom - yo), (Position.Right - xo)), s, c);
  x:=xo + r * c; y:=yo + r * s;
//w,h
  Quad[3].x:=x;
  Quad[3].y:=y;
  Quad[3].z:=0;
  Quad[3].u:=1;
  Quad[3].v:=1;

  Quad[0].RHW:=1;
  Quad[1].RHW:=1;
  Quad[2].RHW:=1;
  Quad[3].RHW:=1;
  Quad[4].RHW:=1;
  Quad[5].RHW:=1;
  Quad[6].RHW:=1;

  vBuffer.Lock(0, sizeof(sVertexRHW) * 4, pBuf, 0);
  move(Quad, pBuf^, sizeof(sVertexRHW) * 4);
  vBuffer.Unlock();

  pD3DDevice.SetStreamSource(0, vBuffer, 0, sizeof(sVertexRHW));
  pD3DDevice.SetFVF(D3DFVF_XYZRHW or D3DFVF_TEX1);
  pD3DDevice.SetTexture(0, Texture);
  pD3DDevice.SetRenderState(D3DRS_ALPHABLENDENABLE, 1);// включим альфу
  pD3DDevice.SetRenderState(D3DRS_SRCBLEND, D3DBLEND_SRCALPHA);
  pD3DDevice.SetRenderState(D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA);
  pD3DDevice.DrawPrimitive(D3DPT_TRIANGLESTRIP, 0, 2);//отобразим 2 треугольника
  pD3DDevice.SetRenderState(D3DRS_ALPHABLENDENABLE, 0);// отключим для оптимизации
end;

И да, незабудьте подключить библиотеки Direct3D и D3DX9.

[Kostia]

Подробное описание функции для загрузки текстуры из файла.

function D3DXCreateTextureFromFileEx(
  Device: IDirect3DDevice9;
  pSrcFile: PChar;
  Width: LongWord;
  Height: LongWord;
  MipLevels: LongWord;
  Usage: DWord;
  Format: TD3DFormat;
  Pool: TD3DPool;
  Filter: DWord;
  MipFilter: DWord;
  ColorKey: TD3DColor;
  pSrcInfo: PD3DXImageInfo;
  pPalette: PPaletteEntry;
  out ppTexture: IDirect3DTexture9): HResult; stdcall; external d3dx9texDLL name 'D3DXCreateTextureFromFileExA';

Device - устройство Direct3D;

pSrcFile - имя или полный путь к графическому файлу.(форматы: BMP,DDS,DIB,JPG,PNG и TGA);

Width и Height - ширина и высота текстуры. Размеры текстуры должны быть кратные степени двойки(8*16,1024*1024,1024*512) иначе ваша программа на ветеранах не запустится. Если указать нули, то функция сама решит каких размеров создать текстуру;

MipLevels - количество уровней текстур, это значение определяет кол-во последовательностей текстур;

Usage - параметры использования;

Format - формат пиксела;

Pool - память, в которую будет помещена текстура. Для того чтобы произвести блокировку поверхности и изменить его на прямую нужно установить флаг D3DPOOL_MANAGED;

Filter - фильтр изображения;

MipFilter - уровень фильтрации;

ColorKey - цвет пиксела, который будет прозрачным, если указать 0, то прозрачного цвета нет;

pSrcInfo - структура в которую будет записана информация о загруженом файле;

pPalette - указатель на палитру;

ppTexture - указатель на текстуру;

[Kostia]

Работа с текстурой напрямую.

Для начала научимся узнавать размеры текстуры.

var
  info: D3DSURFACE_DESC;
  x,y: integer;
begin
  texture.GetLevelDesc(0,info);
  for x:=0 to info.Width*info.Height do
...

Теперь давайте создадим текстуру и заполним ее полупрозрачным зеленым цветом.

var
  info: D3DSURFACE_DESC;
  text_rect: D3DLOCKED_RECT;
  dst: PDWordArray;
  Texture: IDirect3DTexture9;
begin
  pD3DDevice.CreateTexture(64, 64, 0, 0, D3DFMT_A8R8G8B8, D3DPOOL_MANAGED, Texture, nil);  
  Texture.LockRect(0,text_rect,nil,0);
  dst:=text_rect.pBits;
  texture.GetLevelDesc(0,info);
  for x:=0 to info.Width*info.Height do
    dst[x]:=D3DCOLOR_ARGB(150,0,255,0);
  Texture.UnlockRect(0);
...

Есть еще один способ задать альфу картинки. В редакторе в котором вы рисуете и сохранить изображение в формате поддерживающим альфу(bmp или tga например), тогда вам достаточно будет только загрузить картинку и вывести ее на экран.

[Kostia]

К сожалению времени полностью разобрать данный пример у меня небыло и вам придется разбирать пример самостоятельно, если возникнут трудности, то спрашивайте.
И еще, это единственный рабочий пример который я смог найти в интернете, до него я скачивал кучу пример переведенных на Delphi с DX SDK, но больше половины просто не запускалось или выдавали ошибки.
В архиве Common находятся необходимые библиотеки для компиляции проекта.
В архиве Skin находится пример со всеми необходимыми ресурсами+exe'шник.

[Kostia]

D3D10 and Delphi and Windows XP = true

Наверняка это уже не тайна но всеже выложу все в одном комплекте.
Необходимые dll(игры под dx 10 пойдут на XP) и либы с туториалами для delphi.

В основном там одни сплошные интерфейсы для эффектов(шейдеров) и небольшие примеры реализации шейдеров 4-ой версии и как такового DX10 там нет.

[Манжосов Денис :)]

Огромное спасибо костя, я сегодня скачал примеры. Буду разбирать и смотреть. Если что я тогда вопросы буду задавать.

[IvaniuS]

хорошийе примеры были наверное но сайт уже удалили с укоза где теперь взять уроки

[Kostia]

http://clootie.ru/delphi/download_dx92.html

[astr_al]

Большая просьба приаттачить модули Direct3D.pas, D3DX9.pas.

Где ещё можно найти информацию по DirectX или OpenGL ? У меня стоит задача нарисовать многогранную пирамидку и перемещать её (отражение,масштабирование и т.п.).Может кто знает,как выполнить эту задачу с использованием других средств(в среде Delphi),учитывая,что в графике я 0

Заранее спасибо