Главная страница
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.05 c
9-1072167927
Kair
2003-12-23 11:25
2004.05.16
Динамический массив


6-1080272276
User_OKA
2004-03-26 06:37
2004.05.16
Прикрепить файлы


6-1080307767
Intf
2004-03-26 16:29
2004.05.16
Сокеты


1-1083128507
din
2004-04-28 09:01
2004.05.16
Lookup в гриде


3-1082630969
huyone
2004-04-22 14:49
2004.05.16
как из программы создать индекс, переиндесировать старый?DBASE II