| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Чтение видеобуфера

Guest386x ©   (2006-01-14 19:46:00) 

Подскажите, как можно осуществлять захват с экрана и сохранять картинку в виде BMP

---

Guest386x   (2006-01-14 20:02:00) [1]

Большое спасибо. Скоро на Исходниках Ру появится новая прога...

---

Volf_555   (2006-01-14 20:01:00) [2]

Взято из справки:

Как копировать образ экрана в файл
На форме у меня стоит TImage (его можно сделать невидимым)

uses JPEG;
...
var i: TJPEGImage;
begin
 try
   i := TJPEGImage.create;
   try
     i.CompressionQuality := 100;
     image.Width := screen.width;
     image.height := screen.height;
     DWH := GetDesktopWindow;
     GetWindowRect(DWH, DRect);
     DescDC := GetDeviceContext(DWH);
     Canv.Handle := DescDC;
     DRect.Left := 0;
     DRect.Top := 0;
     DRect.Right := screen.Width;
     DRect.Bottom := screen.Height;
     Image.Canvas.CopyRect(DRect, Canv, DRect);
     i.assign(Image.Picture.Bitmap);
     I.SaveToFile('M:\MyFile.jpg');
   finally
     i.free;
   end;
 except
 end;
Типы использованных переменных:

Dwh : HWND;
DRect: TRect;
DescDC : HDC;
Canv : TCanvas;

---

Наверх