Помогите разобраться с FastDIB

← →
SimpleUser (2003-04-01 20:47) [0]

Пытаюсь поместить снимок экрана в FastDIB следующим образом:

{--}
VAR FD:TFastDIB; BEGIN FD:=TFastDIB.create; FD.SetSize(Screen.Width,Screen.Height,24); BitBlt(FD.Handle,0,0,Screen.Width,Screen.Height,GetWindowDC(GetDesktopWindow),0,0,SRCCOPY); END;
{-}

В чем тут проблема?

← →
i-C3H7OH © (2003-04-01 21:14) [1]

1. забыл деструктор
2. GetWindowDC(GetDesktopWindow) - создало HDC, а кто удалять будет (ReleaseDC)
3. вместо GetDesktopWindow передавай 0

← →
SimpleUser (2003-04-01 21:39) [2]

Все добавил, а результат такой-же.
Может надо вместо FD.Handle другой его handle передавать, потому что если использовать просто canvas объекта Image:
BitBlt(Image1.canvas.Handle,0,0,Screen.Width,Screen.Height,GetWindowDC(GetDesktopWindow),0,0,SRCCOPY), то снимок делается, а с FastDIB непонятно.
Еще заметил один глюк у себя:
Если делать снимок экрана на Image и потом сохранить его на диске, то FastDIB не может его загрузить.

← →
Stexen © (2003-04-02 12:08) [3]

Дак ты че делаешь то, там же у него не хэндел надо брать а HDC, то есть
в твоем случае
BitBlt( FD.hDC,0,0,Screen.Width,Screen.Height,GetWindowDC(0),0,0,SRCCOPY);

и деструктор не забудь

точно-точно
FD.hDC :HDC;
а
FD.Handle :HBITMAP;

Помогите разобраться с FastDIB Найти похожие ветки