Скачать: CL | DM;

Алгоритм захвата экрана   Найти похожие ветки 

← →
deamon_t   (2005-12-28 22:10) [0]

Привет, всем вопрос такой каким образом можно захватить живое изображение с экрана, если делать это через Print Screen получаеться слишком долго (1-0.5 раза в секунду) но RADMIN и RDA это делают намного быстрее, в чем секрет?

З.Ы. Сорри если не совсем попал с темой, уточню... каким обращом это сделать на Delphi :-)

---

← →
PKT   (2005-12-29 02:56) [1]

Попробуй обычный прием:
var
 ScreenDC: HDC;
 Bitmap: TBitmap;
begin
 Bitmap := TBitmap.Create;
 Bitmap.Width := Screen.Width;
 Bitmap.Height := Screen.Height;

 ScreenDC := GetDC(0);
 with Bitmap do begin
   try
     BitBlt(Canvas.Handle, 0, 0, Width, Height, ScreenDC,
       0, 0, SRCCOPY);
   finally
     ReleaseDC(0, ScreenDC);
   end;
 end;

 Bitmap.SaveToFile("C:\Мои документы\1.bmp");
 Bitmap.Free;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.052 c