Быстрое копирование экрана. Часть I

← →
Карелин Артем (2002-11-22 09:34) [0]

Если использовать getdc, bitblt, то скорость снятия изображения с экрана(800*600*32) составит 3-4 раза в секунду. При изменени размеров картинки скорость падает до 1-2 кадров на неслабом компе(Cel-900).
Ну и это без учета записи на диск.
Вопрос в том, как быстрее брать изображение с экрана.

← →
Александр Павлов (2002-11-23 05:38) [1]

Вот такой код делает скриншоты(1024x768x32) со скоростью 32-38 кадра (PIII-800,128Mb) в "секунду":

procedure TForm1.Button1Click(Sender: TObject);
var
ScreenDC : HDC;
begin
ScreenDC:=GetDC(0);
try
with Image1.Picture.Bitmap do
begin
Width := Screen.Width;
Height := Screen.Height;
BitBlt(Canvas.Handle, 0,0,Screen.Width,Screen.Height,
ScreenDC, 0, 0, SRCCOPY);
end;
finally
ReleaseDC(0, ScreenDC);
end;
end;

Вы, хотя бы свой код в студию подавали, прежде чем ф-ции обижать, может дело в нём? :)

← →
handra (2002-11-23 12:41) [2]

How about DirectShow? - хлопцы из МелкоСофт уже все сделали

← →
GROL (2002-11-23 23:52) [3]

> How about DirectShow? - хлопцы из МелкоСофт уже все сделали

В этом месте чуть подробней, если можно

← →
Карелин Артем (2002-11-25 10:06) [4]

Александр Павлов © (23.11.02 05:38)
Код тот же самый, но видео встроенная. А в 16 битах тот же код дает на порядок больше fps.

← →
handra (2002-11-25 12:07) [5]

GROL ©> msdn.microsoft.com

← →
Карелин Артем (2002-11-25 12:11) [6]

Search Results

--------------------------------------------------------------------------------
for "GROL" using All words
--------------------------------------------------------------------------------

Search needs a word or phrase to search for. Please try again.
Search needs a category to search for. Please try again.
Please enter a unique search to refine your results. You entered "GROL" for your previous search, and those results are reflected in the list below.

Your search using "All words" for ""GROL""
returned 0 results.

Try some of the following to improve your search:
Check your spelling.
Choose a different Search Category.
Type in a less specific search word or phrase.

← →
GROL (2002-11-25 12:32) [7]

Артем, а что есть твой последний постинг?

← →
Карелин Артем (2002-11-25 12:57) [8]

эээээээээээ...........

Дело в том, что я слишком быстро пробежался по ответам и постинг handra © (25.11.02 12:07) расценил какк призыв зайти на мелкософт и поискать GROL )))

Быстрое копирование экрана. Часть I Найти похожие ветки