Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: CL | DM;

Вниз

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

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

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


 
П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


 
ancara ©   (2005-04-07 12:58) [8]

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


 
XProger ©   (2005-04-07 20:49) [9]

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

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



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

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

Наверх




Память: 0.48 MB
Время: 0.047 c
14-1119849383
mmms
2005-06-27 09:16
2005.07.18
Кто покупал или знает, входит ли в Delphi2005 более рание версии


1-1120406292
sofs
2005-07-03 19:58
2005.07.18
Загрузка большого кол-ва информации из массива в RichEdit


1-1120034345
:Sage:
2005-06-29 12:39
2005.07.18
Ресурсы игры в zip e с паролем.


3-1117799125
Iova
2005-06-03 15:45
2005.07.18
Как получить список реквизитов справочника


1-1119619477
dUM
2005-06-24 17:24
2005.07.18
что-то типа ShowModal, но иначе :)