Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как можно сделать ScreenShot быстрее [D6, Win95/98, WinME, NT4, Win2k, WinXP]


Morg ©   (2004-02-25 19:33:00) 

Делаю ScreenShot и сохраняю в stream, при этом комп зависает на 1-2 сек.
Есть ли способ сделать ScreenShot быстрее ???
Я делаю так:

 bm := TBitMap.Create;
 bm.Width := Screen.Width;
 bm.Height := Screen.Height;
 BitBlt(bm.Canvas.Handle, 0, 0,
   bm.Width, bm.Height,
   GetDC(0), 0, 0, SRCCOPY);
 JpegIm := TJpegImage.Create;
 JpegIm.Assign(bm);
 JpegIm.CompressionQuality := 100;
 JpegIm.Compress;
 JpegIm.SaveToStream(stream1);
 JpegIm.Destroy;
 bm.Destroy;


Morg   (2004-02-26 12:30:00) [1]

>>miek 1) Добавить присвоение bm.pixelformat чего-то осмысленного перед BitBlt

Спасибо.
bm.PixelFormat:= pf32bit;
Так гораздо быстрее.
Может еще как-нибудь можно выиграть в скорости ???


VMcL   (2004-02-26 01:10:00) [2]

>>miek ©  (25.02.04 23:37) [1]

А почему бы и не в JPG? Cохраняем в BMP, а в JPG конвертируем уже в отдельной кодовой нити.


miek   (2004-02-25 23:37:00) [3]

Попробуй 1) Добавить присвоение bm.pixelformat чего-то осмысленного перед BitBlt
2) Ну кто ж делает скриншоты в JPG??? Сохраняй в BMP, и никаких проблем


Наверх

Титульная страница Поиск, карта сайта Написать письмо