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

Вниз

ScreenShot   Найти похожие ветки 

← →
TCrash   (2006-12-22 09:52) [0]

Требуется получить снимок экрана. Нашел пример как его загнать в TCanvas, а хотелось бы в BMP. Возиться с TCanvas.Pixels желания нет. Подскажите плиз куда копать.

---

← →
PZ   (2006-12-22 10:17) [1]

procedure CopyScreen;
var
 bmp : TBitmap;
 DC  : HDC;
begin
 bmp := TBitmap.Create;
 bmp.Height := Screen.Height;
 bmp.Width  := Screen.Width;
 DC := GetDC(0);                // Дескpиптоp экpана
 bitblt(
   bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
 bmp.SaveToFile("Screen.bmp");
 ReleaseDC(0, DC);
end;      { CopyScreen }

---

← →
TCrash   (2006-12-22 10:46) [2]

Спасибо. Не с той стороны начал :(

---

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

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

Наверх

Память: 0.47 MB
Время: 0.037 c