![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно сделать 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, и никаких проблем