Подскажите как из IDirectDrawSurface7 получить TBitmap?

← →
NOX (2004-07-29 12:27) [0]

Подскажите пожалуйста как поверхность IDirectDrawSurface7 перевести в тип TBitmap. Пробовал через прямой
доступ к памяти по-пиксельно копировать цвета (16 бит), но получается просто белый фон почему-то. Может есть готовые средства?
Вот мой код:

var ddsd : TDDSurfaceDesc2; hRet : HResult; i, j, wrkColor : word; begin wrkBMP.Width:=32; wrkBMP.Height:=32; ZeroMemory(@ddsd, SizeOf(ddsd)); hRet:=ImgSurf.Lock(nil, ddsd, DDLOCK_WAIT, 0); if Failed(hRet) then Exit; for i:=0 to 31 do for j:=0 to 31 do begin wrkColor:=PWORD( Integer(ddsd.lpSurface) + j * dsd.lPitch + i * 2 )^; wrkBMP.Canvas.Pixels[i,j]:=RGB(wrkColor and $1f, (wrkColor shr 5) and $3f, (wrkColor shr 11) and $1f); end; ImgSurf.Unlock(nil);

Спасибо.

← →
NOX (2004-07-29 19:29) [1]

Неужели никто не знает???

← →
cyborg © (2004-07-29 20:02) [2]

Surface.GetDC(DC)
Surface.ReleaseDC(DC);

С ними пляши

← →
NOX (2004-07-30 11:52) [3]

Вот мой код, но работает он что-то плохо, файл не создаётся.

ZeroMemory(@ddsd, SizeOf(ddsd)); hRet:=ImgSurf.GetSurfaceDesc(ddsd); if hRet <> DD_OK then Exit; ImgSurf.GetDC(DC); wrkBMP.Width:=ddsd.dwWidth; wrkBMP.Height:=ddsd.dwHeight; BitBlt(wrkBMP.Canvas.Handle, 0, 0, ddsd.dwWidth, ddsd.dwHeight, DC, 0, 0, srccopy); ImgSurf.ReleaseDC(DC); wrkBMP.SaveToFile("C:\1.bmp");

← →
cyborg © (2004-07-30 12:10) [4]

Не знаю, не охото проверять, попробуй ImgSurf.ReleaseDC(DC); после сохранения поставить.

← →
Sapersky (2004-07-30 15:36) [5]

У ddsd нужно размер установить:

ZeroMemory(@ddsd, SizeOf(ddsd));
ddsd.dwSize:=SizeOf(ddsd);
hRet:=ImgSurf.GetSurfaceDesc(ddsd);

Ещё, может быть, цветовой формат у битмапа, PixelFormat:=pf24bit или что-нибудь такое.

← →
NOX (2004-07-30 19:08) [6]

Большое человеческое списибо, действительно забыл установить размер ddsd.dwSize.

> [6] NOX (30.07.04 19:08)

Что работает чтоли? :) А-то я чего-то в своих играх скриншотосниматель не делал, сделать чтоли (мысль вслух) :)

Подскажите как из IDirectDrawSurface7 получить TBitmap? Найти похожие ветки