Как обычно, начну с оговорок.
Первое – для меня большая проблема перевести некоторые термины. Поэтому я думаю может и не стоит их переводить. :-) Вот список терминов, которые вызывают у меня трудности с переводом:

• blitting - blit сокращение от "bit block transfer" пересылка блоков данных из одной области видеопамяти в другую.
• flip – переключение между буферами видеопамяти
• Surface – "поверхность" – область видеопамяти

Третье – неплохо если Вы имеете некоторое общее представление о работе видеоадаптера (ну очень общее – тонкости не нужны) и еще более общее о COM-технологии (всего-то нужно знать что такое COM- Interface, впрочем и это не обязательно).

Прелесть однако заключается в том, что с DirectDraw доступ к видеопамяти становится не зависимым от типа используемой видеоплаты (ну или почти не зависимым). DirectDraw обращается к апаратуре посредством hardware abstraction layer (HAL) – (уровня абстагирования от аппаратуры). Кроме того с помощью hardware emulation layer (HEL) (уровня эмуляции аппаратуры) те возможности, которые не реализованы в данной видеокарте эмулируются программно (к сожалению тут есть пара исключений). Благодаря такому подходу жизнь программиста становится легче и веселее – если, например, видеокарта поддерживает hardware blitting – DirectDraw использует эту возможность через HAL – если нет – эмулирует через HEL (естественно эмуляция всегда медленнее). На рисунке из SDK показаны отношения между DirectDraw, GDI, HAL и HEL.

Как видно из рисунка DirectDraw находится вне GUI. DirectDraw может предоставлять области памяти, с которыми он работает в виде контекста устройства (device context, привычный для Windows-программиста), что позволяет использовать функции GDI для работы с ним (например, выводить текст с помощью функции TextOut)

Пример:

выясним все поддерживаемые видеорежимы {используем DirectX headers от JEDI}

function MyEnumFunction(const lpDDSurfaceDesc: TDDSurfaceDesc; lpContext:
 Pointer): HResult; stdcall
var
 SMode: string;
begin
 SMode := IntToStr(lpDDSurfaceDesc.dwWidth) + ' X ';
 SMode := SMode + IntToStr(lpDDSurfaceDesc.dwHeight) + ' X ';
 SMode := SMode + IntToStr(lpDDSurfaceDesc.ddpfPixelFormat.dwRGBBitCount);
 Form1.ListBox1.Items.Append(SMode);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 DD: IDirectDraw;
 hr: HRESULT;
begin
 hr := DirectDrawCreate(nil, DD, nil);
 if (hr = DD_OK) then
 begin
 ListBox1.Clear;
 DD.EnumDisplayModes(0, nil, nil, MyEnumFunction);
 end;
end;

{то же используя компонент DelphiX}

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 SMode: string;
begin
 ListBox1.Clear;
 for i := 0 to DXDraw1.Display.Count - 1 do
 begin
 SMode := IntToStr(DXDraw1.Display.Modes[i].Width) + ' X ';
 SMode := SMode + IntToStr(DXDraw1.Display.Modes[i].Height) + ' X ';
 SMode := SMode + IntToStr(DXDraw1.Display.Modes[i].BitCount);
 ListBox1.Items.Append(SMode);
 end;
end;

Чувствуете почему я так люблю Hiroyuki Hori с его компонентом DelphiX? :-) Действительно проще – но, увы, документация у DelphiX очень скудная (и по большей части на японском). Вообще говоря, наверное полезно изучить “классический” способ работы с DirectDraw от JEDI – потом легче пользоваться и DelphiX.

Установить видеорежим можно методом IDirectDraw4::SetDisplayMode.

< b>

Установим видеорежим 640x480x8 {используем DirectX headers от JEDI}

procedure TForm1.Button1Click(Sender: TObject);
var
 DD: IDirectDraw;
 DD4: IDirectDraw4;
 hr: HRESULT;
begin
 hr := DirectDrawCreate(nil, DD, nil);
 if (hr = DD_OK) then
 begin
 DD.QueryInterface(IID_IDirectDraw4, DD4);
 DD4.SetCooperativeLevel(Self.Handle, DDSCL_EXCLUSIVE or DDSCL_FULLSCREEN);
 DD4.SetDisplayMode(640, 480, 8, 0, 0);
 //DD4.RestoreDisplayMode;
 end;
end;

{то же используя компонент DelphiX}

procedure TForm1.Button1Click(Sender: TObject);
begin
 DXDraw1.Display.Width := 640;
 DXDraw1.Display.Height := 480;
 DXDraw1.Display.BitCount := 8;
 DXDraw1.Options := DXDraw1.Options + [doFullScreen];
 DXDraw1.Initialize;
end;

Восстановить тот видеорежим, что был установлен до вызова SetDisplayMode можно функцией IDirectDraw4::RestoreDisplayMode. Впрочем, для программ использующих полноэкранный режим это не так уж важно – прежний режим будет восстановлен автоматически.

Кстати пример с JEDI-заголовками хорош тем, что демонстрирует создание объекта IDirectDraw получение ссылки на интерфейс IDirectDraw4 вызовом метода QueryInterface из IDirectDraw (IDirectDraw без номера – базовый (и самый старый) интерфейс DirectDraw; IDirectDraw4 – интерфейс из DirectX 6). Вообще объект IDirectDraw – это самая, что ни на есть, сердцевина DirectDraw – он представляет собой некую абстракцию над видеоадаптером – с помощью его методов создаются все остальные объекты DirectDraw (Surface'ы, палитры и т.д.). В принципе можно создавать больше одного объекта IDirectDraw – если у Вас больше одного видеоадаптера и несколько мониторов – в таком случае Вы ровно во столько раз круче меня, на сколько число Ваших видеоадаптеров больше 1-го :-) (для знатоков COM-технологии – для этого при создании объекта DirectDraw нужно передать GUID другого дисплея). Если же монитор у Вас один Вы можете создавать несколько объектов DirectDraw – все они будут управлять одним и тем же видеоадаптером – но мы этот случай рассматривать не будем.

В случае же если Вы используете Hori'вский компонент DelphiX – мучения с инициализацией и деинициализацией сводятся к нулю – достаточно просто разместить на форме компонент DXDraw – он сам позаботится о мелочах жизни, вроде create и release. :-)

Итак, переключаться между видеорежимами мы научились.

Поговорим теперь о Surface'ах. (моя попытка найти хороший русский эквивалент этому слову, не увенчалась успехом). Surface (объект DirectDrawSurface) – в буквальном переводе поверхность, представляет собой линейный участок в видеопамяти. (впрочем можно создавать Surface'ы и в системной памяти – но мы на этом не станем задерживаться) По умолчанию Surface создается так, чтобы получить максимальное быстродействие – в видеопамяти, если ее не хватает – в нелокальной видеопамяти (для плат AGP) а если и ее не хватает то в системной памяти (этот случай самый медленный). Объект DirectDrawSurface кроме указателя на область видеопамяти содержит несколько очень полезных методов (и зверски скоростных) для быстрого переноса квадратика видеоизображения из одного участка Surface'а в другой (blitting), для быстрой смены одного Surface' а на экране другим – fliping, для работы с палитрами и спрайтами и др.

Ну как удалось мне вас заинтересовать? Ну тогда давайте разберемся – как эти самые замечательные Surface'ы создавать. Перво-наперво скажем что у каждого Surface'а должен быть размер - ширина и высота. Кроме того Surface'ы устроены так, что между началом одной строчки и другой расстояние не всегда равное ширине. Скажем мы создали Surface 640X480X8 – казалось бы между первой строчкой и второй ровно 640 байт – ан нет. Может 640 байт а может и больше (это завист от того парня, который писал драйвер Вашего видеоадаптера). Расстояние между строчками в байтах называется Pitch – переводится как шаг. Почему этот самый Pitch не всегда равен ширине видно из рисунка:

Видите – справа от нашего Front-bufera может быть какой-то кэш, если Вы вздумаете писать напрямую в видеопамять – писать туда (в кэш) строго не рекомендуется (за последствия никто не ручается). Кроме того Pitch, в отличие от ширины измеряется в байтах а не в пикселах.

Вот пример создания Flip-цепочки из двух Surface'ов, обьектов IDirectDrawSurface4.

(Ссылки на два созданных Surface'а сохраняются в переменных FPrimarySurface и FbackSurface)
(этот пример взят из моей демо-программульки, которую Вы может скачать здесь 169K)
{используются JEDI – заголовки DirectX}

uses ... DDraw;
var
 hr: HRESULT;
 SurfaceDesc: TDDSurfaceDesc2;
 DDSCaps: TDDSCAPS2;
 DD: IDirectDraw;
begin
 /// ...начнем, помолясь
 hr := DirectDrawCreate(nil, DD, nil); ///создали DirectDraw
 if (hr = DD_OK) then
 begin
 // Получим интерфейс IDirectDraw4
 DD.QueryInterface(IID_IDirectDraw4, FDirectDraw);
 // интерфейс DirecDraw1 нам больше не нужен
 DD := nil;
 // Установим эксклюзивный уровень кооперации и полноэкранный режим
 hr := FDirectDraw.SetCooperativeLevel(Handle, DDSCL_EXCLUSIVE or
 DDSCL_FULLSCREEN);
 if (hr = DD_OK) then
 begin
 hr := FDirectDraw.SetDisplayMode(640, 480, 8, 0, 0);
 ///переключаем видеорежим на 640X480X8
 if (hr = DD_OK) then
 begin
 // Создаем главный surface с одним back buffer'ом
 FillChar(SurfaceDesc, SizeOf(SurfaceDesc), 0);
 SurfaceDesc.dwSize := SizeOf(SurfaceDesc);
 ///говорим что нам нужны back buffer'ы
 SurfaceDesc.dwFlags := DDSD_CAPS or DDSD_BACKBUFFERCOUNT;
 ////говорим что создаем первый Surface
 SurfaceDesc.ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE
 or DDSCAPS_FLIP //// во Flip-цепочке
 or DDSCAPS_COMPLEX; //// а вообще будут и дополнительные Surface'ы
 //// число этих самых дополнительных - 1
 SurfaceDesc.dwBackBufferCount := 1;
 ///все готово, создаем Surface'ы и запоминаем главный в FPrimarySurface
 hr := FDirectDraw.CreateSurface(SurfaceDesc, FPrimarySurface, nil);
 if (hr = DD_OK) then
 begin
 // А теперь получим указатель на back buffer (создали-то два Surface'a сразу)
 ddscaps.dwCaps := DDSCAPS_BACKBUFFER;
 ///получили и запомнили в FBackSurface
 hr := FPrimarySurface.GetAttachedSurface(ddscaps, FBackSurface);
 if (hr = DD_OK) then
 begin
 {Все нормально - Surface'ы созданны - выходим}
 exit;
 end;
 end;
 end;
 end;
 end;
 {где-то была ошибка - сообщаем об этом неприятном факте}
 MessageBox(Self.Handle, PChar('Не удалось инициализировать DirectDraw! ' +
 ErrorString(Hr)), 'ERROR', MB_OK);
 Close();
end;

Создали Surface'ы. Теперь было бы интересно что-нибудь на них нарисовать. Интересно также попробовать писать прямо в видеопамять.
Получить указатель на область видеопамяти Surface'а можно вызвав метод Lock – он вернет указатель в структуре типа TDDSURFACEDESC2, которую получает в качестве параметра.

С фантазией у меня всегда было не очень – поэтому просто заполню всю область Surface'ов одним цветом, записав в видеопамять одно и тоже значение.

var
 i, j: integer;
 AdresVideo: PByteArray;
 SurfaceDesc: TDDSURFACEDESC2;
 HR: HResult;
begin
 // Пишем прямо в видеопамять
 FillChar(SurfaceDesc, SizeOf(SurfaceDesc), 0);
 SurfaceDesc.dwSize := SizeOf(SurfaceDesc);
 HR := FPrimarySurface.Lock(nil, SurfaceDesc, {DDLOCK_WAIT or}
 DDLOCK_SURFACEMEMORYPTR, 0);
 if (HR = DD_OK) then
 begin
 AdresVideo := SurfaceDesc.lpSurface;
 for i := 0 to SurfaceDesc.dwHeight - 1 do
 begin
 for j := 0 to SurfaceDesc.dwWidth - 1 do
 begin
 AdresVideo[j + i * SurfaceDesc.lPitch] := $FF;
 end;
 end;
 FPrimarySurface.Unlock(nil);
 end;
end;

Обратите внимание - какой я аккуратный – перехожу между строчками, учитывая Pitch. Да кстати – я просто демонстрирую как обратится к каждому байту видеопамяти Surface'a на самом деле если нужно закрасить весь Surface одним цветом то заносить значения в каждый байт слишком медленно – для этого можно воспользоваться методом IDirectDrawSurface4.Blt, передав ему флаг DDBLT_COLORFILL. Кроме того можно выводить на Surface и привычными функциями GDI – TextOut'ом например:

var
 DC: HDC;
begin
 if (FPrimarySurface.GetDC(DC) = DD_OK) then
 begin
 {Выводим текст на 1-й surface, используя GDI-фуекцию TextOut}
 SetBkColor(DC, RGB(255, 255, 255));
 SetTextColor(DC, RGB(255, 0, 0));
 TextOut(DC, 10, 20, ' Проба пера', Length(' Проба пера'));
 FPrimarySurface.ReleaseDC(DC);
 end;
end;

Небольшое лирическое отступление – между вызовами LOCK и UNLOCK, а также между GetDC и ReleaseDC выполнение всех других программ останавливается (в том числе и отладчика). Отсюда выводы – первое – не стоит делать что-то слишком долго между этими вызовами, второе, отладить программу пошагово между этими вызовами – невозможно (если только Вы не вооружились Kernel-debuger'ом).

Теперь попробуем flip'ануть наши Surface'ы. Переключимся на другой Surface

hr := FPrimarySurface.Flip(nil, 0);