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

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

Как распечатать картинку созданную в OpenGl

Sis3 ©   (2005-04-06 20:06:00) 

Как распечатать картинку созданную в OpenGl

---

XProger   (2005-04-07 20:49:00) [1]

Зачем в битмэп?
Берём все пиксели изображения glReadPixels.

uses
Printers;
...
var
Printer : TPrinter;
r : TRect;
i : Integer;
begin
with Printer do
begin
r := Rect(0, 0, W, H);
BeginDoc;
StretchDIBits(Canvas.Handle, 0, 0, W, H,
                             0, 0, W, H,
                             pix, BitInfo,
                             DIB_RGB_COLORS, SRCCOPY);  
Canvas.FrameRect(r);
EndDoc;
end;
end;

Ну вот собсна всё... ;)

---

ancara   (2005-04-07 12:58:00) [2]

Какой лочить, вы о чем?
 OpenGL прекрасно рендерит на битмапы, причем эти битмапы не только потом печатать можно , но и превращать в текстуры и обратно в сцену пихать, на объекты натягивать.

При инициализации OpenGL:
var
 pfd: TPixelFormatDescriptor;
 ...
begin
 with pfd do begin
   dwFlags   := PFD_DRAW_TO_BITMAP or
                PFD_SUPPORT_OPENGL;
   cColorBits     := 24;
  ...
 end;

 nPixelFormat := ChoosePixelFormat(BmpDC, @pfd);
 SetPixelFormat(BmpDC, nPixelFormat, @pfd);
end;

где BmpDC - BmpDC:=Bitmap.Canvas.Handle;
тока надо следить чтобы PixelFormat совпадал с pfd.cColorBits ну и за размерами само сабой....

---

Pa5ha   (2005-04-07 12:20:00) [3]

dRake, зато BACK буффер лочить можно. Я после флипа с него картинку и утягивал :D

---

dRake   (2005-04-07 11:28:00) [4]

Ну раз серьезно - залочь FrountBuffer и скопируй пикслели в TBitmap или посмотри аналог D3D функции GetFrontBufferData() (в D3D нельзя лочить фронтбуффер, поэтому приходится сначала скопировать его на другую пов-ть, а потом лочить уже ее...)

---

Sis3   (2005-04-07 08:16:00) [5]

Вообще-то я серьезно спрашивал. Когда я использую Form.Paint, то печатаются только компоненты, расположенные на форме(кнопки и т.д.), но не картинка. Наверно нужно сначала перевести ее в BMP, а потом печатать. Но как это сделать?

---

dRake   (2005-04-07 02:25:00) [6]

Pa5ha - это у нас чорный юмор такой =)
Каков вопрос - таков и ответ

---

Pa5ha   (2005-04-07 01:34:00) [7]

dRake, а если я VCL отключил? И забудте Вы про компоненты. Кодеры, блин.

---

dRake   (2005-04-06 21:14:00) [8]

Посмотри компонент на torry.net =)

---

П7   (2005-04-06 20:21:00) [9]

На принтере.

---

Наверх