Алгоритм захвата экрана [D7, WinXP]
deamon_t © (2005-12-28 22:10:00)
Привет, всем вопрос такой каким образом можно захватить живое
изображение с экрана, если делать это через Print Screen
получаеться слишком долго (1-0.5 раза в секунду) но RADMIN и RDA
это делают намного быстрее, в чем секрет?
З.Ы. Сорри если не совсем попал с темой, уточню... каким
обращом это сделать на Delphi :-)
PKT (2005-12-29 02:56:00) [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;
Наверх 
ЧАТ |
Орешник |
|
