Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.16;
Скачать: CL | DM;

Вниз

Как можно сделать ScreenShot быстрее   Найти похожие ветки 

 
Morg   (2004-02-25 19:33) [0]

Делаю 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;


 
miek ©   (2004-02-25 23:37) [1]

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


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

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

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


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

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

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



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

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
6-1080543470
Sodom
2004-03-29 10:57
2004.05.16
Upload файла на сервер через PHP-скрипт


6-1080036190
alexprozorov
2004-03-23 13:03
2004.05.16
Проблема нотификационных сообщений


1-1083245971
Шнур
2004-04-29 17:39
2004.05.16
Округление


1-1083141363
Tsvetkov A.V.
2004-04-28 12:36
2004.05.16
Потоки в ДЛЛ


3-1082609683
ksa3003
2004-04-22 08:54
2004.05.16
Чувствительность к регистру при select.