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

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

Сохранить изображение как *.bmp файл [D6, Win2k]

White1 ©   (2002-10-17 13:32:00) 

Помогите пожалуйста,как программно можно сохранить в *.bmp файл изображение какого-либо места(прямоугольной области) экрана? Лучше исходным кодом.
Заранее Спасибо!

---

k   (2002-10-19 01:45:00) [1]

экрана? не формы? тогда...

procedure SaveRect(Rect:TRect; FileName:String);
var dc:HDC;
bm:TBitMap;
begin
bm := TBitmap.Create;
//Rect - структура, задающая прямоугольник (см. хелп по TRect)
bm.Width := abs(Rect.Right - Rect.Left);
bm.Height:= abs(Rect.Bottom - Rect.Top);

try
//опять WinAPI - это как наркотик :)
dc := GetDC(0);//контекст рабочего стола
BitBlt(bm.Canvas.handle,0,0 , bm.Width, bm.Height, dc, Rect.Left, Rect.Top, SRCCOPY);
bm.SaveToFile(FileName);
finally
bm.free;
ReleaseDC(0,dc);
end;//fin

end;//proc

такова идея.....

---

Song   (2002-10-17 14:27:00) [2]

CopyRect()
TBitMap.SaveToFile()

---

Наверх