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

Вниз

Быстрое копирование экрана. Часть 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 )))



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

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

Наверх




Память: 0.48 MB
Время: 0.02 c
14-17302
Fixus
2003-02-20 10:50
2003.03.06
подпрограмма на ASM сложения вычитания 3-байтовых чисел


6-17242
Глеб
2003-01-08 03:20
2003.03.06
Вопрос по работе с сетью в Delphi


3-16921
RDA
2003-02-15 21:21
2003.03.06
Проблемы при DragDrop в DBTreeList


14-17373
Sergey-ZZZ
2003-02-18 17:06
2003.03.06
Help for Delphi5


1-17066
Nemo
2003-02-25 02:51
2003.03.06
А можно сделать чтобы приложение нельзя было уничтожить?