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

← →
Sis3 (2005-04-06 20:06) [0]

← →
П7 (2005-04-06 20:21) [1]

На принтере.

← →
dRake © (2005-04-06 21:14) [2]

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

← →
Pa5ha (2005-04-07 01:34) [3]

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

← →
dRake © (2005-04-07 02:25) [4]

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

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

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

← →
dRake © (2005-04-07 11:28) [6]

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

← →
Pa5ha (2005-04-07 12:20) [7]

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

Какой лочить, вы о чем?
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 ну и за размерами само сабой....

Зачем в битмэп?
Берём все пиксели изображения 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;
Ну вот собсна всё... ;)

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