Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Вниз

Помогите разобраться с 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);


 
Stexen   (2003-04-02 12:09) [4]

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


 
i-C3H7OH   (2003-04-02 15:31) [5]

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



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
6-78018
vv
2003-05-13 11:27
2003.07.24
Удаленное соединение


3-77715
Nady
2003-06-30 15:44
2003.07.24
ADO+QReport =странный отчет


8-78004
sergn
2003-04-01 20:37
2003.07.24
Совмещение векторной печати и Bitmap с прозрачными участками


3-77755
Vovik
2003-07-01 15:43
2003.07.24
Уважаемые Мастера. Почему не создается ADOQuery?


1-77961
MakNik
2003-07-11 09:54
2003.07.24
StatusBar





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский